anchor.diff:  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);
   procedure kSetColorCode(TypeOfValue:KCode;IndexNum:integer);
   procedure kGetColorCode(RGBColor:Pointer;var TypeOfValue:KCode;var IndexNum:integer);
   
  
positive.code:   h_RC := wglCreateContext(h_DC);
    {$ENDIF}
    {$IFDEF Unix}
    h_RC := glxCreateContext(h_DC);
    {$ENDIF}
    if h_RC=0 then
    begin
  
negative.code: 
  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();
  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);
  