home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / demo3.bug < prev    next >
Encoding:
Text File  |  1989-12-29  |  2.8 KB  |  144 lines
  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "lasty   
  8. PU SETXY -250 -150 PD SETXY 250 -150
  9. end
  10.  
  11. to "yline   :SIZE
  12. PU SETXY -250 :SIZE PD SETXY 250 :SIZE
  13. IF :SIZE = -150 STOP
  14. YLINE :SIZE - 20 HT
  15. end
  16.  
  17. to "lastx   
  18. PU SETXY 250 150 PD SETXY 250 -150
  19. end
  20.  
  21. to "xline   :SIZE
  22. PU SETXY :SIZE 150 PD SETXY :SIZE -150
  23. IF :SIZE = 250 STOP
  24. XLINE :SIZE + 20 HT
  25. end
  26.  
  27. to "graph   
  28. PC 1 XLINE -250 LASTX YLINE 150 LASTY
  29. PU HOME PD ST PC 3
  30. end
  31.  
  32. to "y   
  33. PU SETXY -20 100
  34. PD BK 10 FD 10 RT 45 FD 10 BK 10 LT 90
  35. FD 10 PU HOME PD
  36. end
  37.  
  38. to "x   
  39. PU SETXY 120 -20
  40. PD RT 45 FD 10 BK 20 FD 10 RT 90 FD 10
  41. BK 20 PU HOME PD
  42. end
  43.  
  44. to "g   :R
  45. REPEAT 25 [D]
  46. RT 90
  47. REPEAT 15 [D]
  48. end
  49.  
  50. to "start  
  51. HT CS
  52. PR [Let's take a look at x-y coordinates.]
  53. WAIT 5 CS
  54. G 120 GRAPH
  55. TYPE [The turtle is HOME at 0,0.]
  56. WAIt 8 JB
  57. end
  58.  
  59. to "wait   :t
  60. IF :T = 0 [stop]
  61. WAIT :T - 1
  62. end
  63.  
  64. to "d   
  65. RT 90 FD 10 LT 90 BK 5 FD 5 RT 90
  66. FD 10 LT 90 FD 2 BK 7 FD 5
  67. end
  68.  
  69. to "pr  :LIST
  70. PRINT :LIST
  71. end
  72.  
  73. to "jb 
  74. PR [The X axis runs side to side,] WAIT 8
  75. PR [each line is 20 steps apart.] WAIT 8
  76. PR [The Y axis runs up and down,] WAIT 8
  77. PR [each vertical line is 20 steps apart.] WAIT 8
  78. PR [The X axis runs from -250 to the left,] WAIT 8
  79. PR [to 250 on the right.] WAIT 8
  80. PR [The Y axis runs from -150 below,] WAIT 8
  81. PR [to 150 at the tiop of the screen.] WAIT 8
  82. PR [Let's see how to set x-y coordinates.]
  83. POS DRAW HT
  84. SEE.IT
  85. CLEARWS
  86. LOAD "DEMO6
  87. START
  88. end
  89.  
  90. to "pos  
  91. DRAW ST
  92. PR [SETXY 0 0 takes the turtle HOME.] WAIT 8
  93. PR [SETX -100] SETX -100 WAIT 5
  94. PR [SETY 100] SETY 100 WAIT 5
  95. PR [SETXY 0 0] SETXY 0 0 WAIT 5
  96. PR [SETXY 100 100] SETXY 100 100 WAIT 5
  97. PR [SETY 0] SETY 0 WAIT 5
  98. PR [SETX 0] SETX 0 WAIT 5
  99. PR [You can even draw using] WAIT 8
  100. PR [the coordinate commands.] WAIT 8
  101. end
  102.  
  103. to "what   :x
  104. SETXY :X + 25 25 SETXY :X + 30 20
  105. SETXY :X + 35 25 SETXY :X + 35 15
  106. SETXY :X + 30 0 SETXY :X + 35 -10
  107. SETXY :X + 30 -15 SETXY :X + 25 -5
  108. SETXY :X + 25 -15 SETXY :X + 15 -15
  109. SETXY :X + 5 -5 SETXY :X + 10 -15
  110. SETXY :X + 0 -15
  111. SETXY :X - 5 -5 SETXY :X - 5 -15
  112. SETXY :X - 15 -15 SETXY :X - 10 -5
  113. SETXY :X - 15 5 SETXY :X - 20 0
  114. SETXY :X - 25 -10 SETXY :X - 30 -15
  115. SETXY :X - 35 -15 SETXY :X - 40 -10
  116. SETXY :X - 40 -5 SETXY :X - 35 -10
  117. SETXY :X - 35 -10 SETXY :X - 30 -10
  118. SETXY :X - 25 0 SETXY :X - 25 10
  119. SETXY :X - 30 15 SETXY :X - 30 25
  120. SETXY :X - 20 35 SETXY :X - 15 35
  121. SETXY :X - 10 30 SETXY :X - 5 25
  122. SETXY :X - 5 30 SETXY :X + 0 30
  123. SETXY :X + 5 25 SETXY :X + 5 10
  124. SETXY :X - 5 5 SETXY :X - 10 5
  125. SETXY :X - 10 10 SETXY :X - 15 5
  126. PU HOME PD
  127. end
  128.  
  129. to "whatis   :X
  130. IF :X < -140 [STOP]
  131. PU SETXY :X + 5 25 PD
  132. WHAT :X
  133. MAKE "X :X - 70
  134. WHATIS :X
  135. end
  136.  
  137. to "see.it   
  138. WHATIS 210
  139. PR [The circus has come to town.] WAIT 8
  140. end
  141.  
  142. 25 PD
  143. WHAT :X
  144. MAKE