Proggies

[bplus]

Quick little demo on Plasma~& and ResetPlasma for beautiful coloring.

This is called "Plasma Deluxe"

Code: (Select All)

_Title "Plasma Deluxe" 'b+ 2025-11-02
Screen _NewImage(1200, 600, 32)
_ScreenMove 50, 60
_PrintMode _KeepBackground
_Font _LoadFont("Arial.ttf", 128)
Dim Shared cN, pR, pG, pB
While _KeyDown(27) = 0
    Cls
    x = 0
    resetPlasma
    For y = 0 To 480 Step 2
        x = x + 1.4
        Color Plasma~&
        _PrintString (x, y), "Plasma Deluxe"
        _Display
        _Limit 100
    Next
    _Delay 1.5
Wend

Function Plasma~& ()
    cN = cN + 1 ''Dim Shared cN, pR, pG, pB
    Plasma~& = _RGB32(127 + 127 * Sin(pR * cN), 127 + 127 * Sin(pG * cN), 127 + 127 * Sin(pB * cN))
End Function

Sub resetPlasma ()
    ''Dim Shared cN, pR, pG, pB
    pR = Rnd ^ 2: pG = Rnd ^ 2: pB = Rnd ^ 2: cN = 0
End Sub