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

[Pete]

Code: (Select All)

Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    Dim Radius As Integer, RadiusError As Integer

    Dim X As Integer, Y As Integer

    Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0

    If Radius = 0 Then PSet (CX, CY), C: Exit Sub

    Line (CX - X, CY)-(CX + X, CY), C, BF

    While X > Y

        RadiusError = RadiusError + Y * 2 + 1

        If RadiusError >= 0 Then

            If X <> Y + 1 Then

                Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

            End If

            X = X - 1

            RadiusError = RadiusError - X * 2

        End If

        Y = Y + 1

        Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

        Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

    Wend

End Sub

Probably just for style points, or do you think changing the conditional statement slows it down or speeds it up?

Code: (Select All)

Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    Dim Radius As Integer, RadiusError As Integer

    Dim X As Integer, Y As Integer

    Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0

    If Radius Then

        Line (CX - X, CY)-(CX + X, CY), C, BF

        While X > Y

            RadiusError = RadiusError + Y * 2 + 1

            If RadiusError >= 0 Then

                If X <> Y + 1 Then

                    Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                    Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

                End If

                X = X - 1

                RadiusError = RadiusError - X * 2

            End If

            Y = Y + 1

            Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

            Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

        Wend

    Else

        PSet (CX, CY), C

    End If

End Sub

or...

Code: (Select All)

Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    Dim RadiusError, X, Y As Integer

    If Abs(R) Then

        X = Abs(R): Y = 0: RadiusError = -X

        Line (CX - X, CY)-(CX + X, CY), C, BF

        While X > Y

            RadiusError = RadiusError + Y * 2 + 1

            If RadiusError >= 0 Then

                If X <> Y + 1 Then

                    Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                    Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

                End If

                X = X - 1

                RadiusError = RadiusError - X * 2

            End If

            Y = Y + 1

            Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

            Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

        Wend

    Else

        PSet (CX, CY), C

    End If

End Sub

Pete