diff --git a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb index 1ed8aa4..fe26057 100644 --- a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb +++ b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb @@ -600,12 +600,10 @@ is begin Tasks.check; - Errors.log; if clear_Frame then Self.clear_Frame; - Errors.log; end if; --------------------- @@ -627,14 +625,12 @@ is or ( the_Visual.Model.opaque_Geometries = null and the_Visual.Model. lucid_Geometries = null) then - Errors.log; the_Visual.Model.create_GL_Geometries (Self.Textures'Access, Self.Fonts); -- put_Line ("Rebuild"); elsif the_Visual.Model.is_Modified then the_Visual.Model.modify; - Errors.log; end if; declare @@ -665,12 +661,8 @@ is end; end; - - put_Line ("the_Visuals (" & Each'Image & ") =>"); - Errors.log; end loop; - Errors.log; -- State sort opaque geometries and render them. -- diff --git a/3-mid/opengl/source/opengl-renderer.adb b/3-mid/opengl/source/opengl-renderer.adb index 13751c4..55be02c 100644 --- a/3-mid/opengl/source/opengl-renderer.adb +++ b/3-mid/opengl/source/opengl-renderer.adb @@ -34,7 +34,6 @@ is use GL.Binding; check_is_OK : constant Boolean := openGL.Tasks.Check with Unreferenced; begin - Errors.log; glClearColor (GLfloat (to_Primary (Self.Background.Primary.Red)), GLfloat (to_Primary (Self.Background.Primary.Green)), GLfloat (to_Primary (Self.Background.Primary.Blue)), @@ -50,7 +49,6 @@ is glEnable (GL_CULL_FACE); Errors.log; - end clear_Frame;