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-any.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-any.adb
@@ -420,6 +420,9 @@ is
         deallocate (the_Vertices);
         destroy    (the_Model);

+         Self.Geometry.Model_is (Self'unchecked_Access);
+
+
         --  Set the geometry texture.
         --
         if Self.Texture /= null_Asset