home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / CIRCLE.BUG < prev    next >
Text File  |  1991-01-13  |  294b  |  15 lines
  1. ; circle.bug
  2. to "circle  :x :y :radius
  3. local "amt
  4. local "pi
  5. make "pi 3.14159
  6. make "amt :radius * :pi / 180
  7. pu setxy :x :y setx xcor - :radius
  8. setheading 0 pd
  9. repeat 360 [fd :amt rt 1]
  10. pu setxy :x :y
  11. end
  12.  
  13. make "description [ Draw a circle - try circle 0 0 100 ]
  14. print :description
  15.