'Random Hills Maker by SierraKen 9-9-2022
'https://qb64phoenix.com/forum/showthread.php?tid=874
'_Title "Random Hills Maker - Press Space Bar For Another One - Esc to quit"
'BASIC Anywhere Machine version by Charlie Veniot 9-10-2022
scx = 1600 : scy = 600
Screen _NewImage(scx, scy, 21)
start:
Cls
Paint (10, 10), _RGB32(127, 255, 255)
c = 255
size = (Rnd * 500) + 55
For s = 50 To size Step (size / 10)
    For yy = 100 To 650
        For i = 0 To (scx + 400)
            x = Sin((i / s) * 3.1415)
				psetx = ((i / 360) * 320) - 100 : psety = (x * 50) + 50 + yy
				if psetx > 0 and psety > 0 and psetx < scx and psety < scy then
                PSet (psetx, psety), _RGB32(0, c, 0)
				end if
        Next i
        c = c - 1
        If c < 100 Then c = 255
		  _delay 0.0001
    Next yy
Next s
Do
    a$ = InKey$
    If a$ = " " Then GoTo start:
    If a$ = Chr$(27) Then End
Loop