Példák
Csiga:
/i 1 def
/tegla{translate 0 0 moveto 70 0 rlineto 0 40 rlineto -70 0 rlineto closepath
gsave 1 0.1 0 setrgbcolor fill grestore 0 setgray stroke}def
/fal{ 1 1 6 {gsave -120 200 80 i mul add translate
1 1 10 {70 0 tegla}for -735 40 translate 1 1 10 {70 0 tegla}for grestore /i i 1 add def}for}def
/csvonal { x y r 0 180 arc }def
/x 0 def
/y 0 def
/r 25 def
/xno {/x x 15 add def }def
/xcs {/x x 15 sub def }def
/yno {/y y 15 add def }def
/rno {/r r 15 add def}def
newpath
/csiga {
200 500 translate
gsave
.43 .10 .10 setrgbcolor
1 1 4{ csvonal 180 rotate xno rno fill csvonal 180 rotate xcs rno fill pop}for
csvonal fill
145 0 moveto
0 -80 rlineto
-80 0 rlineto
0 80 rlineto
closepath fill
1 .8 scale
115 -80 30 0 180 arcn fill
grestore
/x 0 def /y 0 def /r 25 def
1 1 4{ csvonal 180 rotate xno rno stroke csvonal 180 rotate xcs rno stroke pop}for
csvonal stroke
145 0 moveto
145 -80 lineto stroke
}def
/test{
/szem {translate 1 setgray 0 0 10 0 360 arc fill 0 setgray 0 0 10 0 360 arc stroke
0 2 5 0 360 arc fill
}def
/csap {translate 0 0 moveto 2 20 rlineto 2 40 40 35 10 arcto 20 10 5 20 7 arcto -2 -20 rlineto
gsave fill grestore 0 setgray
stroke}def
gsave
420 600 moveto currentpoint translate
gsave
.85 .8 0.1 setrgbcolor
1 .8 scale
0 0 50 0 360 arc fill
gsave
1 1.5 scale
-9 13 szem
30 3 szem
grestore
gsave
-9 50 csap
.85 .8 .1 setrgbcolor
12 rotate -20 -5 csap
grestore
0 0 0 setrgbcolor
0 0 50 180 -90 arcn stroke
0 12 translate
0 0 50 -50 235 arcn 4 setlinewidth stroke
grestore
.85 .8 0.1 setrgbcolor
1 .8 scale
0 -50 moveto
-25 -50 -25 -75 25 arcto -25 -300 -40 -300 40 arcto -150 -250 -250 -350 60 arcto
-300 -400 -400 -250 100 arcto 300 180 rlineto -55 -100 -55 -95 25 arcto -50 0 lineto -50 0 moveto
gsave
fill
grestore 0 0 0 setrgbcolor stroke
grestore
1 1 scale gsave 28 rotate 200 -150 translate csiga grestore }def
1 1.25 scale 290 325 320 0 360 arc clip 1 .8 scale
0 0 moveto 600 0 rlineto 0 900 rlineto -600 0 rlineto closepath 0 .5 1 setrgbcolor fill
0 0 moveto 600 0 rlineto 0 300 rlineto -600 0 rlineto closepath 0 1 .5 setrgbcolor fill
0 setgray
gsave
fal
grestore
0 -200 translate
test
showpage
a lap teteje