home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / diamnd.bug < prev    next >
Text File  |  1989-11-01  |  1KB  |  127 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "diamond  :n
  8. repeat 2 [fd :n rt 60 fd :n rt 120]
  9. end
  10.  
  11. to "move  
  12. pu rt 60 bk 8 lt 60 bk 8 pd
  13. end
  14.  
  15. to "diamonds  
  16. diamond 8
  17. move
  18. diamond 24
  19. move
  20. diamond 40
  21. end
  22.  
  23. to "side  
  24. diamonds
  25. move2
  26. diamonds
  27. move2
  28. diamonds
  29. end
  30.  
  31. to "start 
  32. pu bk 103 lt 60 fd 16 pd
  33. end
  34.  
  35. to "add2  
  36. move3
  37. diamonds
  38. move3
  39. diamonds
  40. end
  41.  
  42. to "move4 
  43. pu fd 24 rt 60 fd 40 rt 60 fd 16 pd
  44. end
  45.  
  46. to "move3  
  47. pu fd 16 rt 60 fd 56 lt 60 pd
  48. end
  49.  
  50. to "move2  
  51. pu fd 56 rt 60 fd 16 lt 60 pd
  52. end
  53.  
  54. to "rim  
  55. start
  56. side3
  57. add2
  58. move4
  59. side3
  60. add2
  61. move4
  62. side3
  63. add2
  64. end
  65.  
  66. to "inside 
  67. move5
  68. side2
  69. add1
  70. move4
  71. side2
  72. add1
  73. move4
  74. side2
  75. add1
  76. end
  77.  
  78. to "move5 
  79. pu rt 60 bk 24 rt 60 fd 16 lt 60 pd
  80. end
  81.  
  82. to "side2 
  83. diamonds
  84. move2
  85. diamonds
  86. end
  87.  
  88. to "side3 
  89. diamonds
  90. move2
  91. diamonds
  92. move2
  93. diamonds
  94. end
  95.  
  96. to "add1  
  97. move3
  98. diamonds
  99. end
  100.  
  101. to "tess 
  102. rim
  103. inside
  104. block
  105. end
  106.  
  107. to "block  
  108. move6
  109. diamonds
  110. move7
  111. diamonds
  112. move7
  113. diamonds
  114. end
  115.  
  116. to "move6 
  117. pu rt 60 fd 16 rt 60 fd 16 lt 60 pd
  118. end
  119.  
  120. to "move7  
  121. pu fd 24 rt 60 fd 40 rt 60 fd 16 pd
  122. end
  123.  
  124. monds
  125. end
  126.  
  127. t