anchor.diff:  function SetDCPixelFormat(h_DC:HDC):boolean;
   {$IFDEF MSWindows}
   //this function looks like not for Linux at all
  +//@Vitautas: Perhaps, I don't know for sure. I hope you will find an analog in Unix :)
   var
     nPixelFormat: Integer;
     PixelDepth:integer;
     pfd: TPixelFormatDescriptor;
   
     {$IFDEF Unix}
  +//@Vitautas: All these fields are memmbers of record pfd:
  +{pfd: record 
  +  nSize, 
  +  nVersion... 
  +end;}
     nSize, nVersion, dwFlags, iPixelType, cColorBits, cRedBits,
     cRedShift, cGreenBits, cGreenShift, cBlueBits, cBlueShift,
     cAlphaBits, cAlphaShift, cAccumBits, cAccumRedBits, cAccumGreenBits,
  
positive.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);
  
negative.code: unit KromOGLUtils;
  {$IFDEF VER140} {$DEFINE WDC} {$ENDIF}  // Delphi 6
  {$IFDEF VER150} {$DEFINE WDC} {$ENDIF}  // Delphi 7
  {$IFDEF VER220} {$DEFINE WDC} {$ENDIF}  // Delphi XE
  interface
  uses
    {$IFDEF WDC} OpenGL, {$ENDIF}  dglOpenGL,
  