home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / puffer.bug < prev    next >
Text File  |  1989-02-05  |  2KB  |  190 lines
  1. to "poly  :d :a
  2. FORWARD :d
  3. RIGHT :a
  4. POLY :d :a
  5. end
  6.  
  7. to "open  
  8. PC 0 LOWER.JAW
  9. RT 21.5 PC 1 LOWER.JAW
  10. end
  11.  
  12. to "shut  
  13. PC 0 LOWER.JAW
  14. LT 21.5 PC 1 LOWER.JAW
  15. end
  16.  
  17. to "mouth   
  18. FD 30 RT 100 FD 50
  19. RT 160 FD 50 LT 160
  20. REPEAT 6 [ SHUT OPEN ]
  21. end
  22.  
  23. to "neck1   
  24. RT 180
  25. REPEAT 15 [FD 5 LT 10]
  26. REPEAT 12 [RT 10 FD 3]
  27. LT 60 BK 15
  28. MOUTH
  29. end
  30.  
  31. to "chew  
  32. PU
  33. SETXY 87.9909 81.7679
  34. SETH 0 HT
  35. PD RT 10
  36. REPEAT 3 [SHUT OPEN]
  37. end
  38.  
  39. to "head  
  40. UPPER.JAW
  41. RT 10
  42. LOWER.JAW
  43. end
  44.  
  45. to "head.shut  
  46. FD 30 RT 100 FD 50
  47. RT 160 FD 50 LT 180
  48. FD 40 RT 160 FD 40
  49. end
  50.  
  51. to "tri  :N
  52. REPEAT 3 [FD :N RT 120 ]
  53. end
  54.  
  55. to "points  
  56. START
  57. SETH -60
  58. REPEAT 7 [TRI 8 RT 60 FD 8 LT 50]
  59. PU
  60. REPEAT 5 [TRI 8 RT 60 FD 8 LT 50]
  61. PD
  62. REPEAT 6 [TRI 8 RT 60 FD 8 LT 50]
  63. end
  64.  
  65. to "legs  
  66. START
  67. SETH 90
  68. TRI 15 FD 8 TRI 15
  69. FD 64 TRI 15 FD 8
  70. TRI 15
  71. end
  72.  
  73. to "tail  
  74. START
  75. SETH 330
  76. REPEAT 3 [FD 5 RT 10]
  77. REPEAT 13 [TRI 5 FD 5 LT 10]
  78. REPEAT 11 [TRI 5 FD 5 RT 10]
  79. LT 110 BK 5 TRI 10
  80. end
  81.  
  82. to "neck  
  83. RT 180
  84. REPEAT 15 [FD 5 LT 10]
  85. REPEAT 12 [RT 10 FD 3]
  86. LT 60
  87. HEAD
  88. SETH 0
  89. FD 5 LT 90
  90. REPEAT 15 [TRI 4 FD 4 LT 10]
  91. REPEAT 12 [TRI 4 FD 4 RT 14]
  92. end
  93.  
  94. to "start   
  95. PU SETXY -25 0
  96. PD
  97. end
  98.  
  99. to "halfcircle  :N
  100. REPEAT 7 [FD :N RT 10]
  101. PU REPEAT 5 [FD :N RT 10]
  102. PD REPEAT 6 [FD :N RT 10]
  103. end
  104.  
  105. to "body  
  106. HALFCIRCLE 8
  107. FD 8 RT 90 FD 90 BK 90
  108. end
  109.  
  110. to "puff  
  111. PALETTE 0 PC 1
  112. START
  113. BODY
  114. NECK
  115. TAIL
  116. LEGS
  117. POINTS
  118. WINGS
  119. REPEAT 3 [CHEW BREATHE]
  120. end
  121.  
  122. to "lower.jaw  
  123. RT 180 FD 13.9 LT 100 FD 40
  124. LT 160 FD 40 RT 80
  125. end
  126.  
  127. to "upper.jaw 
  128. FD 15 RT 94 FD 45 RT 86
  129. FD 9 RT 86 FD 45 RT 94
  130. EYE
  131. NOSTRILS
  132. PU SETXY 87.9909 81.7679
  133. PD
  134. end
  135.  
  136. to "nostrils 
  137. PU SETXY 124 95
  138. PD CIRCLE 4
  139. end
  140.  
  141. to "circle  :R
  142. REPEAT 36 [RT 5 FD .174532 * :R RT 5]
  143. end
  144.  
  145. to "eye  
  146. PC 3
  147. PU SETXY 94 90 PD CIRCLE 3
  148. PC 2 SETXY 97 90 FD 1 BK 1 PC 1
  149. end
  150.  
  151. to "flame  
  152. PC 2 FD 50 PC 0 BK 50
  153. end
  154.  
  155. to "tip  
  156. REPEAT 10 [FD 1 LT 18]
  157. FD 30 BK 20 LT 180
  158. end
  159.  
  160. to "wings  
  161. PU SETXY 40 25 SETH 0 PD REPEAT 6 [FD 8 LT 5]
  162. FD 40 REPEAT 6 [TIP]
  163. BK 20 LT 180 REPEAT 7 [FD 3 LT 10]
  164. end
  165.  
  166. to "smoke  
  167. PU SETXY 127 95 SETH 30 PD PC 3
  168. FD 12 PC 0 BK 12
  169. end
  170.  
  171. to "breathe  
  172. REPEAT 5 [FIRE RT 5 FIRE LT 5]
  173. REPEAT 3 [SMOKE]
  174. end
  175.  
  176. to "fire 
  177. PU SETXY 87.9909 81.7679 PC 2 PD
  178. SETH 95 FLAME
  179. end
  180.  
  181.  
  182. REPEAT 5 [FIRE RT 5 FIRE LT 5]
  183. REPEAT 3 [SMOKE]
  184. end
  185.  
  186. to "fire 
  187. PU SETXY 87.9909 81.7679 PC 2 PD
  188. SETH 95 FLAME
  189. end
  190.