### Author Topic: Matrix Effect by TylerDarko  (Read 23110 times)

0 Members and 1 Guest are viewing this topic.

#### The Librarian

• Moderator
• Newbie
• Posts: 39
##### Matrix Effect by TylerDarko
« on: March 16, 2018, 06:33:50 am »
Matrix Effect

Author: TylerDarko
Source: [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] Forum
URL: /forum/index.php?topic=13656.msg122971#msg122971]http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=13656.msg122971#msg122971
Version: 2017
Tags: [ascii], [matrix]

Description:
I see /forum/index.php?topic=13656.msg118470]your 388-lines matrix effect and raise you mine, with only 25:

Source Code:
Code: QB64: [Select]
1.
2. FOR i = 1 TO UBOUND(m)
3.     m(i) = -INT(RND * _HEIGHT)
4.
5. COLOR _RGB32(0, 255, 0)
6.
7.     _LIMIT 15
8.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA32(0, 0, 0, 20), BF
9.
10.     FOR i = 1 TO UBOUND(m)
11.         m(i) = m(i) + _FONTHEIGHT
12.         IF m(i) > 0 THEN
13.             IF m(i) > _HEIGHT THEN m(i) = -INT(RND * _HEIGHT)
14.             _PRINTSTRING (i * _FONTWIDTH - _FONTWIDTH, m(i)), CHR\$(_CEIL(RND * 254))
15.

« Last Edit: August 08, 2018, 11:14:50 pm by odin »