Proggies

[bplus]

Dav had an interesting way to make a background in the Raw program: Clicking Away Balls. Today I played around with it probably because it has a plasma like feel to it

Maybe it could be useful for something like a simple colorful DeskTop.

Code: (Select All)

_Title "Test Rainbow" ' b+ 2022-05-15
Const w = 1024, h = 600, wd2 = 512, hd2 = 300
Screen _NewImage(w, h, 32)
_ScreenMove 180, 60
Do
    Cls
    dt = 100
    While dt > .002 Or dt < .00095
        dt = Rnd * .0015
    Wend
    rpick = Int(Rnd * 6) + 1
    For x = 0 To w
        For y = 0 To h
            r = Sin(1.1 * t) * hd2 - y + hd2
            Select Case rpick
                Case 1: Line (x, y)-Step(1, 1), _RGB(r, r - y, -r), BF ' yellow top,  red middle, blue bottom
                Case 2: Line (x, y)-Step(1, 1), _RGB(r, -r, r - y), BF ' purple , red , green
                Case 3: Line (x, y)-Step(1, 1), _RGB(-r, r, r - y), BF ' cyan , yellow green, red
                Case 4: Line (x, y)-Step(1, 1), _RGB(-r, r - y, r), BF ' white , blue,  red
                Case 5: Line (x, y)-Step(1, 1), _RGB(r - y, -r, r), BF ' purple, blue ,green
                Case 6: Line (x, y)-Step(1, 1), _RGB(r - y, r, -r), BF ' yellow green blue
            End Select
        Next
        t = t + dt ' <<<<<<<<<<<< put this back in so the background is shaped
    Next
    Print dt
    Sleep
Loop