aUCBLogo Demos and Tests / myellipsetest

to myellipse rx ry
   local [p0 basex basey angle point]
   p0=pos
   basex=(list  cos heading -sin heading)
   basey=(list  sin heading  cos heading)
   angle=0
   point=p0+basex*rx*(sin angle)+basey*ry*cos angle
   pu setpos point pd
   repeat 360
   [   angle=angle+1
      point=p0+basex*rx*(sin angle)+basey*ry*cos angle
      setpos point
   ]
   pu setpos p0 pd
end

to myellipsetest
   myellipse 200 100
   updateGraph
   waitms 1000
   cs
   rt 30 fd 100
   myellipse 200 100
end