REM ***********************************************
REM Title: Ellipse Fill
REM Author: CyberLuke
REM Downloaded from: http://dbcc.zimnox.com/
REM ***********************************************
 
function DBfillCircle(xcenter,ycenter,xradius,yradius)
`Created by CyberLuke
rem --- find vertical ratio to help draw ellipses
   xr# = xradius : yr# = yradius
   vr# = yr# / xr#
   r2 = xradius^2
   for x = 1 to xradius
      y = sqrt(r2 - x^2) * vr#
      box xcenter - x, ycenter - y, xcenter + x, ycenter + y
   next x
endfunction