From 081fcd860e4d6979aabf6bf8e9f591aaa949fa6e Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Wed, 24 Apr 2024 12:40:42 +1000
Subject: [PATCH] opengl.model.texturing: Rid 'limited with' of 'openGL.Model'.

---
 3-mid/opengl/source/lean/model/opengl-model-texturing.adb | 8 ++++----
 3-mid/opengl/source/lean/model/opengl-model-texturing.ads | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/3-mid/opengl/source/lean/model/opengl-model-texturing.adb b/3-mid/opengl/source/lean/model/opengl-model-texturing.adb
index 9150bba..97ce4aa 100644
--- a/3-mid/opengl/source/lean/model/opengl-model-texturing.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-texturing.adb
@@ -1,10 +1,10 @@
 with
-     openGL.Model,
+     --  openGL.Model,
      GL.lean,
      GL.Binding,
      ada.Strings.fixed;
 
-with ada.Text_IO;
+--  with ada.Text_IO;
 
 
 package body openGL.Model.texturing
@@ -14,7 +14,7 @@ is
 
    type texture_Units is array (texture_Set.texture_Id) of GLenum;
 
-   all_texture_Units : constant texture_Units := (GL_TEXTURE0,
+   all_texture_Units : constant texture_Units := [GL_TEXTURE0,
                                                   GL_TEXTURE1,
                                                   GL_TEXTURE2,
                                                   GL_TEXTURE3,
@@ -45,7 +45,7 @@ is
                                                   GL_TEXTURE28,
                                                   GL_TEXTURE29,
                                                   GL_TEXTURE30,
-                                                  GL_TEXTURE31);
+                                                  GL_TEXTURE31];
 
 
 
diff --git a/3-mid/opengl/source/lean/model/opengl-model-texturing.ads b/3-mid/opengl/source/lean/model/opengl-model-texturing.ads
index fc7cd55..45dc332 100644
--- a/3-mid/opengl/source/lean/model/opengl-model-texturing.ads
+++ b/3-mid/opengl/source/lean/model/opengl-model-texturing.ads
@@ -3,9 +3,9 @@ with
      openGL.texture_Set,
      openGL.Program;
 
-limited
-with
-     openGL.Model;
+--  limited
+--  with
+--       openGL.Model;
 
 
 private