for(;print"\e[2J";$d--){for$i(0..31){for(0..7)
{$|=1;$c=cos$d/($P=4*atan2(1,1));
$s=sin$d/$P;(1,2,4,8,16,32,64,128)[$_]&
(63,127,63,1,65,1,65,1,65,1,65,1,65,1,651,63,31,63,1,1,1,65,
1,1,1,65,1,1,127,65,127)[$i]&&print"\e[",25+int$c*($Y=-
4+int$i/4)-$s*($X=($i%4-2)
*9+$_),";",40+int$a*$Y+$c*$X,"H*"}}select('','','',.1)}