#!/bin/sh
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