/jobbra {
/fi fi delta sub def
fi mpi lt { /fi fi pi2 add def } if
} def

/balra {
/fi fi delta add def
fi pi gt { /fi fi pi2 sub def } if
} def

/ment {
x
y
fi
} def

/vissza {
/fi exch def
/y exch def
/x exch def
} def

/xelj { %veremben : i
dup
0 gt {
/i exch def
ment
i
f
f
jobbra
dup
1 sub
xelj
f
balra
dup
1 sub
yelj
jobbra
f
/i exch def
vissza
i
} if
pop
} def

/yelj { %veremben : i
dup
0 gt {
/i exch def
ment
i
f
f
balra
dup
1 sub
yelj
f
jobbra
dup
1 sub
xelj
balra
f
/i exch def
vissza
i
} if
pop
} def

/f {
/x x tav fi cos mul add def
/y y tav fi sin mul add def
x y lineto
} def

/mag { %veremben : i
/i exch def
ment
i
dup
xelj
/i exch def
vissza
i
yelj
} def

/tav 16 def
/x 320 def
/y 0 def
/fi pi 2 div def
x y moveto
8 mag
stroke
showpage