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-sphere-textured.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-sphere-textured.adb
@@ -70,6 +70,8 @@ is
      the_Geometry   : constant Geometry.textured.view := Geometry.textured.new_Geometry;

   begin
+      the_Geometry.Model_is (Self.all'unchecked_Access);
+
      set_Sites:
      declare
         use linear_Algebra_3d;
@@ -199,7 +201,6 @@ is
         the_Geometry.add (Primitive.view (the_Primitive));
      end;

-      the_Geometry.Model_is (Self.all'unchecked_Access);

      return [1 => Geometry.view (the_Geometry)];
   end to_GL_Geometries;