LOGO-L> Ellipse

["Craig Kerwin" <cdkerwin@icr.com.au>]

I modified John St Claire's procedure for use in MicroWorlds:

to ellipse :a :b
  make "h heading
  make "x xcor make "y ycor make "i 1
  make "rx cos :h make "ry sin :h
  pu rt 90 fd :a lt 90 pd
  repeat 360 [setx (:x + :a * (cos :i) * :rx + :b * (sin :i))
  sety (:y - :a * (cos :i) * :ry + :b * (sin :i) * :rx)
  make "i :i + 1]
  pu lt 90 fd :a rt 90 pd
end


Craig
Mr Craig Kerwin
Director of Information Technology
The Glennie School
Herries Street Toowoomba 4350 Qld
Australia
Ph +61(0)76 324488   Fax +61(0)76 392731
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.