Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Jun 5, 2024 8:37:19 GMT -5
Screen _NewImage(800, 600, 32)
Randomize Timer
Const CHAR_SIZE = 16
Const COLUMNS = 50
Const ROWS = 37
Const MIN_FALL_SPEED = 0.2
Const MAX_FALL_SPEED = 1.0
Const NEW_CHAR_PROB = 0.5
Const FADE_SPEED = 0.01
Dim Shared matrix(COLUMNS, ROWS) As Integer
Dim Shared char_colors(COLUMNS, ROWS) As _Unsigned Long
Dim Shared char_bright(COLUMNS, ROWS) As Single
Dim Shared char_x(COLUMNS) As Integer
Dim Shared char_y(COLUMNS) As Integer
Dim Shared char_length(COLUMNS) As Integer
Dim Shared fall_speed(COLUMNS) As Single
init_matrix
Do
update_matrix
draw_matrix
_Display
_Delay 0.1
_Limit 60
Loop Until _KeyHit = 27
System
Sub init_matrix ()
For i = 1 To COLUMNS
char_x(i) = (i - 1) * CHAR_SIZE
char_y(i) = Int(Rnd * ROWS) * CHAR_SIZE
char_length(i) = Int(Rnd * (ROWS * 0.8)) + (ROWS * 0.2)
fall_speed(i) = Rnd * (MAX_FALL_SPEED - MIN_FALL_SPEED) + MIN_FALL_SPEED
Next
End Sub
Sub draw_matrix ()
Cls
For i = 1 To COLUMNS
For j = 1 To char_length(i)
If matrix(i, j) > 0 Then
Color char_colors(i, j), 0
_PrintString (char_x(i), char_y(i) + (j - 1) * CHAR_SIZE), Chr$(matrix(i, j))
char_bright(i, j) = char_bright(i, j) - FADE_SPEED
If char_bright(i, j) < 0 Then char_bright(i, j) = 0
char_colors(i, j) = _RGB32(0, Int(char_bright(i, j) * 255), 0)
End If
Next
Next
End Sub
Sub update_matrix ()
For i = 1 To COLUMNS
char_y(i) = char_y(i) + fall_speed(i)
If char_y(i) >= ROWS * CHAR_SIZE Then
char_y(i) = 0
char_length(i) = Int(Rnd * (ROWS * 0.8)) + (ROWS * 0.2)
fall_speed(i) = Rnd * (MAX_FALL_SPEED - MIN_FALL_SPEED) + MIN_FALL_SPEED
For j = 1 To ROWS
matrix(i, j) = 0
Next
End If
For j = ROWS To 2 Step -1
matrix(i, j) = matrix(i, j - 1)
char_colors(i, j) = char_colors(i, j - 1)
char_bright(i, j) = char_bright(i, j - 1)
Next
If Rnd < NEW_CHAR_PROB Then
matrix(i, 1) = Int(Rnd * 256)
char_colors(i, 1) = _RGB32(0, 255, 0)
char_bright(i, 1) = 1
Else
matrix(i, 1) = 0
End If
Next
End Sub
 |
|
