home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / spider.bug < prev    next >
Text File  |  1989-11-13  |  256b  |  22 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "tri  :n
  8. repeat 3 [fd :n rt 120]
  9. end
  10.  
  11. to "hexagon  :n
  12. repeat 6 [tri :n rt 60]
  13. end
  14.  
  15. to "spiderweb  :n :x :y
  16. hexagon :n
  17. hexagon :n + :x
  18. hexagon :n + ( :x * :y )
  19. end
  20.  
  21. on  :n
  22. repeat 6