Author Topic: Matrix Effect by TylerDarko  (Read 27695 times)

0 Members and 1 Guest are viewing this topic.

Offline The Librarian

  • Moderator
  • Newbie
  • Posts: 39
    • View Profile
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.         END IF
  16.     NEXT
  17.  
  18.     _DISPLAY

DarkoMatrix.png
* DarkoMatrix.bas (Filesize: 0.58 KB, Downloads: 923)
« Last Edit: August 08, 2018, 11:14:50 pm by odin »