oops i sent this to myself stupid mailing program :) Patrick
-- BEGIN included message
- To: Butler Family <butler2@erols.com>
- Subject: Re: A86: Drawing circles
- From: Butler Family <butler2@erols.com>
- Date: Tue, 04 Nov 1997 18:31:00 -0500
- References: <345D3F54.5263@minot.com> <3.0.1.16.19971103213622.34578910@mailserver.netcarrier.com> <345EA465.44385AFE@erols.com> <345EADDB.5E69@minot.com> <345F43EA.E9223045@erols.com> <345FAE70.6E19FB52@erols.com>
sorry this will work the previous one will only make a square i forgot y=y-1 Butler Family wrote: > center of circle is cx,cy > and radius is r > > Cls > Screen 12 > x=0 > y=r > d=3-(2*r) > While x<=y > PtOn(xc+x,yc+y) > PtOn(xc+x,yc-y) > PtOn(xc-x,yc+y) > PtOn(xc-x,yc-y) > PtOn(yc+y,xc+x) > PtOn(yc+y,xc-x) > PtOn(yc-y,xc+x) > PtOn(yc-y,xc-x) > If d<0 Then > d=d+4*x+6 > Else > d=d+4*(x-y)+10 y = y-1 > End If > x=x+1 > Wend > > this is a quick basic version i havent tried it out on quick basic yet but it > should work > > Patrick
-- END included message