home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / pattern.bug < prev    next >
Encoding:
Text File  |  1989-11-13  |  768 b   |  58 lines
  1. to "poly   :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "pattern   :R :D
  8. REPEAT :R [FD :D MARK RT 360 / :R]
  9. end
  10.  
  11. to "pattern.2   :R :D
  12. REPEAT :R [MARKER.1 FD :D RT 360 / :R]
  13. end
  14.  
  15. to "marker.1  
  16. RT 27 FB :D * 3.533 LT 27
  17. end
  18.  
  19. to "multi.patt   
  20. shift -120 0
  21. PATTERN.1 50 15
  22. shift -80 0
  23. PATTERN.1 40 15
  24. shift -40 0
  25. PATTERN.1 30 15
  26. shift -30 0
  27. PATTERN.2 20 15
  28. end
  29.  
  30. to "mark  
  31. LT 90
  32. FD 2 BK 4 FD 2
  33. RT 90
  34. end
  35.  
  36. to "fb   :N
  37. FD :N BK :N
  38. end
  39.  
  40. to "marker  
  41. RT 30 FB :D * 5.5 LT 30
  42. end
  43.  
  44. to "pattern.1   :R :D
  45. REPEAT :R [MARKER FD :D RT 360 / :R]
  46. end
  47.  
  48. to "shift   :x :y 
  49. pu setxy :x :y setheading 0 pd
  50. end
  51.  
  52. to "pattern.1   :R :D
  53. REPEAT :R [MARKER FD :D RT 360 / :R]
  54. end
  55.  
  56. to "shift   :x :y 
  57. pu setxy :x :y setheading 0 pd
  58. en