home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / haas.bug < prev    next >
Encoding:
Text File  |  1989-02-06  |  2.9 KB  |  139 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "linkertand  
  8. MAKE "T 15
  9. REPEAT 10 [FD :T BK :T PU RT 90 FD 1 LT 90 PD MAKE "T :T + 1]
  10. PU LT 90 FD 10 RT 90 PD
  11. end
  12.  
  13. to "rechertand  
  14. MAKE "T 15
  15. REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
  16. PU RT 90 FD 10 LT 90 PD
  17. end
  18.  
  19. to "haar.l  
  20. LT 60
  21. REPEAT 6 [FD 10 LT 10] PU REPEAT 6 [RT 10 BK 10] PD
  22. RT 60
  23. end
  24.  
  25. to "rechterwang  
  26. REPEAT 2 [REPEAT 18 [FD 2 RT 5] FD 10 REPEAT 18 [FD 2 RT 5]]
  27. end
  28.  
  29. to "haas  
  30. SETUP
  31. LINKERWANG
  32. RIMPEL.LINKS
  33. PU LT 90 FD 40 RT 90 PD SNOR.LINKS
  34. PU RT 90 FD 40 LT 90 PD RECHTERWANG
  35. RIMPEL.RECHTS PU RT 90 FD 40 LT 90 PD
  36. SNOR.RECHTS PU LT 90 FD 31 RT 90 PU BK 33 PD
  37. TANDEN PU FD 39 PD NEUS PU BK 4 PD PU FD 12 PD
  38. HOOFD PU BK 12 PD PU FD 25 LT 90 FD 30 RT 90 PD OOG
  39. PU RT 90 FD 41 LT 90 PD OOG PU LT 90 FD 11 RT 90 PD
  40. PU FD 80 PD OREN PU BK 80 PD
  41. end
  42.  
  43. to "rimple.links  
  44. RT 180 PU REPEAT 18 [RT 5 FD 2]
  45. PD REPEAT 12 [RT 5 FD 2] PU REPEAT 30 [BK 2 LT 5] RT 180 PD
  46. end
  47.  
  48. to "linkeroor  
  49. LT 30 FD 40 RT 60 REPEAT 4 [FD 15 RT 2]
  50. REPEAT 10 [LT 2 BK 15] LT 30 REPEAT 13 [FD 10 RT 3]
  51. RT 57 FD 54 RT 64 FD 70 PU RT 32 FD 25 RT 90 FD 48 RT 90 PD
  52. end
  53.  
  54. to "snor.rechts  
  55. REPEAT 3 [HAAR.R PU BK 3 RT 90 FD 3 LT 80 PD]
  56. PU REPEAT 3 [LT 100 FD 3 RT 90 FD 3] PD
  57. end
  58.  
  59. to "rechteroor  
  60. RT 30 FD 40 LT 60 REPEAT 4 [FD 15 LT 2]
  61. REPEAT 10 [RT 2 BK 15] RT 30
  62. REPEAT 13 [FD 10 LT 3] LT 57 FD 54 LT 64 FD 70
  63. PU LT 32 FD 25 LT 90 FD 48 LT 90 PD
  64. end
  65.  
  66. to "haar.r  
  67. RT 60 REPEAT 6 [FD 10 RT 10] PU
  68. REPEAT 6 [LT 10 BK 10 ] PD LT 60
  69. end
  70.  
  71. to "rimpel.rechts  
  72. RT 180 PU REPEAT 18 [LT 5 FD 2]
  73. PD REPEAT 12 [LT 5 FD 2]
  74. PU REPEAT 30 [BK 2 RT 5] RT 180 PD
  75. end
  76.  
  77. to "oren  
  78. PU LT 90 FD 50 RT 90 PD
  79. LINKEROOR PU RT 90 FD 100 LT 90 PD
  80. RECHTEROOR PU LT 90 FD 50 RT 90 PD
  81. end
  82.  
  83. to "oog  
  84. REPEAT 2 [FD 30 RT 90 FD 19 RT 90] FD 35
  85. REPEAT 30 [RT 6 FD 1] FD 5 PU FD 15 RT 90 FD 9.5 PD
  86. REPEAT 120 [FD 9 BK 9 RT 3] PC 0
  87. REPEAT 100 [FD 3 BK 3 RT 3] PC 3 RT 60 PU FD 9.5 RT 90 BK 15 PD
  88. end
  89.  
  90. to "hoofd  
  91. LT 90 PU REPEAT 5 [RT 180 / 25 FD 7] PD
  92. REPEAT 20 [RT 180 / 25 FD 7] PU RT 180
  93. REPEAT 25 [FD 7 LT 180 / 25]
  94. REPEAT 5 [LT 180 / 25 FD 7] PD
  95. REPEAT 20 [LT 180 / 25 FD 7] PU
  96. REPEAT 25 [BK 7 RT 180 / 25] LT 90
  97. end
  98.  
  99. to "rimpel.links  
  100. RT 180 PU REPEAT 18 [RT 5 FD 2]
  101. PD REPEAT 12 [RT 5 FD 2]
  102. PU REPEAT 30 [BK 2 LT 5]
  103. RT 180 PD
  104. end
  105.  
  106. to "snor.links  
  107. REPEAT 3 [HAAR.L PU BK 3 LT 90 FD 3 RT 80 PD]
  108. PU REPEAT 3 [RT 100 FD 3 LT 90 FD 3] PD
  109. end
  110.  
  111. to "linkerwang  
  112. REPEAT 2 [REPEAT 18 [FD 2 LT 5] FD 10 REPEAT 18 [FD 2 LT 5]]
  113. end
  114.  
  115. to "neus  
  116. LT 30 REPEAT 30 [FD 20 BK 20 RT 2]
  117. LT 30
  118. end
  119.  
  120. to "tanden   
  121. PU RT 90 FD 2 LT 90 PD RECHTERTAND
  122. PU LT 90 FD 21 RT 90 PD LINKERTAND
  123. PU RT 90 FD 12 LT 90 PD
  124. end
  125.  
  126. to "setup  
  127. PU BK 80 PD HT
  128. end
  129.  
  130. to "rechtertand  
  131. MAKE "T 15
  132. REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
  133. PU RT 90 FD 10 LT 90 PD
  134. end
  135.  
  136. make "t "'25
  137. nd  
  138. MAKE "T 15
  139. R