home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / mandala.bug < prev    next >
Text File  |  1989-11-13  |  768b  |  47 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "cc  :RADIUS :X :Y
  8. IF :RADIUS > 100 [STOP]
  9. PU SETXY :X :Y
  10. SETX XCOR - :RADIUS
  11. PD CIRCLER :RADIUS
  12. REPEAT 4 [FD :RADIUS RT 90 FD :RADIUS]
  13. BK :RADIUS
  14. MAKE "RADIUS SQRT ( 2 * ( :RADIUS * :RADIUS ) )
  15. CC :RADIUS :X :Y
  16. end
  17.  
  18. to "square  
  19. SETH 225 FD :RADIUS SETH 0
  20. MAKE "SIDE SQRT ( 2 * ( :RADIUS * :RADIUS ) )
  21. PD REPEAT 4 [FD :SIDE RT 90]
  22. MAKE "RADIUS :SIDE / 2
  23. end
  24.  
  25. to "circ  
  26. PU SETXY :X :Y
  27. SETX XCOR - :RADIUS
  28. PD CIRCLER :RADIUS
  29. PU SETXY :X :Y
  30. end
  31.  
  32. to "circler  :RADIUS
  33. LOCAL "STEP
  34. MAKE "STEP 2 * :RADIUS * 3.1416 / 36
  35. REPEAT 36 [RT 5 FD :STEP RT 5]
  36. end
  37.  
  38. to "mandala  :RADIUS :X :Y
  39. CIRC
  40. SQUARE
  41. IF :RADIUS < 10 [STOP]
  42. MANDALA :RADIUS :X :Y
  43. end
  44.  
  45. make "side "'35.35534
  46. 
  47. end