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