Matrix

[chain]

Here have fun with this was modified a bit ...but works great ;)

 

 

>alias matrix {   window -pkodCfB @Matrix -1 -1 $iif($1, $1, 400) $iif($2, $2, 400)  set %ticks $ticks | var %i 0 | %mt = $calc($window(@Matrix).w / 20)   while (%i  $window(@Matrix).h) {       %my [ $+ [ %z ] ] = - $+ $r(100,200) | %mx [ $+ [ %z ] ] = $r(0,$calc($window(@Matrix).w - 14)) | %ms [ $+ [ %z ] ] = $calc($window(@Matrix).h / $r(20,80)) | %ml [ $+ [ %z ] ] = $r(4,8) | %mb [ $+ [ %z ] ] = $r(9,20) }      inc %z    }    titlebar @Matrix $ceil($calc(1000/ ($ticks - %ticks)))    drawdot @Matrix | %ticks = $ticks    .timer -m 1 40 matrix.loop} }on *:CLOSE:@Matrix: { unset %m* | unset %ticks }