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

opengl.renderer: Rid unneeded extra checks for GL errors.

Browse Source
This commit is contained in:
Rod Kay
2025-03-26 16:51:52 +11:00
parent 87d9031e1d
commit e36c665501
2 changed files with 0 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -600,12 +600,10 @@ is
begin begin
Tasks.check; Tasks.check;
Errors.log;
if clear_Frame if clear_Frame
then then
Self.clear_Frame; Self.clear_Frame;
Errors.log;
end if; end if;
--------------------- ---------------------
@@ -627,14 +625,12 @@ is
or ( the_Visual.Model.opaque_Geometries = null or ( the_Visual.Model.opaque_Geometries = null
and the_Visual.Model. lucid_Geometries = null) and the_Visual.Model. lucid_Geometries = null)
then then
Errors.log;
the_Visual.Model.create_GL_Geometries (Self.Textures'Access, Self.Fonts); the_Visual.Model.create_GL_Geometries (Self.Textures'Access, Self.Fonts);
-- put_Line ("Rebuild"); -- put_Line ("Rebuild");
elsif the_Visual.Model.is_Modified elsif the_Visual.Model.is_Modified
then then
the_Visual.Model.modify; the_Visual.Model.modify;
Errors.log;
end if; end if;
declare declare
@@ -665,12 +661,8 @@ is
end; end;
end; end;
put_Line ("the_Visuals (" & Each'Image & ") =>");
Errors.log;
end loop; end loop;
Errors.log;
-- State sort opaque geometries and render them. -- State sort opaque geometries and render them.
-- --

2
3-mid/opengl/source/opengl-renderer.adb
View File

@@ -34,7 +34,6 @@ is
use GL.Binding; use GL.Binding;
check_is_OK : constant Boolean := openGL.Tasks.Check with Unreferenced; check_is_OK : constant Boolean := openGL.Tasks.Check with Unreferenced;
begin begin
Errors.log;
glClearColor (GLfloat (to_Primary (Self.Background.Primary.Red)), glClearColor (GLfloat (to_Primary (Self.Background.Primary.Red)),
GLfloat (to_Primary (Self.Background.Primary.Green)), GLfloat (to_Primary (Self.Background.Primary.Green)),
GLfloat (to_Primary (Self.Background.Primary.Blue)), GLfloat (to_Primary (Self.Background.Primary.Blue)),
@@ -50,7 +49,6 @@ is
glEnable (GL_CULL_FACE); glEnable (GL_CULL_FACE);
Errors.log; Errors.log;
end clear_Frame; end clear_Frame;