/Kartya {
% eljárás a kártyarajzolásra
newpath
0 5 moveto
0 100 60 100 5 arcto
4 {pop} repeat
% kiveszi a 4 legfels? elemet a veremb?l
60 100 60 0 5 arcto
4 {pop} repeat
% kiveszi a 4 legfels? elemet a veremb?l
60 0 0 0 5 arcto
4 {pop} repeat
% kiveszi a 4 legfels? elemet a veremb?l
0 0 0 100 5 arcto
4 {pop} repeat
% kiveszi a 4 legfels? elemet a veremb?l
0 exch 1 setrgbcolor
% megcseréli a verem tetején lev? két elemet
fill
} def
/Sziv {
% eljárás szívrajzolásra
newpath
30 20 moveto
20 60 10 180 0 arcn
40 60 10 180 0 arcn
30 20 lineto
1 0 0 setrgbcolor
fill
} def
150 300 translate
2 2 scale
-90 rotate
0 .09 .9 {
% for i:=0 to 9, lépés 0.9
Kartya
Sziv
10 rotate
} for
showpage