awk 'function abs(v) { return (v >= 0) ? v : 0 - v};BEGIN { XSize=20;YSize=10;cont=1;rate=48000; speed=3;resolution=60;range=-20;print offset > "/dev/stderr";x=0;y=0;MinRe=-1.4124509681377;MaxRe=-1.4994310951087;MinIm=-0.0016785045129853;MaxIm=0.000001;StepX=(MaxRe-MinRe)/XSize;StepY=(MaxIm-MinIm)/YSize;Im=MinIm+StepY*y;srand(); wla=wl(); while(cont) { wlb=wla; wla=wl(); if (wla==wlb) { wla*=2; };d=(1/speed)*rate/4; a=0;b=0;c=128; ca=40/wla;cb=20/wlb; de=rate/10;di=0; for (i=0;i<d;i++) { a++;b++;di++;c+=ca;c+=cb; if (a>wla) { {a=0;ca*=-1}; };if (b>wlb) { {b=0;cb*=-1}; };if (di>de) { {di=0;ca*=0.9;cb*=0.9}; };printf("%c",c);}; c=int(c); while(c!=128) { c<128?c+=1:c-=1; printf("%c",c);};};};function getNote() { if(x>XSize){ x=0;y++;Im=MinIm+StepY*y;printf "\n" > "/dev/stderr";if(y > YSize){ cont=0;y=0;return 0;};};x++; Re=MinRe+StepX*x;Zr=Re;Zi=Im;for(n=0;n<resolution;n+=1){ Ma=Zr*Zr;Mb=Zi*Zi;if(Ma+Mb>4.0) break;Zi=2*Zr*Zi+Im;Zr=Ma-Mb+Re;} printf "%c", 40+n*abs(range/resolution) > "/dev/stderr";return int(n*(range/resolution));};function wl() { return (rate/160)*(0.9^(getNote()));};' > /dev/dsp