/i { 72 mul } def
% eljárás, amely 72-vel szoroz
/piros {stroke newpath
1 0 0 setrgbcolor} def
/zold {stroke newpath
0 1 0 setrgbcolor}def
/fekete {stroke newpath
0 0 0 setrgbcolor}def
/sarga {stroke newpath
1 1 0 setrgbcolor} def
/kek {stroke newpath
0 0 1 setrgbcolor} def
0.25 i setlinewidth
piros
6.5 i 5.5 i 1 i 45 225 arc
% megfelel görbék rajzolása
zold
5.25 i 4.5 i 1 i -45 135 arc
fekete
4 i 5.5 i 1 i 45 225 arc
sarga
2.75 i 4.5 i 1 i -45 135 arc
kek
1.5 i 5.5 i 1 i 45 225 arc
1.5 i 5.5 i 1 i 225 45 arc
sarga
2.75 i 4.5 i 1 i 135 -45 arc
fekete
4 i 5.5 i 1 i 225 45 arc
zold
5.25 i 4.5 i 1 i 135 -45 arc
piros
6.5 i 5.5 i 1 i 225 45 arc
stroke
showpage