1. ------------------------------------------------------------------------- 
  2.  --  GL.skinned_Geometry - an association of a skin with a geometry primitive. 
  3.  -- 
  4.  --  Copyright (c) Rod Kay 2007 
  5.  --  AUSTRALIA 
  6.  --  Permission granted to use this software, without any warranty, 
  7.  --  for any purpose, provided this copyright note remains attached 
  8.  --  and unmodified if sources are distributed further. 
  9.  ------------------------------------------------------------------------- 
  10.  
  11. with GL.Geometry; 
  12. with GL.Skins; 
  13.  
  14. package GL.Skinned_Geometry is 
  15.  
  16.    type Skinned_Geometry_t is 
  17.       record 
  18.          Geometry  : GL.Geometry.p_Geometry; 
  19.          Skin      : GL.Skins.p_Skin; 
  20.          Veneer    : GL.Skins.p_Veneer; 
  21.       end record; 
  22.  
  23.    type skinned_Geometrys is array (Positive range <>) of Skinned_Geometry_t; 
  24.  
  25.    null_skinned_Geometrys  : constant skinned_Geometrys (1 .. 0) := (others => (Geometry => null, 
  26.                                                                                Skin     => null, 
  27.                                                                                Veneer   => null)); 
  28.  
  29.  --   function Bounds (Self  : in 
  30.  
  31.    procedure Destroy (Self  : in out Skinned_Geometry_t); 
  32.  
  33. end GL.Skinned_Geometry;