1
2package Assign_From_Packed_Pixels is
3
4   type U16 is mod 2 ** 16;
5
6   type Position is record
7      X, Y, Z : U16;
8   end record;
9   for Position'Size use 48;
10
11   type Pixel is record
12      Pos : Position;
13   end record;
14   pragma Pack (Pixel);
15
16   Minus_One : Integer := -1;
17   Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
18end;
19