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

[bplus]

OK here is the FC3 sub that you guys are not getting right: (update: Petr got it right but then put in Beep and Sleep?)

Code: (Select All)

Sub FC3 (cx, cy, r, clr~&)
    Line (cx - r, cy)-(cx + r, cy), clr~&, BF
    y = 1
    r2 = r * r ' Dav mod
    While y <= r
        x = Int(Sqr(r2 - y * y)) ' r2 Dav
        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

Don't use y2 and the extra decision in the loop. I just updated the sub for _Unsigned long color!

Now to run these tests all over again!