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

   begin
+      the_Geometry.Model_is (Self.all'unchecked_Access);
+
      set_Sites:
      declare
         use linear_Algebra,
@@ -188,7 +190,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;