with
     GL,
     GL.Binding,
     openGL.Tasks,
     openGL.Errors,
     interfaces.C;

package body openGL.Renderer
is
   use GL,
       interfaces.C;


   procedure Background_is (Self : in out Item;   Now     : in openGL.Color;
                                                  Opacity : in Opaqueness := 1.0)
   is
   begin
      Self.Background.Primary := +Now;
      Self.Background.Alpha   := to_color_Value (Primary (Opacity));
   end Background_is;



   procedure Background_is (Self : in out Item;   Now : in openGL.lucid_Color)
   is
   begin
      Self.Background := +Now;
   end Background_is;



   procedure clear_Frame (Self : in Item)
   is
      use GL.Binding;
      check_is_OK : constant Boolean := openGL.Tasks.Check with Unreferenced;
   begin
      glClearColor (GLfloat (to_Primary (Self.Background.Primary.Red)),
                    GLfloat (to_Primary (Self.Background.Primary.Green)),
                    GLfloat (to_Primary (Self.Background.Primary.Blue)),
                    GLfloat (to_Primary (Self.Background.Alpha)));
      Errors.log;

      glClear (   GL_COLOR_BUFFER_BIT
               or GL_DEPTH_BUFFER_BIT);
      Errors.log;

      glCullFace (GL_BACK);
      Errors.log;

      glEnable   (GL_CULL_FACE);
      Errors.log;
   end clear_Frame;


end openGL.Renderer;