home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / crab.bug < prev    next >
Text File  |  1989-02-06  |  4KB  |  203 lines
  1. PPROP ".SYSTEM "BURY "TRUE
  2. TO CIRCLER :RADIUS
  3. LOCAL "STEP
  4. MAKE "STEP 2 * :RADIUS * 3.1416 / 36
  5. REPEAT 36 [RT 5 FD :STEP RT 5]
  6. END
  7.  
  8. TO CIRCLEL :RADIUS
  9. LOCAL "STEP
  10. MAKE "STEP 2 * :RADIUS * 3.1416 / 36
  11. REPEAT 36 [LT 5 FD :STEP LT 5]
  12. END
  13.  
  14. TO FILLCR :N
  15. IF :N = 0 [STOP]
  16. FD 1 RT 90 ARCL :N 180 LT 90 FD 1 LT 90 ARCL :N - 1
  17. FILLB :N - 1
  18. END
  19.  
  20. TO TRI1 :S
  21. MAKE "POSNOW POS
  22. FD :S RT 90 FD :S SETPOS :POSNOW
  23. END
  24.  
  25. TO FT5 
  26. FT51 30
  27. SETH 0
  28. END
  29.  
  30. TO CLAW 
  31. FD 15 PU LT 90 FD 180 PD RT 22.5
  32. CLAWS RT 180 FILLC 40 XC
  33. END
  34.  
  35. TO J 
  36. SETH 0 LT 22.5 PD FILLC2 40
  37. BK 80 SETH 0 LT 90 PU FD 30 RT 90 FD 30 RT 90
  38. END
  39.  
  40. TO FILLFT1 :N
  41. IF :N = 0 [STOP]
  42. SETH 0
  43. TRI1 :N
  44. FILLFT1 :N - 1
  45. END
  46.  
  47. TO LEGS2 
  48. RT 180 ARCR 20 90
  49. PU FD 70 RT 90 FD 22.5 LT 90 PD
  50. ARCR 15 90 PU BK 20 LT 90 PD
  51. ARCR 17.5 90 PU BK 35 LT 90 PD
  52. ARCR 20 90
  53. END
  54.  
  55. TO LEGS 
  56. PU FD 65 RT 90 PD ARCL 15 90 PU BK 22
  57. RT 90 PD ARCL 17.5 90 PU RT 180 FD 35
  58. LT 90 BK 5 PD ARCL 20 90
  59. END
  60.  
  61. TO LIDS 
  62. LT 90 PU FD 90 RT 90 PD FD 15
  63. ARCR 7.5 180 LT 180 ARCL 7.5 180
  64. FD 15 RT 90 FD 10 RT 90 FD 15
  65. ARCL 7.5 180
  66. END
  67.  
  68. TO FILLC2 :N
  69. IF :N = 0 [STOP]
  70. FD 1 RT 90 ARCL :N 180 LT 90 FD 1 LT 90 ARCR :N - 1 180 RT 90
  71. FILLC2 :N - 1
  72. END
  73.  
  74. TO FILLC :N
  75. IF :N = 0 [STOP]
  76. LT 180 FD 1 LT 90 ARCR :N 180 RT 90
  77. FD 1 RT 90 ARCL :N - 1 180 LT 90
  78. FILLB :N - 1
  79. END
  80.  
  81. TO CLAWS 
  82. ARCR 40 180 RT 90 FD 80 RT 180
  83. END
  84.  
  85. TO FT1 
  86. PU RT 90 FD 15 RT 90 FD 160 RT 90 FD 15 LT 180 PD FILLFT1 15
  87. END
  88.  
  89. TO EYES 
  90. RT 180 FD 40
  91. CIRCLEL 5 CIRCLEL 4.5
  92. CIRCLEL 4 CIRCLEL 3.5
  93. CIRCLEL 3 CIRCLEL 2.5
  94. CIRCLEL 2 CIRCLEL 1.5
  95. CIRCLEL 1 CIRCLEL 0.5
  96. FD 30
  97. CIRCLEL 5 CIRCLEL 4.5
  98. CIRCLEL 4 CIRCLEL 3.5
  99. CIRCLEL 3 CIRCLEL 2.5
  100. CIRCLEL 2 CIRCLEL 1.5
  101. CIRCLEL 1 CIRCLEL 0.5
  102. END
  103.  
  104. TO BODY 
  105. RT 90 PU FD 55 PD RT 90 ARCR 55 180
  106. RT 90 FD 110 RT 180
  107. END
  108.  
  109. TO TITLE 
  110. TEXTSCREEN
  111. CLEARTEXT
  112. PRINT [...............CRAB...............]
  113. PRINT " 
  114. PRINT [CREATED BY]
  115. PRINT [...........JOSH FELTMAN]
  116. PRINT [...........CHRISTOPHER PURCELL]
  117. PRINT [...........MARVIN CHOW]
  118. PRINT [...........MRS. KING, CONSULTANT]
  119. PRINT [DORCHESTER SCHOOL, WOODCLIFF LAKE, NJ]
  120. WAIT 300
  121. FULLSCREEN
  122. END
  123.  
  124. TO FILLFT :N
  125. IF :N = 0 [STOP]
  126. SETH 0 TRI :N
  127. FILLFT :N - 1
  128. END
  129.  
  130. TO FT 
  131. FD 15 LT 90 FD 15 RT 90 PU FD 5 PD
  132. FILLFT 15
  133. END
  134.  
  135. TO SQUARE1 :S
  136. IF :S = 0 [STOP]
  137. REPEAT 4 [FD :S LT 90]
  138. SQUARE1 :S - 1
  139. END
  140.  
  141. TO SQUARE :S
  142. IF :S = 0 [STOP]
  143. REPEAT 4 [FD :S RT 90]
  144. SQUARE :S - 1
  145. END
  146.  
  147. TO ARMS 
  148. PU FD 45 PD SQUARE 15
  149. PU BK 115 RT 180 FD 5 PD
  150. SQUARE1 15
  151. END
  152.  
  153. TO ARCL :RADIUS :DEGREES
  154. LOCAL "STEP LOCAL "REM
  155. MAKE "STEP 2 * :RADIUS * 3.1416 / 36
  156. MAKE "REM REMAINDER :DEGREES 10
  157. REPEAT :DEGREES / 10 [LT 5 FD :STEP LT 5]
  158. IF :REM > 0 [FD :STEP * :REM / 10 LT :REM]
  159. END
  160.  
  161. TO ARCR :RADIUS :DEGREES
  162. LOCAL "STEP LOCAL "REM
  163. MAKE "STEP 2 * :RADIUS * 3.1416 / 36
  164. MAKE "REM REMAINDER :DEGREES 10
  165. REPEAT :DEGREES / 10 [RT 5 FD :STEP RT 5]
  166. IF :REM > 0 [FD :STEP * :REM / 10 RT :REM]
  167. END
  168.  
  169. TO FILLB :N
  170. IF :N = 0 [STOP]
  171. FD 1 LT 90 ARCR :N 180 RT 90 FD 1 RT 90 ARCL :N - 1 180 LT 90
  172. FILLB :N - 1
  173. END
  174.  
  175. TO FT2 :N
  176. IF :N = 0 [STOP]
  177. TRI :N SETH 270
  178. FT2 :N - 1
  179. END
  180.  
  181. TO TRI :S
  182. MAKE "POSNOW POS
  183. FD :S LT 90 FD :S SETPOS :POSNOW
  184. END
  185.  
  186. TO FT51 :N
  187. IF :N = 0 [STOP]
  188. SETH 0 TRI :N
  189. FT51 :N - 1
  190. END
  191.  
  192. TO CRAB 
  193. TITLE SETPAL 0 SETPC 2 HT BODY FILLB 55
  194. EYES ARMS FT FT1 LT 90 FD 15 PU LT 90
  195. FD 175 RT 22.5 PD CLAWS RT 180 FILLC 40
  196. BK 80 SETH 0 RT 90 PU FD 30 LT 90 FD 30 LT 90 PD FT2 30
  197. PU BK 160 LT 90 FD 30 SETH 0 LT 22.5 PD
  198. FILLC2 40 BK 80 SETH 0 FT 5 LIDS LEGS
  199. LEGS2 RT 90 FD 15 LT 180 PD FILLFT1 15
  200. END
  201.  
  202. MAKE "POSNOW [94.761 0.282]
  203.