'Water Waves - by Sierraken on June 7, 2020
'Thank you Bplus for the idea of shifting the waves over!
'Feel free to change anything you wish or use it in your own projects.
'---------------------------------------------------------------------
'Ocean Waves Sound:
'License: Attribution 3.0
'Recorded by Mike Koenig
'Downloaded here: http://soundbible.com/1935-Ocean-Waves.html

_TITLE "The Ocean - by Sierraken. Ocean Waves Sound by Mike Koenig."
SCREEN _NEWIMAGE(800, 600, 32)
t = 20
b = 174
xx = 250
g = 10
s& = _SNDOPEN("Ocean.mp3")
_SNDPLAY s&
_SNDLOOP s&
DO
    _LIMIT 750
    IF xx + xx > 1200 THEN xx = 250
    FOR yy = 300 TO 700
        IF yy / 3 = INT(yy / 3) AND g2 = 0 THEN g = g + 2
        IF yy / 3 = INT(yy / 3) AND g2 = 1 THEN g = g - 2
        IF g > 255 THEN g2 = 1
        IF g < 11 THEN g2 = 0
        xx2 = xx2 + 1
        FOR x = 0 TO 500
            PSET (x + xx + xx2, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
            PSET (x + xx + xx2 + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
        NEXT x
    NEXT yy
    FOR yy = 300 TO 700
        IF yy / 3 = INT(yy / 3) AND g2 = 0 THEN g = g + 2
        IF yy / 3 = INT(yy / 3) AND g2 = 1 THEN g = g - 2
        IF g > 255 THEN g2 = 1
        IF g < 11 THEN g2 = 0
        xx3 = xx3 + 1
        FOR x = xx - 1700 TO xx
            PSET (x + xx + xx3, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
            PSET (x + xx + xx3 + 360, (SIN(x * 0.017453) * t) + yy), _RGB32(25, g, b)
        NEXT x
    NEXT yy
    IF tt = 0 THEN t = t + 2: b = b + 2
    IF t > 80 THEN tt = 1
    IF tt = 1 THEN t = t - 2: b = b - 2
    IF t < -80 THEN tt = 0
    xx = xx + 10
    xx2 = 0: xx3 = 0
    _DISPLAY
    CLS
    PAINT (1, 1), _RGB32(0, 255, 255)
LOOP WHILE INKEY$ <> CHR$(27)