nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opengl.program.lit: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2024-02-28 19:52:06 +11:00
parent 0a6542a2c5
commit d807a87cc1
1 changed files with 0 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
3-mid/opengl/source/lean/shader/opengl-program-lit.adb
View File

@@ -99,45 +99,6 @@ is
cone_direction_Uniform .Value_is ( Light.cone_Direction); cone_direction_Uniform .Value_is ( Light.cone_Direction);
end; end;
end loop; 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; end set_Uniforms;