Proggies

[bplus]

a mod already, actually 2!

United World Peace #2

Code: (Select All)

_Title "United World Peace #2" 'b+ 2025-02-15
Screen _NewImage(601, 601, 32): _ScreenMove 340, 60
Dim As _Unsigned Long blu, grn
blu = _RGB32(0, 0, 120)
grn = _RGB32(0, 200, 0)
FC3 300, 300, 300, blu
peace 150, 300, 150, _Pi(-.5), grn
peace 450, 300, 150, _Pi(.5), grn
peace 300, 150, 150, _Pi(0), grn
peace 300, 450, 150, _Pi, grn
Sleep
Cls
FC3 300, 300, 260, blu
peace 150, 300, 110, _Pi(-.5), grn
peace 450, 300, 110, _Pi(.5), grn
peace 300, 150, 110, _Pi(0), grn
peace 300, 450, 110, _Pi, grn
Sleep

Sub lyne (x0, y0, lngth, ra, thic, c As _Unsigned Long)
    Dim x As Integer, y As Integer, l As Integer
    While l < lngth
        l = l + 1: x = x0 + l * Cos(ra): y = y0 + l * Sin(ra)
        For radius = 0 To thic / 2
            Circle (x, y), radius, c, BF
        Next
    Wend
End Sub

Sub peace (x0, y0, r, raRot, c As _Unsigned Long) ' 12 is about smallest
    thic = r / 5.5
    For rr = r - thic To r Step .25
        Circle (x0, y0), rr, c
    Next
    lyne x0, y0, r - .5 * thic, _Pi * 1.5 + raRot, thic, c
    lyne x0, y0, r - .5 * thic, _Pi * .5 + raRot, thic, c
    lyne x0, y0, r - .5 * thic, _Pi * .25 + raRot, thic, c
    lyne x0, y0, r - .5 * thic, _Pi * .75 + raRot, thic, c
End Sub

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