From 0f952068858fd2ed1703f9e7eaf08feb6b5cafb9 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 7 Sep 2025 03:54:02 +1000 Subject: [PATCH] opengl.geometry.texturing: Add parameter names in 'enable' procedure. --- .../opengl/source/lean/geometry/opengl-geometry-texturing.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb index f5676bc..9ad0ac4 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb @@ -62,8 +62,8 @@ is begin for i in 1 .. openGL.texture_Set.texture_Id (for_Model.texture_Count) loop - Uniforms.Textures (i).fade_Uniform .Value_is (Real (for_Model.Fade (i))); - Uniforms.Textures (i).texture_applied_Uniform.Value_is (for_Model.texture_Applied (i)); + Uniforms.Textures (i).fade_Uniform .Value_is (Real (for_Model.Fade (Which => i))); + Uniforms.Textures (i).texture_applied_Uniform.Value_is (for_Model.texture_Applied (Which => i)); glUniform1i (Uniforms.Textures (i).texture_Uniform.gl_Variable, GLint (i) - 1);