home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / ladybug / circle.bug < prev    next >
Encoding:
Text File  |  1989-11-01  |  384 b   |  26 lines
  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "circle  :x :y :radius
  8. local "amt
  9. local "pi
  10. make "pi 3.14159
  11. make "amt :radius * :pi / 180
  12. pu setxy :x :y setx xcor - :radius
  13. setheading 0 pd
  14. repeat 360 [fd :amt rt 1]
  15. pu setxy :x :y
  16. end
  17.  
  18. to "pi  
  19. output 3.14159
  20. end
  21.  
  22. :x :y setx xcor - :radius
  23. setheading 0 pd
  24. repeat 360 [fd :amt rt 1]
  25. pu setxy :x :y
  26. end
  27.