Tfe

Old stuff/Perl/anim/anim.pl

#!/usr/bin/perl -w
use strict; 

my (@a,$bl,$st,$lg,$tp);my @blk;@blk=("1-5 0 2","1-5 3 5","1-5 14 2","2 9 5","3-5 11 3","4-5 9 5","2 17 6","4 17 6","3 19 5");
for $bl(0..5){for(0..22){$a[$bl][$_]="#";}}foreach (@blk){($bl,$st,$lg)=split;
if (!/-/){for(0..$lg-1){$a[$bl][$st+$_]=" ";}}
if (/-/){for((split("-",$bl))[0]..(split("-",$bl))[1]){ for $tp(0..$lg-1){$a[$_][$st+$tp]=" ";}}
}}$|++;$" = "";foreach(@a){foreach(@{$_}){select(undef,undef,undef,0.02);print;}print"\n";}