home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / grid.bug < prev    next >
Text File  |  1989-12-31  |  768b  |  59 lines
  1. to "limits    
  2. WEST
  3. NORTH
  4. EAST
  5. SOUTH
  6. end
  7.  
  8. to "message  
  9. print [Each dot is 20 turtle steps apart.]
  10. wait 20
  11. print [Each line is 10 steps apart.]
  12. wait 20
  13. print [Where the lines meet is 0, 0.]
  14. wait 20
  15. end
  16.  
  17. to "y    
  18. PU SETXY -20 100
  19. PD BK 10 FD 10 RT 45 FD 10 BK 10 LT 90
  20. FD 10 PU HOME PD
  21. end
  22.  
  23. to "x    
  24. PU SETXY 120 -20
  25. PD RT 45 FD 10 BK 20 FD 10 RT 90 FD 10
  26. BK 20 PU HOME PD
  27. end
  28.  
  29. to "g  :R
  30. REPEAT 25 [D]
  31. RT 90
  32. REPEAT 15 [D]
  33. end
  34.  
  35. to "grid  
  36. HT cleartext
  37. print [Let's take a look at coordinates.]
  38. wait 20
  39. cleartext
  40. G 120
  41. wait 10
  42. MESSAGE
  43. end
  44.  
  45. to "wait  :t
  46. if :t = 0 [stop]
  47. make "t :t - 1
  48. wait :t
  49. end
  50.  
  51. to "d  
  52. RT 90 FD 10 LT 90 BK 5 FD 5 RT 90
  53. FD 10 LT 90 FD 2 BK 7 FD 5
  54. end
  55.  
  56.  :t = 0 [stop]
  57. make "t :t - 1
  58. wait :t
  59.