home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / GRID.BUG < prev    next >
Text File  |  1991-01-13  |  774b  |  53 lines
  1. ; grid.bug
  2.  
  3. to "y    
  4. PU SETXY -20 100
  5. PD BK 10 FD 10 RT 45 FD 10 BK 10 LT 90
  6. FD 10 PU HOME PD
  7. end
  8.  
  9. to "x    
  10. PU SETXY 120 -20
  11. PD RT 45 FD 10 BK 20 FD 10 RT 90 FD 10
  12. BK 20 PU HOME PD
  13. end
  14.  
  15. to "d  
  16. RT 90 FD 10 LT 90 BK 5 FD 5 RT 90
  17. FD 10 LT 90 FD 2 BK 7 FD 5
  18. end
  19.  
  20. to "g  :R
  21. REPEAT 25 [D]
  22. RT 90
  23. REPEAT 15 [D]
  24. end
  25.  
  26. to "wait  :t
  27. if :t = 0 [stop]
  28. make "t :t - 1
  29. wait :t
  30. end
  31.  
  32. to "message  
  33. print [Each dot is 20 turtle steps apart.]
  34. wait 20
  35. print [Each line is 10 steps apart.]
  36. wait 20
  37. print [Where the lines meet is 0, 0.]
  38. wait 20
  39. end
  40.  
  41. to "grid  
  42. HT cleartext
  43. print [Let's take a look at coordinates.]
  44. wait 20
  45. cleartext
  46. G 120 x y
  47. wait 10
  48. MESSAGE
  49. end
  50.  
  51. make "description [ type "grid" to show coordinate grid ]
  52. print :description
  53.