%!
% nastavení velikosti média
1 dict dup /PageSize [40 40] put setpagedevice
% definice zkratky pro příkaz curveto
/c { curveto } def
% uložíme na zásobník dva parametry
% příkaz translate je vyzvedne a provede
% nastavení souřadného systému
-15.7606 -35 translate
% nová cesta
newpath
% posun pera
46.3294 35 moveto
% několik Bézierových křivek:
% curveto odebírá ze zásobníku 6 parametrů:
% x1 y1 x2 y2 x3 y3
% pero se přesune do [x3,y3]
% s použitím řídících bodů [x1,y1] a [x2,y2]
29.2607 39.8018 16.8406 59.5148 15.7606 65.2856 c
17.6206 70.885 22.9607 73.9362 25.5407 74.355 c
27.5207 73.0986 31.7207 67.0067 32.5607 64.2173 c
31.3007 62.3182 29.0207 61.0105 27.4007 60.3524 c
27.8207 58.6772 35.5594 48.1696 41.1854 46.6044 c
41.7839 48.2297 43.1597 50.5775 45.0735 51.8417 c
47.8843 51.0591 53.9883 46.8451 55.305 44.9188 c
54.9459 42.3302 51.8936 36.9724 46.3294 35 c
% uzavření cesty
closepath
% vyplnění oblasti ohraničené cestou
fill
% vykreslení stránky
showpage