home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / animate.bug next >
Encoding:
Text File  |  1989-02-05  |  640 b   |  55 lines
  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "animate 
  8. HT
  9. LEGS
  10. BODY
  11. HEAD
  12. ARMS
  13. REPEAT 3 [ MOVE ]
  14. end
  15.  
  16. to "legs 
  17. RT 165 FD 30 BK 30
  18. RT 30 FD 30 BK 30
  19. end
  20.  
  21. to "body 
  22. RT 165 FD 30 LT 90
  23. end
  24.  
  25. to "head 
  26. REPEAT 60 [ FD 1 RT 6 ]
  27. end
  28.  
  29. to "arms 
  30. LT 90 FD 5 LT 90
  31. FD 20 BK 40 FD 20
  32. end
  33.  
  34. to "move  
  35. REPEAT 3 [ MOVE.UP ]
  36. REPEAT 6 [ MOVE.DOWN ]
  37. REPEAT 3 [ MOVE.UP ]
  38. end
  39.  
  40. to "move.up  
  41. PC 0 FD 20 BK 40 FD 20
  42. PC 3 LT 10 FD 20 BK 40 FD 20
  43. end
  44.  
  45. to "move.down  
  46. PC 0 FD 20 BK 40 FD 20
  47. PC 3 RT 10 FD 20 BK 40 FD 20
  48. end
  49.  
  50. K 40 FD 20
  51. PC 3 LT 10 FD 20 BK 40 FD 20
  52. end
  53.  
  54. to "move.down  
  55. PC 0 FD 20 BK