home *** CD-ROM | disk | FTP | other *** search
/ The Education Master 1994 (4th Edition) / EDUCATIONS_MASTER_4TH_EDITION.bin / files / educmisc / logospin / demo next >
Encoding:
Text File  |  1991-07-17  |  7.8 KB  |  393 lines

  1. demo 
  2. setbg 0 twist wait 237 clearscreen 
  3. setbg 1 tree 30 5 wait 237 clearscreen 
  4. setbg 0 triframe 60 4 wait 237 clearscreen 
  5. setbg 1 ferris 126 wait 91 clearscreen 
  6. setbg 1 ferris 70 wait 91 clearscreen 
  7. setbg 1 ferris 28 wait 91 clearscreen 
  8. setbg 0 blast 90 wait 237 clearscreen 
  9. setbg 0 stars 60 wait 237 clearscreen 
  10. setbg 0 jumpingjacks 75 wait 237 clearscreen 
  11. setbg 0 waves 25 75 wait 237 clearscreen 
  12. setbg 0 wipers 100 clearscreen 
  13. setbg 0 drillteam 12 wait 237 clearscreen 
  14. setbg 4 outblast 90 1 2 wait 255 clearscreen 
  15. setbg 1 four 50 3 wait 237 clearscreen 
  16. setbg 0 boom 30 wait 237 clearscreen 
  17. setbg 0 spider 45 2 wait 237 clearscreen 
  18. setbg 0 kaleid 60 wait 237 clearscreen 
  19. setbg 0 twosheets 120 wait 300 clearscreen 
  20. setbg 0 obthree 1 2 3 wait 300 clearscreen 
  21. setbg 0 wave 30 100 wait 237 clearscreen 
  22. setbg 0 threesaws wait 237 clearscreen 
  23. setbg 4 box 50 1 2 wait 400 clearscreen 
  24. setbg 7 fish 15 110 wait 237 clearscreen 
  25. setbg 6 squareandstar wait 360 clearscreen 
  26. setbg 9 wave2 22 80 wait 237 clearscreen 
  27. setbg 1 twins wait 237 clearscreen 
  28. setbg 1 build 150 wait 30 clearscreen 
  29. setbg 1 gears wait 237 clearscreen 
  30. end
  31. twist 
  32. make x 0 
  33. repeat 15 
  34. make x x + 10 
  35. setcolor 14 
  36. setxy x - 140 0 
  37. setheading ( x / 10 ) * 3 
  38. forward x spin 1 
  39. setcolor 13 
  40. forward 160 - x 
  41. spin - 2 
  42. end
  43. tree size number 
  44. setcolor lightgreen 
  45. make r 0 
  46. make y 100 
  47. repeat number 
  48. make r r + 1 
  49. make x - r * size / 2 
  50. make y y - size 
  51. repeat r 
  52. sh 60 
  53. setxy x y 
  54. forward size spin 4 
  55. right 120 forward size 
  56. right 120 forward size 
  57. make x x + size 
  58. end
  59. triframe size rate 
  60. make heading 0 
  61. repeat 6 
  62. make rate - rate 
  63. forward size spin rate 
  64. wait 60 / rate 
  65. make rate - rate 
  66. right 180 forward size spin rate 
  67. end
  68. ferris radius 
  69. make heading 0 
  70. make color 8 
  71. repeat 6 
  72. make color color + 1 
  73. setxy 0 0 
  74. setheading heading 
  75. setcolor red 
  76. forward radius spin 1 
  77. right 120 forward radius 
  78. setcolor color 
  79. ferriscar radius / 7 
  80. make heading heading + 60 
  81. end
  82. ferriscar carsize 
  83. setheading 180 
  84. forward carsize spin 0 
  85. right 90 forward carsize / 2 
  86. left 90 forward carsize 
  87. left 90 forward carsize 
  88. left 90 forward carsize 
  89. left 90 forward carsize / 2 
  90. end
  91. blast size 
  92. make color yellow 
  93. repeat 12 
  94. setcolor color blastleg size 
  95. make color color - 1 
  96. end
  97. blastleg size 
  98. setxy 0 0 
  99. right 30 
  100. forward size spin 2 forward size spin 1 
  101. end
  102. stars size 
  103. make color white 
  104. make x - 2 * size 
  105. repeat 3 
  106. make x x + size 
  107. make y - 2 * size 
  108. repeat 3 
  109. make color color - 1 
  110. make y y + size 
  111. make heading 0 
  112. repeat 4 
  113. make heading heading + 90 
  114. setxy x y 
  115. setheading heading 
  116. setcolor color 
  117. forward size spin 2 
  118. end
  119. jumpingjacks size 
  120. make x - 3 * size 
  121. repeat 2 
  122. make x x + 2 * size 
  123. make y - 3 * size 
  124. repeat 2 
  125. make y y + 2 * size 
  126. setcolor lightcyan 
  127. setxy x y 
  128. setheading 0 
  129. forward size spin 5 
  130. setxy x y 
  131. setheading 0 
  132. forward size spin - 5 
  133. setcolor yellow 
  134. setxy x y 
  135. setheading 180 
  136. forward size spin 3 
  137. setxy x y 
  138. setheading 180 
  139. forward size spin - 3 
  140. end
  141. waves nlines length 
  142. make x 0 
  143. repeat nlines 
  144. make x x + 1 
  145. setx - 220 + 14 * x 
  146. setheading 6 * x 
  147. setcolor ( x % 15 ) + 1 
  148. forward length spin 5 
  149. end
  150. wipers length 
  151. repeat 3 
  152. setcolor yellow 
  153. setx - length 
  154. setheading 60 
  155. forward length spin - 4 
  156. setx length 
  157. forward length spin - 4 
  158. wait 30 
  159. clearscreen 
  160. setcolor yellow 
  161. setx - 100 
  162. setheading 300 
  163. forward 100 spin 4 
  164. setx 100 
  165. forward 100 spin 4 
  166. wait 30 
  167. clearscreen 
  168. end
  169. drillteam ntimes 
  170. make y 50 
  171. repeat ntimes 
  172. make y y - 9 
  173. setxy 2 * y y 
  174. setheading 0 
  175. setcolor 4 forward 40 spin - 1 
  176. setcolor 9 forward 50 spin - 2 
  177. setcolor 10 forward 30 spin 3 
  178. setcolor 14 forward 20 spin - 4 
  179. wait 3 
  180. end
  181. outblast size rate1 rate2 
  182. repeat 12 oleg size rate1 rate2 
  183. end
  184. oleg size rate1 rate2 
  185. setxy 0 0 
  186. right 30 setcolor black forward size spin rate1 
  187. setcolor white forward size spin rate2 
  188. end
  189. four size rate 
  190. make y - 2 * size - 40 
  191. make z 5 
  192. repeat 2 
  193. make y y + 2 * size 
  194. make x - 2 * size - 40 
  195. repeat 2 
  196. make x x + 2 * size 
  197. make z z + 1 
  198. setcolor z setxy x y squarespin size rate 
  199. end
  200. squarespin size rate 
  201. repeat 4 
  202. forward size spin rate forward size spin - rate right 90 
  203. end
  204. boom size 
  205. make color yellow 
  206. repeat 6 
  207. right 60 
  208. penup 
  209. forward 2 * size spin 4 
  210. pendown 
  211. setcolor color 
  212. trianglespin size 
  213. make color color - 1 
  214. end
  215. trianglespin size 
  216. repeat 3 
  217. forward size spin 2 
  218. forward size spin - 2 
  219. right 120 
  220. end
  221. spider size rate 
  222. make heading 0 
  223. make color yellow 
  224. repeat 6 
  225. setxy 0 0 
  226. setheading heading 
  227. setcolor color 
  228. leg size rate 
  229. make color color - 1 
  230. make heading heading + 60 
  231. end
  232. leg size rate 
  233. segment size rate segment size rate 
  234. end
  235. segment size rate 
  236. forward size spin rate forward size spin - rate 
  237. end
  238. kaleid size 
  239. make color 8 
  240. repeat 6 
  241. make color color + 1 
  242. setcolor color right 60 ksp size 
  243. end
  244. ksp size 
  245. repeat 4 
  246. forward size spin 1 
  247. forward size spin - 1 
  248. right 90 
  249. end
  250. twosheets size 
  251. make x 165 
  252. repeat 29 
  253. make x x - 11 
  254. make size size - 8 
  255. setxy x ( - 10 ) 
  256. setcolor lightcyan 
  257. forward size spin 1 
  258. setcolor lightred 
  259. forward ( 2 * size ) / 3 spin 2 
  260. end
  261. obthree firstrate secondrate thirdrate 
  262. repeat 12 obthreeleg firstrate secondrate thirdrate 
  263. end
  264. obthreeleg firstrate secondrate thirdrate 
  265. setxy 0 0 
  266. right 30 
  267. setcolor red forward 40 spin firstrate 
  268. setcolor black forward 40 spin 0 
  269. setcolor green forward 40 spin secondrate 
  270. setcolor black forward 40 spin 0 
  271. setcolor yellow forward 40 spin thirdrate 
  272. end
  273. wave nlines length 
  274. setcolor green 
  275. make heading - 12 
  276. make x 180 
  277. repeat nlines 
  278. make x x - 12 
  279. setx x 
  280. setheading heading 
  281. forward length 
  282. spin 4 
  283. make heading heading + 12 
  284. end
  285. threesaws 
  286. setcolor 14 right 120 sawblade 
  287. setcolor 13 right 120 sawblade 
  288. setcolor 12 right 120 sawblade 
  289. end
  290. sawblade 
  291. repeat 12 forward 35 spin 1 forward 10 spin 3 right 30 
  292. end
  293. box size spin1 spin2 
  294. forward size spin spin1 
  295. right 90 forward size spin spin2 
  296. pu back size pd lt 90 
  297. right 45 forward size spin spin1 
  298. right 45 forward size spin spin2 
  299. pu back size pd right 90 
  300. forward size spin spin1 
  301. lt 90 forward size spin spin2 
  302. pu back size pd right 135 
  303. forward size spin spin1 
  304. lt 135 forward size spin spin2 
  305. lt 90 forward size spin spin1 
  306. right 45 forward size 
  307. right 135 forward size 
  308. right 45 forward size 
  309. end
  310. fish nlines length 
  311. setcolor lightblue 
  312. make y - 50 
  313. make heading 0 
  314. repeat nlines 
  315. sety y 
  316. setheading heading 
  317. spin 1 
  318. forward length 
  319. sety y 
  320. setheading - heading 
  321. spin - 1 
  322. forward length 
  323. make y y + 10 
  324. make heading heading + 6 
  325. make length length - 6 
  326. end
  327. squareandstar 
  328. setx - 200 
  329. setcolor lightgreen 
  330. sssquare 
  331. setx 100 
  332. ssstar 
  333. end
  334. sssquare 
  335. repeat 4 
  336. forward 40 spin 1 
  337. forward 80 spin 0 
  338. forward 40 spin - 1 
  339. right 90 
  340. end
  341. ssstar 
  342. repeat 5 
  343. forward 40 spin 1 
  344. forward 80 spin 0 
  345. forward 40 spin - 1 
  346. right 144 
  347. end
  348. wave2 nlines length 
  349. make heading 0 
  350. make x 150 
  351. repeat nlines 
  352. make x x - 14 
  353. setx x 
  354. setheading - heading 
  355. setcolor lightred 
  356. forward length / 2 spin 2 
  357. setheading heading 
  358. forward length / 2 spin - 2 
  359. make heading heading + 12 
  360. end
  361. twins 
  362. repeat 2 
  363. right 180 
  364. repeat 2 
  365. forward 20 spin 1 
  366. forward 30 spin - 2 
  367. forward 40 spin 3 
  368. forward 40 spin - 1 
  369. forward 40 spin 4 
  370. right 180 
  371. end
  372. build size 
  373. setcolor red 
  374. repeat 4 
  375. forward size / 2 spin 3 wait 30 
  376. forward size / 2 spin - 3 wait 30 
  377. right 90 
  378. end
  379. gears 
  380. gear lightmagenta 10 12 ( - 225 ) 60 ( - 4 ) 
  381. gear yellow 7 24 ( - 60 ) 110 2 
  382. gear red 2 12 105 60 ( - 4 ) 
  383. gear green 13 6 195 40 8 
  384. gear lightcyan 20 3 255 25 ( - 16 ) 
  385. end
  386. gear color startangle nteeth center length rate 
  387. setcolor color 
  388. make x startangle 
  389. repeat nteeth 
  390. setx center setheading x forward length spin rate 
  391. make x x + ( 360 / nteeth ) 
  392. end
  393.