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

  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "shapes   :n
  8. tri :n
  9. square :n
  10. rectangle :n
  11. end
  12.  
  13. to "tri   :end
  14. repeat 3 [fd :n rt 120]
  15. end
  16.  
  17. to "square   :n
  18. repeat 4 [fd :n rt 90]
  19. end
  20.  
  21. to "rectangle   :n
  22. repeat 2 [fd :n rt 90 fd :n * 2 rt 90]
  23. end
  24.  
  25. to "anyshape  :r :d
  26. repeat :r [fd :d rt 360 / :r]
  27. end
  28.  
  29. 
  30. to "rectangle   :n
  31. repeat 2 [fd :n rt 90 fd