anchor.diff:    ANTIALIASED_QUALITY,FF_DONTCARE or DEFAULT_PITCH,
     'Terminal');
     SelectObject(h_dc,font);
  +  {$IFDEF MSWindows}
     wglUseFontBitmaps(h_dc,0,128,20000);
  +  {$ENDIF}
  +  {$IFDEF Unix}
  +  //TODO need to emulate these functions (with freetype you should be able to code a multi platform solution).
  +  {$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;
  