Challenges

[bplus]

Crop Circles!

Here is: "A Crop of Circles"

Code: (Select All)

_Title "A Crop of Circles" ' b+ 2025-08-14
Screen _NewImage(700, 700, 32): _ScreenMove 315, 0
pow = 2.5
Color , &HFF008800: Cls
Do
    For y = 0 To 700 Step 50
        For x = 0 To 700 Step 50
            dist = ((x - 350) ^ 2 + (y - 350) ^ 2) ^ .5
            FC3 x, y, 16000 / (dist ^ pow), &HFF00BB00
        Next
    Next
    _Display
    _Limit 60
    pow = pow - .001
    If pow < 1 Then Exit Do
Loop

Sub FC3 (cx As Long, cy As Long, r As Long, clr~&)
    Dim As Long r2, x, y ' for Option _Explicit
    If r < 1 Then Exit Sub
    Line (cx - r, cy)-(cx + r, cy), clr~&, BF
    r2 = r * r
    Do
        y = y + 1
        x = Sqr(r2 - y * y)
        Line (cx - x, cy + y)-(cx + x, cy + y), clr~&, BF
        Line (cx - x, cy - y)-(cx + x, cy - y), clr~&, BF
    Loop Until y = r
End Sub

Kick it off with a simple animation!