JS1k: The JavaScript code golfing competition

M=Math;pi=parseInt;c=document.getElementById("c");T=c.getContext("2d");W=256;w=512,w2=w/2;c.height=W;c.width=w;h=W,h2=h/2;im=T.getImageData(0,0,w,h);D=im.data;G=4;P=255;Number.prototype.m=function(a){return((this%a)+a)%a};function no(f,e,g){n=M.sqrt(f*f+e*e+g*g);return[f/n,e/n,g/n]}function fi(a){A=a[1];return A!=0?50/A:0}co=[0,0,-100];function fin(a,b){r=[];vg=a[0],vd=a[1];dvg=(a[2]-vg)/b,dvd=(a[3]-vd)/b;cv=0;k=b;l=b;while(k--){dx=(vd-vg)/b;cv=vg;while(l--){r.push(cv);cv+=dx}l=b;vg+=dvg;vd+=dvd}return r}z=0;setInterval(function(){for(y=0;y<h2;y+=G){for(x=-w2;x<w2;x+=G){xp=x+w2;yp=y+h2;function a(b,e){d=no(b,e,-co[2]);i=fi(d);return(i>0)?(pi(i*d[0]).m(W)^pi(i*d[2]+co[2]+z).m(W))*M.exp(-i/150):0}A=fin([a(x,y),a(x+G,y),a(x,y+G),a(x+G,y+G)],G);i=0;for(yd=yp;yd<(yp+G);yd++){for(xd=xp;xd<(xp+G);xd++){I=(yd*w+xd)*4;D[I+0]=D[I+1]=D[I+2]=A[i++];D[I+3]=P}}}}for(y=-h2;y<0;y++){for(x=-w2;x<w2;x++){xp=x+w2;yp=y+h2;I=(yp*w+xp)*4;D[I+2]=D[((h-yp-1)*w+(w-xp-1))*4+2];D[I+3]=P}}im.data=D;T.putImageData(im,0,0);z+=10},30);

TT1NYXRoO3BpPXBhcnNlSW50O2M9ZG9jdW1lbnQuZ2V0RWxlbWVudEJ5SWQoImMiKTtUPWMuZ2V0Q29udGV4dCgiMmQiKTtXPTI1Njt3PTUxMix3Mj13LzI7Yy5oZWlnaHQ9VztjLndpZHRoPXc7aD1XLGgyPWgvMjtpbT1ULmdldEltYWdlRGF0YSgwLDAsdyxoKTtEPWltLmRhdGE7Rz00O1A9MjU1O051bWJlci5wcm90b3R5cGUubT1mdW5jdGlvbihhKXtyZXR1cm4oKHRoaXMlYSkrYSklYX07ZnVuY3Rpb24gbm8oZixlLGcpe249TS5zcXJ0KGYqZitlKmUrZypnKTtyZXR1cm5bZi9uLGUvbixnL25dfWZ1bmN0aW9uIGZpKGEpe0E9YVsxXTtyZXR1cm4gQSE9MD81MC9BOjB9Y289WzAsMCwtMTAwXTtmdW5jdGlvbiBmaW4oYSxiKXtyPVtdO3ZnPWFbMF0sdmQ9YVsxXTtkdmc9KGFbMl0tdmcpL2IsZHZkPShhWzNdLXZkKS9iO2N2PTA7az1iO2w9Yjt3aGlsZShrLS0pe2R4PSh2ZC12ZykvYjtjdj12Zzt3aGlsZShsLS0pe3IucHVzaChjdik7Y3YrPWR4fWw9Yjt2Zys9ZHZnO3ZkKz1kdmR9cmV0dXJuIHJ9ej0wO3NldEludGVydmFsKGZ1bmN0aW9uKCl7Zm9yKHk9MDt5PGgyO3krPUcpe2Zvcih4PS13Mjt4PHcyO3grPUcpe3hwPXgrdzI7eXA9eStoMjtmdW5jdGlvbiBhKGIsZSl7ZD1ubyhiLGUsLWNvWzJdKTtpPWZpKGQpO3JldHVybihpPjApPyhwaShpKmRbMF0pLm0oVylecGkoaSpkWzJdK2NvWzJdK3opLm0oVykpKk0uZXhwKC1pLzE1MCk6MH1BPWZpbihbYSh4LHkpLGEoeCtHLHkpLGEoeCx5K0cpLGEoeCtHLHkrRyldLEcpO2k9MDtmb3IoeWQ9eXA7eWQ8KHlwK0cpO3lkKyspe2Zvcih4ZD14cDt4ZDwoeHArRyk7eGQrKyl7ST0oeWQqdyt4ZCkqNDtEW0krMF09RFtJKzFdPURbSSsyXT1BW2krK107RFtJKzNdPVB9fX19Zm9yKHk9LWgyO3k8MDt5Kyspe2Zvcih4PS13Mjt4PHcyO3grKyl7eHA9eCt3Mjt5cD15K2gyO0k9KHlwKncreHApKjQ7RFtJKzJdPURbKChoLXlwLTEpKncrKHcteHAtMSkpKjQrMl07RFtJKzNdPVB9fWltLmRhdGE9RDtULnB1dEltYWdlRGF0YShpbSwwLDApO3orPTEwfSwzMCk7

Original source not submitted