opengl.geometry: Pre-initialise texture uniforms.

2023-05-04 21:32:03 +10:00
parent eb17c310f1
commit 4ca946531a
14 changed files with 48 additions and 36 deletions
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads
@@ -43,6 +43,6 @@ private
   type Item is new Geometry.item with null record;

   overriding
-   procedure enable_Texture (Self : in Item);
+   procedure enable_Texture (Self : in out Item);

 end openGL.Geometry.lit_textured;