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));
procedure Destroy
( | Self | : in out Skinned_Geometry_t); |