_DEFINE A-Z ASLONG

OPTION _EXPLICIT



CONST CCOLOR~& = _RGBA32(0, 100, 0, 100)



_TITLE "Circle Fill speed tests"



SCREEN _NEWIMAGE(1830, 680, 32)



' Dry run

SLEEP 1

_PRINTSTRING (0, 0), "Dry run..."

Run_Test 10000



' Showdown

SLEEP 5

CLS

_PRINTSTRING (0, 0), "Showdown..."

Run_Test 200000



END



SUB Run_Test (iterations AS LONG)

    STATIC AS DOUBLE start, finish

    STATIC i AS LONG



    _DISPLAY



    start = TIMER(0.001!)

    FOR i = 1 TO iterations

        FC_Dav 305, 305, 300, CCOLOR

    NEXT

    finish = TIMER(0.001!) - start

    _AUTODISPLAY

    _PRINTSTRING (100, 615), "Time for" + STR$(iterations) + " Contender Fills (Dav):" + STR$(finish)



    _DISPLAY

    start = TIMER

    FOR i = 1 TO iterations

        FC_Vince 915, 305, 300, CCOLOR

    NEXT

    finish = TIMER(0.001!) - start

    _AUTODISPLAY

    _PRINTSTRING (700, 615), "Time for" + STR$(iterations) + " Contender Fills (Vince):" + STR$(finish)



    _DISPLAY

    start = TIMER

    FOR i = 1 TO iterations

        FC_Gold 1525, 305, 300, CCOLOR

    NEXT

    finish = TIMER(0.001!) - start

    _AUTODISPLAY

    _PRINTSTRING (1300, 615), "Time for" + STR$(iterations) + " Gold Standard Circle Fills:" + STR$(finish)

END SUB



SUB FC_Gold (cx AS LONG, cy AS LONG, r AS LONG, c AS _UNSIGNED LONG)

    $CHECKING:OFF



    DIM radius AS LONG: radius = ABS(r)

    DIM radiusError AS LONG: radiusError = -radius

    DIM x AS LONG: x = radius

    DIM y AS LONG



    IF radius = 0 THEN

        PSET (cx, cy), c

        EXIT SUB

    END IF



    LINE (cx - x, cy)-(cx + x, cy), c, BF



    DO WHILE x > y

        radiusError = radiusError + _SHL(y, 1) + 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 - _SHL(x, 1)

        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

    LOOP



    $CHECKING:ON

END SUB



SUB FC_Dav (cx AS LONG, cy AS LONG, r AS LONG, c AS _UNSIGNED LONG)

    $CHECKING:OFF



    DIM r2 AS LONG: r2 = r * r

    DIM AS LONG x, y



    LINE (cx - r, cy)-(cx + r, cy), c, BF



    DO WHILE y < r

        y = y + 1



        x = SQR(r2 - y * y)



        LINE (cx - x, cy + y)-(cx + x, cy + y), c, BF

        LINE (cx - x, cy - y)-(cx + x, cy - y), c, BF

    LOOP



    $CHECKING:ON

END SUB



SUB FC_Vince (cx AS LONG, cy AS LONG, r AS LONG, c AS _UNSIGNED LONG)

    $CHECKING:OFF



    DIM e AS LONG: e = -r

    DIM x AS LONG: x = r

    DIM y AS LONG



    DO WHILE y < x

        IF e <= 0 THEN

            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



            e = e + _SHL(y, 1)

        ELSE

            LINE (cx - y, cy - x)-(cx + y, cy - x), c, BF

            LINE (cx - y, cy + x)-(cx + y, cy + x), c, BF



            x = x - 1



            e = e - _SHL(x, 1)

        END IF

    LOOP



    LINE (cx - r, cy)-(cx + r, cy), c, BF



    $CHECKING:ON

END SUB

Screen _NewImage(800, 600, 32)



diameter = 200



Circle (400, 300), diameter, _RGB32(0, 255, 0)



Locate 1, 1: Input "Press Enter To Fill Circle", a$





For sz = .1 To diameter Step .1

    Circle (400, 300), sz, _RGB32(255, 0, 0)

Next sz

Quote:1) draw a center square of maximum size inside the circle first.  Fill it with a single LINE,,,,BF statement.
2) then calculate from the outer axis points inwards until we fill up to that same point that the square has already covered.   This should prevent overlap or any such thing and might speed up the whole process overall.

Sub FCtweak (cx, cy, r, clr~&)

    r2 = r * r

    For y = 0 To r

        x = Sqr(r2 - y * y)

        Line (cx - x, cy + y)-(cx + x, cy + y), clr~&, BF

        If y <> 0 Then Line (cx - x, cy - y)-(cx + x, cy - y), clr~&, BF

    Next

    Line (cx - r, cy)-(cx + r, cy), clr~&, BF

End Sub

(08-31-2024, 02:18 PM)Dav Wrote: Lol, I never dream this thread would become so active.

A little tweaking test.  I thought removing the y = y + 1 in the WHILE/WEND in FC3 like below would speed it up a tad, but it didn't seem to.  In fact, this FOR/NEXT version usually comes in trailing behind the others on my laptop, but still fast.

- Dav

Code: (Select All)

Sub FCtweak (cx, cy, r, clr~&)

    r2 = r * r

    For y = 0 To r

        x = Sqr(r2 - y * y)

        Line (cx - x, cy + y)-(cx + x, cy + y), clr~&, BF

        If y <> 0 Then Line (cx - x, cy - y)-(cx + x, cy - y), clr~&, BF

    Next

    Line (cx - r, cy)-(cx + r, cy), clr~&, BF

End Sub