Proggies

[vince]

This is inspired by vince proggie for QBJS here: https://qb64phoenix.com/forum/showthread...0#pid19350

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), &H15000000, 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)

            PSet (x, h / 2 + y)

            y = 100 * Sin(_Pi * x / w) * Sin(1 * _Pi * x / w + t + i * t * _Pi * 0.01)

            PSet (w / 2 + y, x)

        Next

    Next

    _Display

    _Limit 30

Loop

now if that's not a mod. to be fair, I stole the idea from https://www.shadertoy.com/view/DtXfDr pretty smooth mod