I switched back to 1 dimensional arrays and used indices instead
(no login) Posted Feb 7, 2012 4:43 PM
i'm trying to write a matrix program of my own, like the one that was posted here earlier
This is what i have so far...
Source Code :
SCREEN _NEWIMAGE(1920, 1080, 32)
_FONT _LOADFONT("C:\WINDOWS\Fonts\Lucon.ttf", 21)
_SCREENMOVE 0, 0
DIM SHARED green(0 TO 25)
DIM SHARED Trail(27592 * 11)
FOR g = 255 TO 5 STEP -10
green(FIX(g / 10)) = g
NEXT g
DIM num(27592 * 11)
DIM SHARED position
position = -1
FOR dd = 1 TO 10
getTrail
' FOR x = 1 TO 27592
' num(x) = Trail(x)
' NEXT x
num(27592 * position) = Trail(27592 * position)
NEXT dd
FOR x = 0 TO 9
RANDOMIZE TIMER
PUT (INT(RND * 1820) + 1, INT(RND * 200) + 1), num(27592 * (x))
NEXT x
END
SUB getTrail
position = position + 1
RANDOMIZE TIMER
CLS
FOR x = 0 TO 25
COLOR _RGB(0, green(x), 0)
PRINT CHR$(INT(RND * 245) + 10)
NEXT x
GET (0, 0)-(50, 540), Trail(27592 * position)
CLS
END SUB