Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %!PS-Adobe-3.0 EPSF-3.0
- %%BoundingBox: 0 0 110 120
- %%EndComments
- % Koch snowflake in PostScript
- % (c) Olivier Pirson --- http://www.opimedia.be/
- /left {% angle
- rotate
- } def
- /right {% angle
- neg rotate
- } def
- /flock_side {% len, ite
- /ite exch def
- ite 0 gt {
- /len exch 3 div def
- /ite ite 1 sub def
- len ite
- len ite
- len ite
- len ite flock_side
- 60 left
- flock_side
- 120 right
- flock_side
- 60 left
- flock_side
- } {
- 0 rlineto
- } ifelse
- } def
- .1 setlinewidth
- 5 89 moveto
- 100 7
- /ite exch def
- /len exch def
- len ite
- len ite
- len ite flock_side
- 120 right
- flock_side
- 120 right
- flock_side
- stroke
- %%EOF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement