Cairo és freepascal

Freepascal, lazarusból szeretném használni a Cairo-t.

Addig el is jutottam, hogy .png képet minden további nélkül létre tudok hozni.
Mivel nyomtatni is szeretnék, postscriptet is elő kellene állítanom. A cairo unit csak és szigorúan a cairo.h-ban lévő deklarációkat tartalmazza, ezt ezért kibővítettem ideiglenesen a cairo-ps.h deklarációival.

A lenti kód részben mükszik is, de vagy üres fájlt hoz létre, vagy létrehozza a .ps fájlt, de egy 1x1 pontos üres dokumentum az eredmény, ami mindent tartalmaz, de BoundingBox 0 0 1 1 bejegyzést tartalmaz, ill. a dokumentum nem rendelkezik tartalmi résszel.

köszönök bármi féle segítséget.

program project1;


{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, Cairo
{ add your units here };
var
surface: Pcairo_surface_t;
cr: Pcairo_t;

begin
surface := cairo_ps_surface_create('/home/zsolti/cairoprb.ps', 500, 800);

cr := cairo_create(surface);

cairo_select_font_face (cr, 'courier new', CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_BOLD);
cairo_set_font_size(cr, 8);
cairo_set_source_rgb(cr, 0, 0, 0);
cairo_move_to(cr, 20,10);
cairo_show_text(cr,'Hello world !');
cairo_show_page(cr);

cairo_destroy(cr);

cairo_surface_destroy(surface);

end.