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

Offline The Librarian

  • Moderator
Matrix Effect by TylerDarko
« on: March 16, 2018, 06:33:50 AM »
Matrix Effect

Author: TylerDarko
Source: qb64.net Forum
URL: http://www.qb64.net/forum/index.php?topic=13656.msg122971#msg122971
Version: 2017
Tags: [ascii], [matrix]

Description:
I see 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

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