Wavey Words

[bplus]

Here is another way

Code: (Select All)

_Title "Wavy Words, press escape to quit..." 'bplus mod 2025-10-08
Screen _NewImage(640, 400, 32): _ScreenMove 300, 150
_PrintMode _KeepBackground
p$ = "H.e.l.l.o...Q.B.6.4.P.E...W.o.r.l.d.!...H.e.l.l.o...Q.B.6.4.P.E...W.o.r.l.d.!.."
da = .01
Do
    For y = 0 To 400
        Line (0, y)-(640, y), _RGB32(255 - 300 * y / 400, 255 - 300 * y / 400, 255 - 255 * y / 400)
    Next
    For j = 0 To 16
        Color _RGB32(255 - 32 * j, 255 - 32 * j, 255 - 16 * j)
        For l = 1 To Len(p$)
            _PrintString (l * 8, 184 + 32 * Sin(l / 10 + a) + j * 16), Mid$(p$, l, 1)
        Next
    Next
    _Display: _Limit 200: a = a + da
Loop Until _KeyDown(27)