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

[bplus]

Your F4 is disqualified because it will have an overlapping line, won't do for transparent colors

Code: (Select All)

Screen _NewImage(800, 600, 32)
fc4 400, 300, 300, _RGB32(0, 0, 255, 100)

Sub fc4 (cx, cy, r, clr&)
    r2 = r * r
    For y = 0 To r
        y2 = y * y
        'If y2 <= r2 Then
        x = Int(Sqr(r2 - y2))
        Line (cx - x, cy - y)-(cx + x, cy - y), clr&, BF
        Line (cx - x, cy + y)-(cx + x, cy + y), clr&, BF
        'End If
    Next
End Sub