anchor.diff:    if not wglMakeCurrent(h_DC, h_RC) then
     {$ENDIF}
     {$IFDEF Unix}
  -  if not glxMakeCurrent(h_DC, h_RC) then
  +  //if not glxMakeCurrent(h_DC, h_RC) then
     {$ENDIF}
     begin
       MessageBox(HWND(nil), 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
  
positive.code: 
  TColor4 = cardinal;
  
  procedure SetRenderFrame(const RenderFrame:HWND; out h_DC: HDC; out h_RC: HGLRC);
  procedure SetRenderDefaults();
  function SetDCPixelFormat(h_DC:HDC):boolean;
  procedure CheckGLSLError(FormHandle:hWND; Handle: GLhandleARB; Param: GLenum; ShowWarnings:boolean; Text:string);
      procedure BuildFont(h_DC:HDC; FontSize:integer; FontWeight:word=FW_NORMAL);
  procedure glPrint(text: string);
  
negative.code: procedure glkQuad(Ax,Ay,Bx,By,Cx,Cy,Dx,Dy:single);
  procedure glkRect(Ax,Ay,Bx,By:single);
  procedure glkMoveAALines(DoShift:boolean);
  procedure kSetColorCode(TypeOfValue:KCode;IndexNum:integer);
  procedure kGetColorCode(RGBColor:Pointer;var TypeOfValue:KCode;var IndexNum:integer);
  
  