I know that there is already a command to do this very easily but my cammand is so much more flexible and allows for some very interesting and unexpected results...
FUNCTION DrawEllipse( StartX AS INTEGER , StartY AS INTEGER , StartAng AS INTEGER , EndAng AS INTEGER , StepAmt AS FLOAT , SemiMajor AS FLOAT , SEMIMINOR AS FLOAT )
FOR Ang# = StartAng TO EndAng STEP StepAmt
X = StartX + COS(Ang#) * SemiMajor / 2
Y = StartX + SIN(Ang#) * SemiMinor / 2
DOT X,Y
NEXT
ENDFUNCTION
if you sit there and tinker with the values a bit you could endup with something like
DO
AngS=AngS+1
AngE=AngE+360+1
DrawEllipse(SCREEN WIDTH()/2,SCREEN HEIGHT()/2,AngS,AngE,1,SCREEN WIDTH(),SCREEN HEIGHT()/50)
LOOP
FUNCTION DrawEllipse( StartX AS INTEGER , StartY AS INTEGER , StartAng AS INTEGER , EndAng AS INTEGER , StepAmt AS FLOAT , SemiMajor AS FLOAT , SEMIMINOR AS FLOAT )
repeat
FOR Ang# = StartAng TO EndAng STEP StepAmt
X = StartX + COS(Ang#) * SemiMajor / 2
Y = StartX + SIN(Ang#) * SemiMinor / 2
INK RGB(RND(255),RND(255),RND(255))
DOT X,Y
NEXT Ang#
DEC Semimajor,20
DEC Semiminor,10
until SemiMajor = 0
ENDFUNCTION
Please tell me your results, and maybe post up a screenie, id love to see what you can come up with...
