Modified Matrix Effect (original from @khakimov)

gomatrix

#!/bin/bash

lines=$(tput lines)
cols=$(tput cols)

awkscript='
  {
    lines=$1
    random_col=$3
    letter=$4
    cols[random_col]=0;
    for (col in cols) {
      rnum = int(20*rand());
      if (cols[col] < 0) {
        line=-cols[col];
        cols[col]=cols[col]-1;
        subline = -cols[col] + 1
        printf "\033[%s;%sH%s", line, col, " ";
        printf "\033[%s;%sH%s\033[0;0H", newline, col, " ";
        if (actcol >= lines) {
          cols[col]=0;
        } else if (rnum < 1) {
          cols[col]=0
        }
      } else {
        line=cols[col];
        cols[col]=cols[col]+1;
        if (rnum < 3) {
          printf "\033[%s;%sH\033[1;32m%s\033[0m", line, col, letter;
        } else {
          printf "\033[%s;%sH\033[2;32m%s\033[0m", line, col, letter;
        }
        printf "\033[%s;%sH\033[37m%s\033[0;0H\033[0m", cols[col], col, letter;
        if (cols[col] >= lines) {
          if (rnum < 2) {
            cols[col]=0
          } else {
            cols[col]=-1;
          }
        }
      }
    }
  }
'

echo -e "\e[1;40m"
clear

if [[ -t 0 ]]; then
  stty -echo -icanon -icrnl time 0 min 0;
fi

keypress=''
while [ "x$keypress" = "x" ]; do
  echo $lines $cols $(( $RANDOM % $cols)) $(( $RANDOM % 2 ))
  sleep 0.04
  keypress="`cat -v`"
done | awk "$awkscript"

if [[ -t 0 ]]; then
  stty sane;
fi

clear
exit 0

This is amazing! Thanks for making it :)

I only get a black screen with a single "0" or "1" on the screen. It doesnt keep on writing on the screen.

Im using the Linux subsystem in Win10. Would that be causing this?

@gadget00 Unfortunately I'm not familiar with the Linux subsystem, but there could be some commands or escape sequences that don't work the same. I wonder: What's the output of tput lines or tput cols?

tput lines: 30

tput cols: 120

this is epic

Loved this. Hoping the serial connection to my new (lol) HP 700/96 is quick enough to run it.
Just a quick update to expand from using just 0's and 1's:

8,10c8,12
< lines=$1
< random_col=$3
< letter=$4
---
> lines=$1;
> random_col=$3;
> rand_char=$4;
> charset="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@#$%^&*()";
> letter=substr(charset,rand_char,1);
55c57
< echo $lines $cols $(( $RANDOM % $cols)) $(( $RANDOM % 2 ))
---
> echo $lines $cols $(( $RANDOM % $cols)) $(( $RANDOM % 70 ))
65a68
>