From d807a87cc1eb784f28444b757eca0658fd599e6c Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Wed, 28 Feb 2024 19:52:06 +1100 Subject: [PATCH] opengl.program.lit: Cosmetics. --- .../source/lean/shader/opengl-program-lit.adb | 39 ------------------- 1 file changed, 39 deletions(-) diff --git a/3-mid/opengl/source/lean/shader/opengl-program-lit.adb b/3-mid/opengl/source/lean/shader/opengl-program-lit.adb index 701b407..6a1a74d 100644 --- a/3-mid/opengl/source/lean/shader/opengl-program-lit.adb +++ b/3-mid/opengl/source/lean/shader/opengl-program-lit.adb @@ -99,45 +99,6 @@ is cone_direction_Uniform .Value_is ( Light.cone_Direction); end; end loop; - - - -- declare - -- use GL, - -- GL.lean, - -- GL.Binding, - -- GL.Pointers, - -- Interfaces; - -- - -- uniform_Name : aliased C.char_array := C.to_C ("Texture_1[0]"); - -- uniform_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (uniform_Name'unchecked_Access); - -- loc : GL.GLint := glGetUniformLocation (Self.gl_Program, +uniform_Name_ptr); - -- begin - -- put_Line ("1-openGL.Program.lit.set_Uniforms:" & loc'Image); - -- - -- glUniform1i (loc, 0); - -- glActiveTexture (GL_TEXTURE0); - -- glBindTexture (GL_TEXTURE_2D, 4); - -- end; - -- - -- - -- declare - -- use GL, - -- GL.lean, - -- GL.Binding, - -- GL.Pointers, - -- Interfaces; - -- - -- uniform_Name : aliased C.char_array := C.to_C ("Texture_1[1]"); - -- uniform_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (uniform_Name'unchecked_Access); - -- loc : GL.GLint := glGetUniformLocation (Self.gl_Program, +uniform_Name_ptr); - -- begin - -- put_Line ("2-openGL.Program.lit.set_Uniforms:" & loc'Image); - -- - -- glUniform1i (loc, 1); - -- glActiveTexture (GL_TEXTURE1); - -- glBindTexture (GL_TEXTURE_2D, 5); - -- end; - end set_Uniforms;