opengl.geometry: Add/use texturing support.

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

@@ -0,0 +1,45 @@
+with
+     openGL.Program,
+     openGL.Texture,
+     openGL.Variable.uniform;
+
+
+package openGL.Geometry.texturing
+--
+-- Facilitates texturing of geometries.
+--
+is
+
+   type fade_Level is delta 0.001 range 0.0 .. 1.0;     -- '0.0' is no fading, '1.0' is fully faded (ie invisible).
+
+   type fadeable_Texture is
+      record
+         Fade             : fade_Level                       := 0.0;
+         Object           : openGL.Texture.Object            := openGL.Texture.null_Object;
+         textures_Uniform : openGL.Variable.uniform.sampler2D;
+         fade_Uniform     : openGL.Variable.uniform.float;
+      end record;
+
+   type fadeable_Textures is array (texture_Id range 1 .. max_Textures) of fadeable_Texture;
+
+   type texture_Set is
+      record
+         Textures       : fadeable_Textures;
+         Count          : Natural          := 0;
+         is_Transparent : Boolean          := False;     -- Any of the textures contains lucid colors.
+         initialised    : Boolean          := False;
+      end record;
+
+   procedure enable (the_Textures : in out texture_Set;
+                     Program      : in     openGL.Program.view);
+
+
+
+   procedure Texture_is      (in_Set : in out texture_Set;   Which : texture_ID;   Now : in openGL.Texture.Object);
+   function  Texture         (in_Set : in     texture_Set;   Which : texture_ID)     return openGL.Texture.Object;
+
+   procedure Texture_is      (in_Set : in out texture_Set;   Now : in openGL.Texture.Object);
+   function  Texture         (in_Set : in     texture_Set)     return openGL.Texture.Object;
+
+
+end openGL.Geometry.texturing;