Simple text pixel data to array demo

[bplus]

Yep @dbox something wrong with QBJS reading Black~& that sets all points to 1

Code: (Select All)

_Title "WELCOME"
Randomize Timer
Const xmax = 1200
Const ymax = 600

Dim Shared cN, pR!, pG!, pB!

Screen _NewImage(xmax, ymax, 32)
mess$ = " Amazing.bas how sweet thou art... "
Print mess$
w = 8 * Len(mess$): h = 16
Dim p(w, h) As Integer
black~& = Point(0, 10)
For y = 0 To h
    For x = 0 To w
        If Point(x, y) <> black~& Then
            p(x, y) = 1
        End If
    Next
Next
For y = 0 To h
    For x = 0 To w
        Print p(x, y);
    Next
Next
Print
Sleep
Cls
xo = 5: yo = 235: m = 4
resetPlasma
While 1
    For y = 0 To h - 1
        For x = 0 To w - 1
            If p(x, y) Then
                changePlasma
            Else
                Color 0
            End If
            Line (xo + x * m, yo + y * m)-(xo + x * m + m, yo + y * m + m), , BF
        Next
    Next
    _Limit 5
    lc = lc + 1
    If lc Mod 30 = 0 Then resetPlasma
Wend

Sub changePlasma ()
    cN = cN + 1
    Color _RGB(127 + 127 * Sin(pR! * .3 * cN), 127 + 127 * Sin(pG! * .3 * cN), 127 + 127 * Sin(pB! * .3 * cN))
End Sub

Sub resetPlasma ()
    pR! = Rnd ^ 2: pG! = Rnd ^ 2: pB! = Rnd ^ 2
End Sub

Again this test code works fine in QB64pe, modified to see what QBJS is doing with the p() array (nothing good)