home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / cubes.bug < prev    next >
Encoding:
Text File  |  1989-12-30  |  768 b   |  52 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "soccer  
  8. REPEAT 6 [FD 50 RT 60]
  9. FD 60 LT 60
  10. end
  11.  
  12. to "hex  :DIS
  13. REPEAT 6 [FD :DIS RT 60]
  14. FD :DIS LT 60
  15. end
  16.  
  17. to "pent  :DIS
  18. REPEAT 6 [FD :DIS RT 60]
  19. FD :DIS LT 72
  20. end
  21.  
  22. to "cube  :D :X1 :Y1
  23. PU SETXY :X1 :Y1 SETH 0 PD
  24. REPEAT 4 [SQUARE :D SETX :X1 + :D MAKE "X1 XCOR]
  25. MAKE "X1 XCOR - ( :D * 3 )
  26. MAKE "Y1 YCOR - :D
  27. PU SETXY :X1 :Y1 PD
  28. REPEAT 3 [SQUARE :D FD :D]
  29. HT
  30. end
  31.  
  32. to "cubes  :D :X1 :Y1
  33. CUBE :D :X1 :Y1
  34. CUBE :D :X1 + ( :D * 4 ) :Y1
  35. end
  36.  
  37. to "square  :D
  38. REPEAT 4 [FD :D RT 90]
  39. end
  40.  
  41. to "shared.side.cubes  :D :X1 :Y1
  42. CUBE :D :X1 :Y1
  43. CUBE :D :X1 :Y1 - ( :D * 2 )
  44. end
  45.  
  46. e  :D
  47. REPEAT 4 [FD :D RT 90]
  48. end
  49.  
  50. to "shared.side.cubes  :D :X1 :Y1
  51. CUBE :D :X1 :Y1
  52. CUBE :D :X1 :