Tohle je novorocni prani pro geeky, na floating point aritmetiku je pouzito bc a tudiz to neni nejrychlejsi :))
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 " "; 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 -en "\E[m\E(\n\r";I=`$e "$I+0.08333" |$b`; done #(c) BruXy