Matrix digital rain

Matrix digital rain is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Implement the Matrix Digital Rain visual effect from the movie "The Matrix" as described in Wikipedia.

Provided is a reference implementation in Common Lisp to be run in a terminal.

Common Lisp

Works with: SBCL

Runs in the terminal (using the Ncurses C library and the croatoan Lisp wrapper).

<lang lisp> (defun matrix-digital-rain ()

 (with-screen (scr :input-echoing nil :input-blocking nil :cursor-visibility nil)
   (let* ((width (.width scr))
          (height (.height scr))
          ;; start at a random height in each column.
          (positions (loop repeat width collect (random height)))
          ;; run each column at a random speed.
          (speeds (loop repeat width collect (random 4))))
     ;; hit the q key to exit the main loop.
     (add-event-handler (scr #\q) 'exit-event-loop)
     (add-event-handler (scr nil)
       (lambda (win event)
         ;; generate a random ascii char
         (flet ((randch () (+ 64 (random 58))))
           (loop for col from 0 to (1- width) do
             (loop repeat (nth col speeds) do
               ;; position of the first point in the current column
               (let ((pos (nth col positions)))
                 (setf (.attributes win) '(:bold))
                 (setf (.color-pair win) '(:white :black))
                 (add win (randch) :y (mod pos height) :x col)
                 (setf (.color-pair win) '(:green :black))
                 (add win (randch) :y (mod (- pos 1) height) :x col)
                 (add win (randch) :y (mod (- pos 2) height) :x col)
                 (setf (.attributes win) '())
                 (add win (randch) :y (mod (- pos 3) height) :x col)
                 ;; overwrite the last char half the height from the first char.
                 (add win #\space  :y (mod (- pos (floor height 2)) height) :x col)
                 (refresh win)
                 ;; advance the current column
                 (setf (nth col positions) (mod (+ pos 1) height))))))))
       (setf (.frame-rate scr) 20)
       (run-event-loop scr))))

</lang>

Sample output:

https://i.imgur.com/17b36O3.png

Perl 6

Works with: Rakudo version 2018.11

Kind of cheap and cheesy, but what the heck... Probably will only work in POSIX compatible terminal. Runs until you hit ^C to exit.

<lang perl6>signal(SIGINT).tap: { print "\e[H\e[J\e[?25h"; exit(0) }

my @codes = flat 'Α' .. 'Π', 'Σ' .. 'ѵ', 'Ѐ' .. 'ѵ', 'Ҋ' .. 'ԯ', 'Ϣ' .. 'ϯ',

                'Ⲁ' .. '⳩', '∀' .. '∗', '℀' .. '℺', '⨀' .. '⫿';

my ($rows,$cols) = qx/stty size/.words;

my @c = flat "\e[38;2;255;255;255m", (255,250 … 30).map({"\e[38;2;0;$_;0m"}),

             "\e[38;2;0;25;0m" xx 250;

my $sz = +@c; my (@o, @s, @a); print "\e[?25l"; init($rows, $cols);

loop {

    my ($r,$c) = qx/stty size/.words;
    init($r, $c) if $r != $rows or $c != $cols;
    print "\e[1;1H";
    print join , (^@s).map: {
        @a[$_]<fg> = (@a[$_]<fg> + 1) % $sz;
        flat @c[@a[$_]<fg>], @a[$_]<bg>, @s[$_];
    }
    @s[(^@s).pick] = @codes.roll for ^30;

}

sub init ($r, $c) {

   @s = @codes.roll($r * $c);
   ($rows,$cols) = $r, $c;
   @a = {:bg("\e[48;5;232m")} xx +@s;
   my @o = (^@c).pick xx $cols;
   for ^$rows -> $row {
       for ^$cols -> $col {
           @a[$row * $cols + $col]<fg> = @o[$col];
       }
       @o = (^@o).map: {(@o[$_] - ($_ % 3)) % $sz};
   }

}</lang>

Sample output:

See matrix-digital-rain-perl6.png (offsite png image)