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

opengl: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-10-22 14:11:39 +11:00
parent 3e11a52f5d
commit 50821bb787
60 changed files with 304 additions and 520 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb
View File

@@ -697,9 +697,9 @@ is
Heap_less_than'unrestricted_Access);
end if;
glDisable (GL_BLEND);
glEnable (GL_DEPTH_TEST);
glDepthMask (gl_TRUE); -- Make depth buffer read/write.
glDisable (GL_BLEND); Errors.log;
glEnable (GL_DEPTH_TEST); Errors.log;
glDepthMask (gl_TRUE); Errors.log; -- Make depth buffer read/write.
for Each in 1 .. opaque_Count
loop
@@ -710,6 +710,7 @@ is
current_Program := the_Couple.Geometry.Program;
end if;
current_Program.enable; -- TODO: Only need to do this when program changes ?
current_Program.mvp_Transform_is (the_Couple.Visual.mvp_Transform);
current_Program.model_Matrix_is (the_Couple.Visual.Transform);
@@ -759,13 +760,13 @@ is
Heap_less_than'unrestricted_Access);
end if;
glDepthMask (gl_False); -- Make depth buffer read-only, for correct transparency.
glDepthMask (gl_False); Errors.log; -- Make depth buffer read-only, for correct transparency.
glEnable (GL_BLEND);
gl.lean.glBlendEquation (gl.lean.GL_FUNC_ADD);
glEnable (GL_BLEND); Errors.log;
gl.lean.glBlendEquation (gl.lean.GL_FUNC_ADD); Errors.log;
glBlendFunc (GL_SRC_ALPHA,
GL_ONE_MINUS_SRC_ALPHA);
GL_ONE_MINUS_SRC_ALPHA); Errors.log;
for Each in 1 .. lucid_Count
loop
@@ -786,7 +787,7 @@ is
the_Couple.Geometry.render;
end loop;
glDepthMask (gl_True);
glDepthMask (gl_True); Errors.log;
end;
Errors.log;