————————————————————————-
— GL.skinned_Geometry – an association of a skin with a geometry primitive.
—
— Copyright (c) Rod Kay 2007
— AUSTRALIA
— Permission granted to use this software, without any warranty,
— for any purpose, provided this copyright note remains attached
— and unmodified if sources are distributed further.
————————————————————————-
with GL.Geometry;
with GL.Skins;
package GL.Skinned_Geometry is
type Skinned_Geometry_t is
record
Geometry : GL.Geometry.p_Geometry;
Skin : GL.Skins.p_Skin;
Veneer : GL.Skins.p_Veneer;
end record;
type skinned_Geometrys is array (Positive range <>) of Skinned_Geometry_t;
null_skinned_Geometrys : constant skinned_Geometrys (1 .. 0) := (others => (Geometry => null,
Skin => null,
Veneer => null));
— function Bounds (Self : in
procedure Destroy (Self : in out Skinned_Geometry_t);
end GL.Skinned_Geometry;