home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / fan.bug < prev    next >
Text File  |  1989-11-02  |  896b  |  77 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "fan   :d :a
  8. if :d < 0 [stop]
  9. fd :d
  10. bk :d - 5
  11. lt :a
  12. fan :d - 3 :a
  13. end
  14.  
  15. to "fan2   :d :a
  16. if :d < 0 [stop]
  17. fd :d
  18. bk :d - 5
  19. lt :a
  20. fan2 :d - 3 :a + 1
  21. end
  22.  
  23. to "fan3   :d :a
  24. if :d < 0 [stop]
  25. fd :d
  26. bk :d - 5
  27. lt :a
  28. fan3 :d - 3 :a - 1
  29. end
  30.  
  31. to "start  
  32. pu home pd
  33. end
  34.  
  35. to "swirl   :d :a
  36. start fan.lt :d :a start fan.rt :d :a
  37. start2 fan.lt :d :a start2 fan.rt :d :a
  38. end
  39.  
  40. to "fan.lt   :d :a
  41. if :d < 0 [stop]
  42. fd :d
  43. bk :d - 5
  44. lt :a
  45. fan.lt :d - 3 :a
  46. end
  47.  
  48. to "fan.rt   :d :a
  49. if :d < 0 [stop]
  50. fd :d
  51. bk :d - 5
  52. rt :a
  53. fan.rt :d - 3 :a
  54. end
  55.  
  56. to "start2  
  57. pu home setheading 180 pd
  58. end
  59.  
  60. to "starts  :ang
  61. pu home rt :ang pd
  62. end
  63.  
  64. to "swirls  :d :a :ang
  65. starts :ang
  66. fan.lt :d :a
  67. starts :ang
  68. fan.rt :d :a
  69. swirls :d :a :ang + 90
  70. end
  71.  
  72. t :ang pd
  73. end
  74.  
  75. to "swirls  :d :a :ang
  76. starts :ang
  77. fan.lt :d