Work on texturing and animation.

3-mid/opengl/source/lean/opengl-texture_set.ads

@@ -87,6 +87,29 @@ is
 
 
 
+
+   -----------
+   --- Details
+   --
+
+   type Details is
+      record
+         Fades           : fade_Levels                (texture_Id)       := [others => 0.0];
+         Textures        : asset_Names (1 .. Positive (texture_Id'Last)) := [others => null_Asset];     -- The textures to be applied to the hex.
+         texture_Count   : Natural                                       := 0;
+         texture_Tiling  : Real                                          := 1.0;                        -- The number of times the texture should be wrapped.
+         texture_Applies : texture_Apply_array                           := [1 => True, others => False];
+         Animation       : Animation_view;
+      end record;
+
+
+   function to_Details (texture_Assets : in asset_Names;
+                        Animation      : in Animation_view := null) return Details;
+
+
+
+
+
    --------
    --- Item
    --