Draw that Circle

[bplus]

Oh get rid of overlapping lines you can only catch using Alpha coloring:

Code: (Select All)

Screen _NewImage(800, 620, 32)
Randomize Timer
rcircle 400, 310, 300, _RGB32(200, 250, 40, 20) ' <<< look for overlapping lines using alpha color
Sleep

Sub rcircle (cx As Long, cy As Long, r As Long, klr As _Unsigned Long)
    Dim x, y As Long
    rsqrd = r * r
    Line (cx - r, cy)-(cx + r, cy), klr  ' one line at y = 0
    y = 1
    While y <= r
        x = Sqr(rsqrd - y * y)
        Line (cx - x, cy + y)-(cx + x, cy + y), klr
        Line (cx - x, cy - y)-(cx + x, cy - y), klr
        y = y + 1
    Wend
End Sub