/DrawHeart {
% eljárás szívrajzolásra
/size exch def
% csere a verem tetején lév? két elem között
/offset size 4 div def % offset=size/4
newpath
0 0 moveto
size size offset size offset add 0 size curveto
offset neg size offset add size neg size 0 0 curveto
closepath
} def
/inch {36 mul} def
9 inch 6 inch translate
8 inch DrawHeart
gsave
1.0 0.0 0.1 setrgbcolor fill
grestore
clip
% a piros szív lesz a vágási pálya
newpath
0 0 moveto
% szív egyik oldalát lefed? téglalap
0 inch 10 inch rlineto
5 inch 0 rlineto
0 -10 inch rlineto
closepath
clip
% téglalap lesz az újabb vágási pálya
0 setgray
% feketére festi a szív téglalapos oldalát
fill
showpage