QB64.org Forum

Samples Gallery & Reference => Samples => 2D/3D Graphics => Topic started by: The Librarian on March 16, 2018, 06:33:50 am

Title: Matrix Effect by TylerDarko
Post by: The Librarian 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 (http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there)
Version: 2017
Tags: [ascii], [matrix]

Description:
I see /forum/index.php?topic=13656.msg118470]your 388-lines matrix effect (http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there) 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