anchor.diff:  
   TColor4 = cardinal;
   
  -//this is used really for sth?
  -{$IFDEF MSWindows}
  -procedure SetupVSync(aVSync:boolean);
  -{$ENDIF}
  -
  -function SetDCPixelFormat(h_DC:HDC):boolean;
  -
   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);
  
positive.code:            else glTranslatef(-Value,-Value,0);
  end;
  
  {$IFDEF MSWindows}
  procedure SetupVSync(aVSync:boolean);
  begin
    if WGL_EXT_swap_control then
      wglSwapIntervalEXT(byte(aVSync)); //1 or 0
  end;
  {$ENDIF}
  
  end.
  
negative.code:   {$IFDEF Unix}
    //TODO need to emulate these functions (with freetype you should be able to code a multi platform solution).
    {$ENDIF}
  end;
  
  
  