opengl: Rid 'Texture' and 'Texture_is' for texture_Sets.

2025-09-25 15:12:14 +10:00
parent 9ccf2d3cb5
commit 5a003202bf
32 changed files with 192 additions and 127 deletions
--- a/3-mid/opengl/source/lean/model/opengl-model-texturing.ads
+++ b/3-mid/opengl/source/lean/model/opengl-model-texturing.ads
@@ -18,6 +18,13 @@ is
   is
      type textured_Item is abstract new Item with private;

+      overriding
+      procedure texture_Object_is  (Self : in out textured_Item;   Which : in texture_Set.texture_Id;
+                                                                   Now   : in openGL.texture.Object);
+
+      overriding
+      function  texture_Object     (Self : in     textured_Item;   Which : in texture_Set.texture_Id) return openGL.texture.Object;
+

      overriding
      function  Fade               (Self : in     textured_Item;   Which : in texture_Set.texture_Id) return texture_Set.fade_Level;