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-hexagon_column-lit_textured_rounded.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-hexagon_column-lit_textured_rounded.adb
@@ -73,6 +73,7 @@ is
                                               the_Indices).all'Access;

      begin
+         the_Geometry.Model_is     (Self.all'unchecked_Access);
         the_Geometry.Vertices_are (Vertices);
         the_Geometry.add          (the_Primitive);

@@ -95,6 +96,7 @@ is
           := Primitive.indexed.new_Primitive (triangle_Strip,
                                               the_Indices);
      begin
+         the_Geometry.Model_is     (Self.all'unchecked_Access);
         the_Geometry.Vertices_are (Vertices);
         the_Geometry.add          (Primitive.view (the_Primitive));