opengl: Allow models with multiple textures to selectively apply/unapply individual textures.

2024-09-23 17:05:25 +10:00
parent 47b04dcc8f
commit f59512d51e
19 changed files with 208 additions and 137 deletions
--- a/3-mid/opengl/source/lean/opengl-texture_set.adb
+++ b/3-mid/opengl/source/lean/opengl-texture_set.adb
@@ -15,10 +15,7 @@ is
   procedure Texture_is (in_Set : in out Item;   Which : texture_ID;   Now : in openGL.Texture.Object)
   is
   begin
-      in_Set.Textures (Which) := (0.0,
-                                  Now); --,
-                                  --  texture_Uniform => <>,
-                                  --  fade_Uniform    => <>);
+      in_Set.Textures (Which).Object := Now;

      in_Set.is_Transparent   :=    in_Set.is_Transparent
                                 or Now   .is_Transparent;