home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / puff1.bug < prev    next >
Encoding:
Text File  |  1989-02-05  |  896 b   |  79 lines
  1. to "head    
  2. FD 30 RT 100 FD 50
  3. RT 160
  4. FD 50 LT 160
  5. FD 40 RT 160 FD 40
  6. end
  7.  
  8. to "tri     :N
  9. REPEAT 3 [FD :N RT 120 ]
  10. end
  11.  
  12. to "points     
  13. START
  14. SETH -60
  15. REPEAT 18 [TRI 8 RT 60 FD 8 LT 50]
  16. end
  17.  
  18. to "legs    
  19. START
  20. SETH 90
  21. TRI 15 FD 15 TRI 15
  22. FD 50 TRI 15 FD 15
  23. TRI 15
  24. end
  25.  
  26. to "tail     
  27. START
  28. SETH 270
  29. RT 90
  30. REPEAT 9 [FD 5 LT 10]
  31. REPEAT 9 [FD 5 LT 10]
  32. REPEAT 4 [FD 4 RT 12]
  33. LT 110 BK 10 TRI 20
  34. end
  35.  
  36. to "neck    
  37. RT 180
  38. REPEAT 15 [FD 5 LT 10]
  39. REPEAT 12 [RT 10 FD 3]
  40. LT 60 BK 15
  41. HEAD
  42. SETH 0
  43. FD 20 LT 90
  44. REPEAT 15 [FD 4 LT 10]
  45. REPEAT 13 [FD 4 RT 12]
  46. end
  47.  
  48. to "start   
  49. PU SETXY -25 0
  50. PD
  51. end
  52.  
  53. to "halfcircle     :N
  54. REPEAT 18 [FD :N RT 10]
  55. end
  56.  
  57. to "body     
  58. HALFCIRCLE 8
  59. FD 8 RT 90 FD 90 BK 90
  60. end
  61.  
  62. to "puff    
  63. START
  64. BODY
  65. NECK
  66. TAIL
  67. LEGS
  68. POINTS
  69. end
  70.  
  71. end
  72.  
  73. to "body     
  74. HALFCIRCLE 8
  75. FD 8 RT 90 FD 90 BK 90
  76. end
  77.  
  78. to "puff    
  79. ST