JS1k: The JavaScript code golfing competition

for(_='0,:/3d=,d)=65b.a0.0;/65|+"%",rocesstion.c=1+6>v?0;c.fill,N	/65-5;for();)+1)*.length%1-5,func={dbgae:1,f:1/11},
with(Math)r=2*PI,w=sin,x=pow,y=max,Q=sqrt;n=a.widthp=a.heightA,B0E=C=D=6s=u=v=O= F(){requestAnimaFrame(FD.05:E:05;b;b--;)m; m--;){l=mk=bt=f= 20>t&&!(h=E+f*l,C+f*k,g=D+f,h=hdg=gg=y(Q(h*h+d*d+g*g)-2),f+=g,5E-4>g t++l-t/2k=m;f-bStyle="hsla("+[A,80*ll*B4]Rect(k*n,f*p,n,p)}}F(I
R
S
o
M=[1,0],N=[1,4,7];I.f;I.e/6;I=-9;G=new AudioContext;H=GreateScriptPor(4096,1Honnect(G.destinaH.onaudiop=(h){j=G.sampleRate,q/8*j|P=(b,f{f=f[u%f];g=(1*w(s/20;d&&0!=f&&(,440*x(2,(f+b-34)/12),A+=4*fl=r*d/j;b=(b+l)%r;-/(e*j=y(,0return f**(b>(g+1)/2*r?1:-1)};h=h.outputBuffer.getChannelData(0i= i<h;i++)O+i,u=d/q|0==d%q?1s+=0025,v=u%32,R6<v?8:5,S=R+7,o=S+2h[i]=P(I,M+P(R	+(w(s00-r(P(S	+P(o	O+=h};';g=/[
-]/.exec(_);)with(_.split(g))_=join(shift());eval(_)

Zm9yKF89JzAsHTodHC8zG2Q9GixkKRk9NjUYYi4XF2EWMC4VMDsULzY1fB0TKyIlIiwScm9jZXNzEXRpb24QLmMPPTEOKw42PnY/MAw7Yy5maWxsCyxOGQkvNjUtFTU7CGZvcigHKTsGKRsrMRspKgUubGVuZ3RoBCUxLRU1LANmdW5jEAI9e2QcYhxnHGEcZToxLGY6MS8xMX0sAXdpdGgoTWF0aClyPTIqUEksdz1zaW4seD1wb3cseT1tYXgsUT1zcXJ0O249YS53aWR0aBNwPWEuaGVpZ2h0E0EOLEIOMB1FPUM9RD02HXM9HXU9dj1PPRQCIEYoKXtyZXF1ZXN0QW5pbWEQRnJhbWUoRgZEDC4wNToURQw6FTA1OwdiGDtiLS07KQdtGDsgbS0tOyl7bD1tCGs9YggHdD1mPRQgMjA+dCYmIShoPUUrZipsLBpDK2YqayxnPUQrZixoPWgDGmQDZz1nA2c9eSgdUShoKmgrZCpkK2cqZyktFTIpLGYrPWcsNUUtND5nBiB0KysGbA4tdC8yFGs9bTtmGC1iC1N0eWxlPSJoc2xhKCIrW0EsODAqbBJsKkISFTRdC1JlY3QoaypuLGYqcCxuLHApfX1GKAZJAVIBUwFvAU09WzEsHR0wXSxOPVsxLDQsN107SS5mDhs7SS5lDi82O0kPPS05O0c9bmV3IEF1ZGlvQ29udGV4dDtIPUcPcmVhdGVTY3JpcHRQEW9yKDQwOTYsHTEGSA9vbm5lY3QoRy5kZXN0aW5hEAZILm9uYXVkaW9wET0CKGgpe2o9Ry5zYW1wbGVSYXRlLHEOLzgqanwUUD0CKGIsZhl7Zj1mW3UlZgRdOxdnPSgxKncocy8yMAUWO2QmJjAhPWYmJigWDiwXGjQ0MCp4KDIsKGYrYg8tMzQpLzEyKSxBKz00KmYGbD1yKhdkL2o7F2I9KBdiK2wpJXI7Fi0OLygXZSpqBhY9eSgWLDAGcmV0dXJuIBdmKhYqKBdiPigXZysxKS8yKnI/MTotMSl9O2g9aC5vdXRwdXRCdWZmZXIuZ2V0Q2hhbm5lbERhdGEoMAYHaT0UIGk8aAQ7aSsrKRpPK2ksdT1kL3F8HRowPT1kJXE/MRxzKz0VMDAyNSx2PXUlMzIsUg8ONjx2Pzg6NSxTDz1SDys3LG8PPVMPKzIdaFtpXT1QKEksTRkrUChSCSsodyhzGzAwLXIbBShQKFMJK1AobwkGTys9aAR9Oyc7Zz0vWwEtHV0vLmV4ZWMoXyk7KXdpdGgoXy5zcGxpdChnKSlfPWpvaW4oc2hpZnQoKSk7ZXZhbChfKQ==

// make jslint stop after the first error so we can do all sort of nasty tricks
/*jslint passfail: true*/

/** @define {boolean} */
var DEBUG = true;
/** @define {boolean} */
var SOUND = true;
/** @define {boolean} */
var ROTATE = false;

/*
 * window:
 *      Ado: AudioContext()
 *      rqt: requestAnimationFramework()
 *
 * AudioContext:
 *      flc: fillRect()
 *      smR: sampleRate
 *      dsa: destination
 *
 * AudioDestinationNode:
 *      ceS: createScriptProcessor()
 *
 * ScriptProcessorNode:
 *      cnt: connect()
 */
function shorten(o) {
    for (e in o) {
        o[e[0]+e[2]+(e[6]||'')] = o[e];
    }
}

//shorten(this);
//shorten(c);
//shorten(a);

// declare global vars to enable shortening by google closure compiler
var
    numpixels=65,
    w=a.width,
    h=a.height,
    pixelSizeX = w/numpixels|0,
    pixelSizeY = h/numpixels|0,
    vw=numpixels,
    vh=numpixels,
    M=Math,
    PI = M.PI,
    TPI = 2*PI,
    fps,
    t=0,
    beat=0,
    beatsync=0,
    theta=0,
    st,
    run=1,
    mr=M.random,
    ms=M.sin,
    mc=M.cos,
    mp=M.pow,
    me=M.exp,
    mM=M.max,
    msq=M.sqrt,
    hue=1,
    light=100,
    theta=0,
    o={}
    ;

o.x=o.y=o.z=60;


if (DEBUG) {
    st = new Date().getTime();
    fps=0;
}

function pp(x, y, v) {
    c.fillStyle = 'hsla('+[hue,v*80+'%',v*light+'%',1];
    c.fillRect(x*pixelSizeX, y*pixelSizeY, pixelSizeX, pixelSizeY);
}

function mod_xz(v, m) {
    return {
        x: v.x%m-m/2,
        y: v.y%m-m/2,
        z: v.z%m-m/2
    };
}

function DE_sphere(p, r) {
    return mM(0,msq(p.x*p.x+p.y*p.y+p.z*p.z)-r);
}

function DE_displaced_sphere(p, r) {
    var d1,d2;
    d1 = DE_sphere(p, r);
    d2 = ms(1.5*p.x)*ms(1.5*p.y);
    return d1+d2;
}

function rotate_Y(p, t) {
    return {
        x: p.x*mc(t)-p.z*ms(t),
        y: p.y,
        z: p.x*ms(t)+p.z*mc(t)
    };
}

function rotate_Z(p, t) {
    return {
        x: p.x*mc(t)-p.y*ms(t),
        y: p.x*ms(t)+p.y*mc(t),
        z: p.z
    };
}

function translate(p, x, y, z) {
    return {
        x: p.x+x,
        y: p.y+y,
        z: p.z+z
    };
}

var render = function() {
    var f=1,imax=20;
    var x,y,d,b,distance,dd,p,i,walk=1/20;

    o.z+=beatsync<16?walk:0;
    o.x+=beatsync<16?0:walk;
    theta+=PI/60;


    y=vh;while(y--) {
        x=vw;while(x--) {
            d={x:x/vw-0.5,y:y/vh-0.5};

            distance = 0;
            for (i=0; i<imax; i++) {
                p = {
                    x:o.x+distance*d.x,
                    y:o.y+distance*d.y,
                    z:o.z+distance
                };
                if (ROTATE) {
                    p=translate(p,-o.x,-o.y,-o.z);
                    p=rotate_Z(p,theta);
                    //p=rotate_Y(p,t/400);
                    p=translate(p,o.x,o.y,o.z);
                }
                dd = DE_sphere(mod_xz(p,1), 0.2);
                distance+=dd;
                if (dd < 5e-4) break;
            }
            b=(1-i/imax);

            pp(x,vh-y,b);
        }
    }
}

// add event listener to bind fun2tion keys
if (DEBUG) {
    onkeydown=function(e) {
        run = e.keyCode==32 ? run*-1 : run*1;
        SOUND && (e.keyCode==32 && a_jsnode.disconnect());
    };
}

function loop() {
    requestAnimationFrame(loop);

    if (DEBUG) {
        if (run==1) {
            render();
        }
    } else {
        render();
    }
};
loop();

if (SOUND) {

    function osc_sin(w) {
        return ms(w);
    }
    function osc_square(w) {
        return w>PI?1:-1;
    }
    function osc_pulse(w, pw) {
        return w>(pw+1)/2*TPI?1:-1;
    }
    function osc_saw(w) {
        return w/PI-1;
    }

    function keyfrequency(n) {
        return mp(2,(n-34)/12)*440;
    }


    var a_ctx,a_jsnode,a_delta,
    osc1 = {f:0, p:0, w:0, a:0, r:1, v:1/11},
    osc2 = {f:0, p:0, w:0, a:0, r:1, v:1/11},
    osc3 = {f:0, p:0, w:0, a:0, r:1, v:1/11},
    osc4 = {f:0, p:0, w:0, a:0, r:1, v:1/11},
    osc5 = {f:0, p:0, w:0, a:0, r:1, v:1/11},

    pattern1=[1,0,0,0],
    pattern3=[1,4,7],
    bt=0;

    osc1.v=1/3;
    osc2.v=1/3;
    osc1.r=1/6;
    osc1.t=-9;
    osc2.r=1/9;
    osc2.n=1;

    a_ctx = new AudioContext();

    a_jsnode = a_ctx.createScriptProcessor(1<<12, 0, 1);
    a_jsnode.connect(a_ctx.destination);

    a_jsnode.onaudioprocess = function(e) {
        var y1,n,sr=a_ctx.sampleRate,delta,res=60/(4*120),getVoiceValue,beatlength=sr*res|0;
        var start,vtranspose;

        getVoiceValue = function(osc, pattern, start) {
            var note = pattern[beat%pattern.length];

            // modulates pulse width
            osc.w=(ms(t/20)*1/3+1/3)*osc.a;

            if (start && note !=0) {
                osc.a=1;
                osc.f = keyfrequency(note+osc.t);
                hue+=note*4;
            }

            // calculate new phase
            delta = (TPI*osc.f)/sr;
            osc.p = (osc.p+delta)%(TPI);

            // calculate current amplitude based on envelope
            osc.a -= 1/(osc.r*sr);
            osc.a = mM(osc.a,0);

            // calculate current voice value
            return osc.v*osc.a*osc_pulse(osc.p, osc.w);
        }

        y1 = e.outputBuffer.getChannelData(0);

        for (i=0; i<y1.length; i++) {
            // current sample, absolute to start
            n=bt+i;

            // current beat, continuous
            beat = (n/(beatlength)|0);

            // indicates start of beat with value<>0
            start=n%beatlength==0?1:0;

            // increase grahpics time on beat start
            t+=1/400;

            // transpose arpeggio voices
            beatsync=beat%32;
            osc3.t = beatsync>16?8:5;
            osc4.t=osc3.t+7;
            osc5.t=osc4.t+20;

            y1[i] =
                    getVoiceValue(osc1, pattern1, start) // kick
                    + getVoiceValue(osc3, pattern3, start) // base
                    + (ms(t/300-TPI/3)/3+1/3)*(getVoiceValue(osc4, pattern3, start)+getVoiceValue(osc5, pattern3, start)) //voice
                    ;
        }
        bt+=y1.length;

    };

}