anchor.diff:             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.
  
positive.code:   {$IFDEF WDC} OpenGL, {$ENDIF}  dglOpenGL,
    {$IFDEF FPC} GL, LCLIntf, {$ENDIF}
    {$IFDEF MSWindows} Windows, {$ENDIF}
    {$IFDEF Unix} LCLType, {$ENDIF}
    sysutils, Forms, KromUtils;
  
  type KCode = (kNil=0,kPoint=1,kSpline=2,kSplineAnchor=3,kSplineAnchorLength=4,
  
negative.code:   end;
    if not SetDCPixelFormat(h_DC) then
      exit;
    {$IFDEF MSWindows}
    h_RC := wglCreateContext(h_DC);
    {$ENDIF}
    {$IFDEF Unix}
    h_RC := glxCreateContext(h_DC);
    {$ENDIF}
    if h_RC=0 then
    begin
      MessageBox(HWND(nil), 'Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
      exit;
    end;
    {$IFDEF MSWindows}
    if not wglMakeCurrent(h_DC, h_RC) then
    {$ENDIF}
    {$IFDEF Unix}
    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);
      exit;
  