Another small filled circe sub (not as fast as fcirc)

[Dav]

Hey, neat mod!  I thought it may be a little faster putting the r * r outside of the loop, and it made it FC2 a wee bit faster

EDIT:  (most of the time, FC3 ties FC2 now and then).

- Dav

Code: (Select All)

Sub FC3 (cx, cy, r, clr&)

    Line (cx - r, cy)-(cx + r, cy), clr&, BF

    y = 1

    r2 = r * r

    While y <= r

        x = Int(Sqr(r2 - y * y))

        Line (cx - x, cy + y)-(cx + x, cy + y), clr&, BF

        Line (cx - x, cy - y)-(cx + x, cy - y), clr&, BF

        y = y + 1

    Wend

End Sub