Tfe

Old stuff/Perl/anim/tfe.pl

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

my (@a,$bl,$st,$lg,$tp);
my @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"\a\n";}