Board.KolibriOS.org

Code: Select all

Private Sub Circ(x As Integer, y As Integer, r As Integer)
    Dim i As Integer, px As Double, py As Double
    px = 0: py = r
    For i = 0 To r * 3.1415926 * 2
        PSet (px + x, y - py), vbBlack
        px = px + py / r
        py = py - px / r
    Next
End Sub

Code: Select all

procedure circle(integer x, integer y, integer r, integer color)
    integer px,py,delta
    px = 0
    py = r
    delta = 3-2*r
    while px<=py do
        pixel(color, {x+px, y+py})
        pixel(color, {x+px, y-py})
        pixel(color, {x-px, y+py})
        pixel(color, {x-px, y-py})
        
        pixel(color, {x+py, y+px})
        pixel(color, {x+py, y-px})
        pixel(color, {x-py, y+px})
        pixel(color, {x-py, y-px})
        
        if delta<0 then
            delta += 4*px+6
        else
            delta += 4*(px-py)+10
            py -= 1
        end if
        px += 1
    end while
end procedure