opengl: Cosmetics.

3-mid/opengl/source/lean/model/opengl-model-capsule-textured.ads

@@ -10,7 +10,8 @@ package openGL.Model.capsule.textured
 is
    package textured_Model is new texturing.Mixin (openGL.Model.capsule.item);
 
-   type Item is new textured_Model.textured_item with private;   type View is access all Item'Class;
+   type Item is new textured_Model.textured_item with private;
+   type View is access all Item'Class;
 
 
    ---------

3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb

@@ -86,9 +86,6 @@ is
 
          for i in 1 .. Self.texture_Details.Count
          loop
-            put_Line ("KKK" & Self.texture_Details'Image);
-
-
             Id := texture_Id (i);
 
             --  the_Geometry.Fade_is (which => Id,

3-mid/opengl/source/lean/model/opengl-model-texturing.adb

@@ -1,3 +1,7 @@
+with
+     ada.unchecked_Deallocation;
+
+
 package body openGL.Model.texturing
 is
 
@@ -135,8 +139,16 @@ is
 
       procedure texture_Details_is (Self : in out textured_Item;   Now : in openGL.texture_Set.item)
       is
+         procedure free is new ada.unchecked_Deallocation (Animation, Animation_view);
       begin
+         free (Self.texture_Set.Animation);
+
          Self.texture_Set := Now;
+
+         if Now.Animation /= null
+         then
+            Self.texture_Set.Animation := new texture_Set.Animation' (Now.Animation.all);
+         end if;
       end texture_Details_is;