PF 2006

[BruXy]

S0=P; S1=F; S2=2; S3=0; S4=0;S5=6;e=echo;b=bc;I=-1; for x in `seq 1 24`;
do R=-2;  for y in `seq 1 80`; do B=0; r=0; i=0; while [ $B -le 32 ]; do
r2=`$e "$r*$r"  | $b`; i2=`$e "$i*$i" |$b`;  i=`$e "2.0*$i*$r+ $I" |$b`;
r=`$e  "$r2 - $i2+$R" |$b`;: $((B += 1));  V=`$e "($r2 +$i2) > 4" | $b`;  
if  [ "$V" -eq 1  ]; then break;  fi;  done; if  [ $B  -ge 32  ] ;  then
$e  -en "\E[01;40m ";  else U=$(( (B*4)/15+30));  $e  -en "\E[01;$U""m";
C=$((C%6));eval "$e -ne \$E\$S$C";: $((C+=1));fi;R=`$e "$R+0.03125" |$b`
done; $e -e "\E[m\E(";I=`$e "$I+0.08333" |$b`; done           #(c) BruXy