From 3783591ed1e8d19ce6a364eff65f98de5af05f56 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Mon, 29 May 2023 21:26:17 +1000
Subject: [PATCH] opengl.geometry.lit_textured: Rename 'Textures' record
 component to 'texture_Set'.

---
 .../geometry/opengl-geometry-lit_textured.adb    | 16 ++++++++--------
 .../geometry/opengl-geometry-lit_textured.ads    |  2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb
index e34909a..5f4accb 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb
@@ -308,7 +308,7 @@ is
    procedure Fade_is (Self : in out Item;   Which : texture_ID;   Now : in texturing.fade_Level)
    is
    begin
-      Self.Textures.Textures (which).Fade := Now;
+      Self.texture_Set.Textures (which).Fade := Now;
    end Fade_is;
 
 
@@ -316,7 +316,7 @@ is
    function Fade (Self : in     Item;   Which : texturing.texture_ID)     return texturing.fade_Level
    is
    begin
-      return Self.Textures.Textures (which).Fade;
+      return Self.texture_Set.Textures (which).Fade;
    end Fade;
 
 
@@ -324,7 +324,7 @@ is
    procedure Texture_is (Self : in out Item;   Which : texture_ID;   Now : in openGL.Texture.Object)
    is
    begin
-      Texture_is (in_Set => Self.Textures,
+      Texture_is (in_Set => Self.texture_Set,
                   Which  => Which,
                   Now    => Now);
    end Texture_is;
@@ -334,7 +334,7 @@ is
    function Texture (Self : in Item;   Which : texture_ID) return openGL.Texture.Object
    is
    begin
-      return openGL.texturing.Texture (in_Set => Self.Textures,
+      return openGL.texturing.Texture (in_Set => Self.texture_Set,
                                        Which  => Which);
    end Texture;
 
@@ -344,7 +344,7 @@ is
    procedure Texture_is (Self : in out Item;   Now : in openGL.Texture.Object)
    is
    begin
-      Texture_is (in_Set => Self.Textures,
+      Texture_is (in_Set => Self.texture_Set,
                   Now    => Now);
    end Texture_is;
 
@@ -354,7 +354,7 @@ is
    function Texture (Self : in Item) return openGL.Texture.Object
    is
    begin
-      return texturing.Texture (in_Set => Self.Textures,
+      return texturing.Texture (in_Set => Self.texture_Set,
                                 Which  => 1);
    end Texture;
 
@@ -414,10 +414,10 @@ is
                           GLint (i) - 1);
          glActiveTexture (all_texture_Units (i));
          glBindTexture   (GL_TEXTURE_2D,
-                          Self.Textures.Textures (i).Object.Name);
+                          Self.texture_Set.Textures (i).Object.Name);
       end loop;
 
-      the_texture_count_Uniform.Value_is (Self.Textures.Count);
+      the_texture_count_Uniform.Value_is (Self.texture_Set.Count);
    end enable_Texture;
 
 
diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads
index f142703..32e7e23 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads
@@ -64,7 +64,7 @@ private
 
    type Item is new Geometry.item with
       record
-         Textures : texturing.texture_Set;
+         texture_Set : texturing.texture_Set;
       end record;