gel.demos: Update code to use new openGL updates.

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

@@ -3,6 +3,8 @@ with
      openGL.Primitive.indexed,
      openGL.Texture.Coordinates;
 
+with ada.Text_IO;   use ada.Text_IO;
+
 
 package body openGL.Model.circle.lit_textured
 is
@@ -83,6 +85,9 @@ is
 
          for i in 1 .. Self.texture_Details.texture_Count
          loop
+            put_Line ("KKK" & Self.texture_Details'Image);
+
+
             Id := texture_Id (i);
 
             the_Geometry.Fade_is (which => Id,