openGL: Add preliminary multi-texturing code.

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

@@ -0,0 +1,66 @@
+package openGL.Geometry.lit_textured_x2
+--
+--  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);
+
+   procedure Fade_is      (Self : in out Item;   Which : texture_ID;   Now : in fade_Level);
+   function  Fade         (Self : in     Item;   Which : texture_ID)     return fade_Level;
+
+
+   procedure Texture_is   (Self : in out Item;   Which : texture_ID;   Now : in openGL.Texture.Object);
+   function  Texture      (Self : in     Item;   Which : texture_ID)     return openGL.Texture.Object;
+
+   overriding
+   procedure Texture_is   (Self : in out Item;   Now : in openGL.Texture.Object);
+
+   overriding
+   function  Texture      (Self : in     Item)     return openGL.Texture.Object;
+
+
+
+private
+
+   type Item is new Geometry.item with
+      record
+         Textures : texture_Set;
+      end record;
+
+
+   overriding
+   procedure enable_Texture (Self : in Item);
+
+end openGL.Geometry.lit_textured_x2;