Proggies

[bplus]

more modding ;-))

Code: (Select All)

_Title "Mod for vince mod for b+" ' b+ 2023-09-03
Dim w, h
w = 640
h = 640
Screen _NewImage(w, h, 32)
_ScreenMove 340, 60
Dim i, t, x, y, p(1 To 4)
p(1) = &HFFFF0000: p(2) = &HFF009900: p(3) = &HFF0000FF: p(4) = &HFFAAFF00
Do
    t = t + 0.1
    Line (0, 0)-(w, h), &H25000000, BF
    For i = 1 To 4
        Color p(i)
        For x = 0 To w
            y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.01)
            Circle (x, h / 2 + y), 2
            y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.01)
            Circle (w / 2 + y, x), 2
        Next
    Next
    _Display
    _Limit 30
Loop