JS1k: The JavaScript code golfing competition

function M(s,i,n){return s+(i-s)*n}function S(s){return s*s*(3-2*s)}function $(i,a,r){i=A(i+s)*r,a=A(a)*r;var t=S(i-~~i),e=S(a-~~a),o=s-1,u=~~i&o,c=~~a&o,d=u+1&o,k=c+1&o,f=M(n[c*o+u],n[c*o+d],t),m=M(n[k*o+u],n[k*o+d],t);return M(f,m,e)}function G(){for(T+=.02,i=J;s*s-J>i;i++){var n,a,t,e,o=i%s/s,u=1-~~(i/s)/s,M=2*o-1-Q(T)/8,f=2*u-1.5,m=-1.15,h=20*Q(T),A=140,b=160+30*Q(T),g=0,v=0,q=0,D=0,I=50;for(k=0,E=1;I>k&&(D=A,t=h*h+A*A+b*b,e=$(h,b,.05)+.2*$(h,b,.5),t>s*s?(D=k=0,g=v=q=A/1e3):(D=A-90*e,g=v=q=4.6*k/I,g*=.3,q/=5,v*=.1,n=.7*A-55,50>b&&A+40*D>74&&(g=S(2*g),q=.95*S(1.75*q),v=S(1*v)),(a=R(h*h+n*n+b*b)-32)<D&&(D=a,g=q=v=1-k/I*1.2*(1-n/4)*1-.3*$(h,A,.9)-.03*Q(i*e/500),q*=.8,g*=.9,v*=.7)),!(.2>D));k++)h+=M*D,A+=f*D,b+=m*D;g+=.1,v+=.05,q+=.08,d[4*i]=g*s,d[4*i+1]=q*s,d[4*i+2]=v*s,d[4*i+3]=s}c.putImageData(r,0,-40),requestAnimationFrame(G)}var s=256,i=0,k=0,J=40*s,r=c.createImageData(s,s),d=r.data,n=[],T=0,Q=Math.sin,R=Math.sqrt,A=Math.abs;for(b.style.background="#000",i=0;s*s>i;i++)n[i]=M(.7,.5,Math.random());G();

ZnVuY3Rpb24gTShzLGksbil7cmV0dXJuIHMrKGktcykqbn1mdW5jdGlvbiBTKHMpe3JldHVybiBzKnMqKDMtMipzKX1mdW5jdGlvbiAkKGksYSxyKXtpPUEoaStzKSpyLGE9QShhKSpyO3ZhciB0PVMoaS1+fmkpLGU9UyhhLX5+YSksbz1zLTEsdT1+fmkmbyxjPX5+YSZvLGQ9dSsxJm8saz1jKzEmbyxmPU0obltjKm8rdV0sbltjKm8rZF0sdCksbT1NKG5baypvK3VdLG5baypvK2RdLHQpO3JldHVybiBNKGYsbSxlKX1mdW5jdGlvbiBHKCl7Zm9yKFQrPS4wMixpPUo7cypzLUo+aTtpKyspe3ZhciBuLGEsdCxlLG89aSVzL3MsdT0xLX5+KGkvcykvcyxNPTIqby0xLVEoVCkvOCxmPTIqdS0xLjUsbT0tMS4xNSxoPTIwKlEoVCksQT0xNDAsYj0xNjArMzAqUShUKSxnPTAsdj0wLHE9MCxEPTAsST01MDtmb3Ioaz0wLEU9MTtJPmsmJihEPUEsdD1oKmgrQSpBK2IqYixlPSQoaCxiLC4wNSkrLjIqJChoLGIsLjUpLHQ+cypzPyhEPWs9MCxnPXY9cT1BLzFlMyk6KEQ9QS05MCplLGc9dj1xPTQuNiprL0ksZyo9LjMscS89NSx2Kj0uMSxuPS43KkEtNTUsNTA+YiYmQSs0MCpEPjc0JiYoZz1TKDIqZykscT0uOTUqUygxLjc1KnEpLHY9UygxKnYpKSwoYT1SKGgqaCtuKm4rYipiKS0zMik8RCYmKEQ9YSxnPXE9dj0xLWsvSSoxLjIqKDEtbi80KSoxLS4zKiQoaCxBLC45KS0uMDMqUShpKmUvNTAwKSxxKj0uOCxnKj0uOSx2Kj0uNykpLCEoLjI+RCkpO2srKyloKz1NKkQsQSs9ZipELGIrPW0qRDtnKz0uMSx2Kz0uMDUscSs9LjA4LGRbNCppXT1nKnMsZFs0KmkrMV09cSpzLGRbNCppKzJdPXYqcyxkWzQqaSszXT1zfWMucHV0SW1hZ2VEYXRhKHIsMCwtNDApLHJlcXVlc3RBbmltYXRpb25GcmFtZShHKX12YXIgcz0yNTYsaT0wLGs9MCxKPTQwKnMscj1jLmNyZWF0ZUltYWdlRGF0YShzLHMpLGQ9ci5kYXRhLG49W10sVD0wLFE9TWF0aC5zaW4sUj1NYXRoLnNxcnQsQT1NYXRoLmFicztmb3IoYi5zdHlsZS5iYWNrZ3JvdW5kPSIjMDAwIixpPTA7cypzPmk7aSsrKW5baV09TSguNywuNSxNYXRoLnJhbmRvbSgpKTtHKCk7

var s = 256,
    i=0,
    k=0,
    J=s*40, 
    r=c.createImageData(s,s),
    d=r.data,
    n=[],
    T=0,
    Q=Math.sin,
    R=Math.sqrt,
    A=Math.abs;

//mix/lerp
function M(s,n,t){return s+(n-s)*t};
//SmoothStep
function S(t){return t*t*(3-2*t)};

b.style.background='#000';

//fill an array with random values
for(i=0; i<s*s; i++)
    n[i]=M(.7,.5,Math.random());

//our 'noise' function.. not a very good one.
function $(X, Y, k) {
    X = A(X+s)*k; //offset to avoid the tile seam in center
    Y = A(Y)*k;
    var tx = S(X - ~~X),
        ty = S(Y - ~~Y),
        m = s-1, //bit mask
        //smooth the random noise a little
        rx0 = ~~X & m,
        ry0 = ~~Y & m,
        rx1 = rx0+1 & m,
        ry1 = ry0+1 & m,
        nx0 = M( n[ry0*m+rx0], n[ry0*m+rx1], tx ),
        nx1 = M( n[ry1*m+rx0], n[ry1*m+rx1], tx );
    return M(nx0, nx1, ty);
}

function G() {
    T+=.02;
    
    //for each pixel
    for (i=J; i<s*s-J; i++) { //nobody's gonna notice a few missing pixels... 

        var u = i%s/s,
            v = 1-~~(i/s)/s;

        //determine ray direction & position
        var rdx = (u*2-1) - Q(T)/8,
            rdy = (v*2-1.5),
            rdz = (-1.15),
            // L = R(rdx*rdx+rdy*rdy+rdz*rdz), //length of ray dir
            px = Q(T)*20, //ray position
            py = 140,//+Q(T)*10,
            pz = 160+Q(T)*30,

            RED=0, BLUE=0, GREEN=0, //color channels
            Y, H, //for the egg
            D=0,  //ray marched distance; TODO: optimize this var out, replace with x or o
            N=50,
            len,
            noise; 

        // rdx/=L; //normalize the direction. looks OK without it.
        // rdy/=L;
        // rdz/=L;

        
        for (k=0,E=1; k<N; k++) {
            //calculate our distance field now..
            D = py;

            
            len = px*px+py*py+pz*pz;
            noise = $(px,pz,.05) + $(px,pz,.5)*.2; 

            if (len > s*s) {
                D = k = 0;
                RED=BLUE=GREEN = py/1e3;
                // BLUE+=pz/1e4;
            } else {
                D = py - noise*90;
                RED = BLUE = GREEN = 4.6*k/N;
                
                RED *= .3;
                GREEN /= 5;
                BLUE *= .1;

                Y=py*.7-55; //oval egg shape
                

                //fake some sparkle on the very tips
                if (pz<50 && py+D*40>74) {
                    RED = S(RED*2);
                    GREEN = S(GREEN*1.75)*.95;
                    BLUE = S(BLUE*1);
                } 

                if ((H=R(px*px+Y*Y+pz*pz)-32) < D) {
                    D = H;
                    
                    RED = GREEN = BLUE = 1-(k/N*1.2*(1-Y/4)) * 1-$(px,py,.9)*.3 - Q(i*noise/500)*.03;
                    GREEN *= .8;
                    RED *= .9;
                    BLUE *= .7;
                }

                // BLUE=A(Math.min(255,BLUE));
                // GREEN=A(Math.min(255,GREEN));
                // RED=A(Math.min(255,RED));                
            }

            if (D < .2) 
                break;

            //continue marching
            px += rdx * D;
            py += rdy * D;
            pz += rdz * D;
        }

        //color correction
        RED+=.1;
        BLUE+=.05;
        GREEN+=.08;

        //apply colors
        d[i*4] = RED*s;
        d[i*4+1] = GREEN*s;
        d[i*4+2] = BLUE*s;
        d[i*4+3] = s;
    }
    c.putImageData(r,0,-40);
    requestAnimationFrame(G); //setInterval is slow in chrome  

}
G();