19 lines
335 B
Ada
19 lines
335 B
Ada
|
|
package Assign_From_Packed_Pixels is
|
|
|
|
type U16 is mod 2 ** 16;
|
|
|
|
type Position is record
|
|
X, Y, Z : U16;
|
|
end record;
|
|
for Position'Size use 48;
|
|
|
|
type Pixel is record
|
|
Pos : Position;
|
|
end record;
|
|
pragma Pack (Pixel);
|
|
|
|
Minus_One : Integer := -1;
|
|
Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
|
|
end;
|