with
     openGL.Program.lit.textured_skinned;


package openGL.Geometry.lit_textured_skinned
--
--  Supports per-vertex site, texture, lighting and skinning.
--
is
   type Item is new openGL.Geometry.item with private;

   function new_Geometry return access Geometry.lit_textured_skinned.item'Class;

   procedure define_Program;


   ----------
   --  Vertex
   --

   type Vertex is
      record
         Site   : Vector_3;
         Normal : Vector_3;
         Coords : Coordinate_2D;
         Shine  : Real;

         bone_Ids     : Vector_4;
         bone_Weights : Vector_4;
      end record;
   pragma Convention (C, Vertex);

   type Vertex_array is array (long_Index_t range <>) of aliased Vertex;


   --------------
   --  Attributes
   --

   procedure Vertices_are (Self : in out Item;   Now : in Vertex_array);

   overriding
   procedure Indices_are  (Self : in out Item;   Now       : in Indices;
                                                 for_Facia : in Positive);

   function  Program return openGL.Program.lit.textured_skinned.view;



private

   type Item is new Geometry.item with null record;

   overriding
   procedure enable_Textures (Self : in out Item);

end openGL.Geometry.lit_textured_skinned;