blob: 9be6a78c9c616586554c52c94a4e22387473f5cd [file] [log] [blame]
package Lto10_Pkg 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 Lto10_Pkg;