anchor.diff:  end;
   
   
  -{Lines are drawn between pixels, thus when AA turned on they get blurred.
  -We can negate this by using 0.5 offset
  -Still it's unclear if that works on all GPUs the same..}
  -//After we apply this command we can draw lines over pixels
  -//when everythings done either shift back or PopMatrix
  -procedure glkMoveAALines(DoShift:boolean);
  -const Value=0.5;
  -begin
  -if DoShift then glTranslatef(Value,Value,0)
  -           else glTranslatef(-Value,-Value,0);
  -end;
  -
  -
   //@Vitautas: This function is used to enable/disable V-Sync
   procedure SetupVSync(aVSync:boolean);
   begin
  
positive.code:     procedure SetRenderFrame(RenderFrame:HWND; out h_DC: HDC; out h_RC: HGLRC);
      procedure SetRenderFrameAA(DummyFrame,RenderFrame:HWND; AntiAliasing:byte; out h_DC: HDC; out h_RC: HGLRC);
  
      procedure SetRenderDefaults;
      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: AnsiString);
      procedure glkScale(x:single);
      procedure glkQuad(Ax,Ay,Bx,By,Cx,Cy,Dx,Dy:single);
      procedure glkRect(Ax,Ay,Bx,By:single);
      procedure glkMoveAALines(DoShift:boolean);
      procedure SetupVSync(aVSync:boolean);
  
  
  
negative.code: end;
  
  
  procedure BuildFont(h_DC:HDC; FontSize:integer; FontWeight:word=FW_NORMAL);
  var Font: HFONT;
  begin
  