Add initial prototype.

3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads

@@ -0,0 +1,48 @@
+package openGL.Geometry.lit_textured
+--
+--  Supports per-vertex site texture and lighting.
+--
+is
+   type Item is new openGL.Geometry.item with private;
+   type View is access all Item'Class;
+
+
+   function new_Geometry return View;
+
+
+   ----------
+   --  Vertex
+   --
+
+   type Vertex is
+      record
+         Site   : Vector_3;
+         Normal : Vector_3;
+         Coords : Coordinate_2D;
+         Shine  : Real;
+      end record;
+
+   type Vertex_array       is array (     Index_t range <>) of aliased Vertex;
+   type Vertex_large_array is array (long_Index_t range <>) of aliased Vertex;
+
+
+   --------------
+   --  Attributes
+   --
+
+   procedure Vertices_are (Self : in out Item;   Now       : in Vertex_array);
+   procedure Vertices_are (Self : in out Item;   Now       : in Vertex_large_array);
+
+   overriding
+   procedure Indices_are  (Self : in out Item;   Now       : in Indices;
+                                                 for_Facia : in Positive);
+
+
+private
+
+   type Item is new Geometry.item with null record;
+
+   overriding
+   procedure enable_Texture (Self : in Item);
+
+end openGL.Geometry.lit_textured;