Add initial prototype.

3-mid/opengl/source/lean/shader/opengl-program-lit-textured_skinned.ads

@@ -0,0 +1,30 @@
+package openGL.Program.lit.textured_skinned
+--
+--  Provides a program for lit, colored, textured and skinned vertices.
+--
+is
+   type Item is new openGL.Program.lit.item with private;
+   type View is access all Item'Class;
+
+
+   overriding
+   procedure define (Self : in out Item;   use_vertex_Shader   : in Shader.view;
+                                           use_fragment_Shader : in Shader.view);
+
+   overriding
+   procedure set_Uniforms (Self : in Item);
+
+   procedure bone_Transform_is (Self : in Item;   Which : in Integer;
+                                                  Now   : in Matrix_4x4);
+
+
+private
+
+   type bone_transform_Uniforms is array (1 .. 120) of Variable.uniform.mat4;
+
+   type Item is new openGL.Program.lit.item with
+      record
+         bone_transform_Uniforms : lit.textured_skinned.bone_transform_Uniforms;
+      end record;
+
+end openGL.Program.lit.textured_skinned;