Példák
Falióra:
/doCircle{0 361 arc stroke} def
newpath 20 setlinewidth
1 0 0 setrgbcolor
300 300 150 doCircle
300 300 translate
5 setlinewidth
12 -1 1 {0 0 1 setrgbcolor
5 setlinewidth
0 125 moveto
0 15 rlineto
6 rotate
stroke
1 setlinewidth
0.8 setgray
4 {
0 133 moveto
0 5 rlineto
6 rotate
} repeat
stroke
}
for
stroke
5 setlinewidth
0.3 setgray
-300 -300 translate
295 288 moveto
55 130 rlineto
1 setlinecap
stroke
308 295 moveto
-75 51 rlineto
1 setlinecap
7 setlinewidth
stroke
300 300 moveto
300 300 lineto
14 setlinewidth
0 setgray
stroke
show
/Palatino-Roman findfont 20 scalefont setfont
/szam 1 def
/st 2 string def
12 {
293 295 moveto
29.9 szam mul cos -116 mul 29.9 szam mul sin 116 mul rmoveto
szam 8 add 12 mod 1 add st cvs show
/szam szam 1 add def
} repeat
showpage
a lap teteje