OPiMedia

Koch snowflake in PostScript

Jan 24th, 2021
774
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. %!PS-Adobe-3.0 EPSF-3.0
  2. %%BoundingBox: 0 0 110 120
  3. %%EndComments
  4. % Koch snowflake in PostScript
  5. % (c) Olivier Pirson --- http://www.opimedia.be/
  6. /left {% angle
  7.     rotate
  8. } def
  9.  
  10. /right {% angle
  11.     neg rotate
  12. } def
  13.  
  14.  
  15. /flock_side {% len, ite
  16.     /ite exch def
  17.  
  18.     ite 0 gt {
  19.         /len exch 3 div def
  20.         /ite ite 1 sub def
  21.  
  22.         len ite
  23.         len ite
  24.         len ite
  25.         len ite flock_side
  26.         60 left
  27.         flock_side
  28.         120 right
  29.         flock_side
  30.         60 left
  31.         flock_side
  32.     } {
  33.         0 rlineto
  34.     } ifelse
  35. } def
  36.  
  37.  
  38. .1 setlinewidth
  39. 5 89 moveto
  40.  
  41. 100 7
  42. /ite exch def
  43. /len exch def
  44.  
  45. len ite
  46. len ite
  47.  
  48. len ite flock_side
  49.  
  50. 120 right
  51. flock_side
  52.  
  53. 120 right
  54. flock_side
  55.  
  56. stroke
  57. %%EOF
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×