JS1k: The JavaScript code golfing competition

p=String.prototype;p.r=p.replace;eval("r=Math;p=r.PI;P=p*2;{!u_{:beginPath_!e_{:restore_!f_{:save_!g(o,x,y){:rotate(o):translate(x,y)!h(r){u_:moveTo(r,0@rgb(245,50,50)':arc(0,0,r,0,P,1)~_!k(rX>3){d=.85;g(-.03*p,0,-r*(1+d));h(r);k(r*d)}!w(r,oX>2.9){h(r);x(r,.9561,.03*p,o%g(.55*p);k(.8*r);e_}!x(r,d,t,o){f_;g(t*o,0,-r*(1+d));w(r*d,o);e_!q(r,oX>.25){d=.987;u_:moveTo(r,0@rgba(255,50,50,'+(.1+r*.1)+')':arc(0,0,r,0,P,1)~_;g(-.15*o,0,r*(1+d));q(r*d,o)}!m_{h(22%g(0,-15,-3);u(@#fff':arc(0,0,10,0,P,1)~_;e_;g(0,9,-4);u(@#000':arc(0,0,5,0,P,1)~_;g(0,6,-8);g(.6*p,0,0);w(5.5,1.8)!n(rX<10)m_;else{d=.85;h(r);g(-.15,0,-r*(1+d));n(r*d)}}i=0;{!l_{i++;(1@#fff'~Rect(-1500,-1500,5000,5000%g(0,0,-r.sin(i*.1)*50%q(20,r.sin(p/4.0+i*.05));e(%n(22);e(%g(p*.4);w(18,r.sin(i*.1));e_:scale(-1,1);g(p*.4);w(18,r.sin(i*.1));e_;setTimeout(l,20)}c.width=c.height=1400;g(0,600,220):scale(.4,.4);l_".r(/!/g,'}function ').r(/@/g,")~Style='").r(/~/g,':fill').r(/:/g,';a.').r(/%/g,');f_;').r(/_/g,'()').r(/X/g,'){if(r'))

cD1TdHJpbmcucHJvdG90eXBlO3Aucj1wLnJlcGxhY2U7ZXZhbCgicj1NYXRoO3A9ci5QSTtQPXAqMjt7IXVfezpiZWdpblBhdGhfIWVfezpyZXN0b3JlXyFmX3s6c2F2ZV8hZyhvLHgseSl7OnJvdGF0ZShvKTp0cmFuc2xhdGUoeCx5KSFoKHIpe3VfOm1vdmVUbyhyLDBAcmdiKDI0NSw1MCw1MCknOmFyYygwLDAsciwwLFAsMSl+XyFrKHJYPjMpe2Q9Ljg1O2coLS4wMypwLDAsLXIqKDErZCkpO2gocik7ayhyKmQpfSF3KHIsb1g+Mi45KXtoKHIpO3gociwuOTU2MSwuMDMqcCxvJWcoLjU1KnApO2soLjgqcik7ZV99IXgocixkLHQsbyl7Zl87Zyh0Km8sMCwtciooMStkKSk7dyhyKmQsbyk7ZV8hcShyLG9YPi4yNSl7ZD0uOTg3O3VfOm1vdmVUbyhyLDBAcmdiYSgyNTUsNTAsNTAsJysoLjErciouMSkrJyknOmFyYygwLDAsciwwLFAsMSl+XztnKC0uMTUqbywwLHIqKDErZCkpO3EocipkLG8pfSFtX3toKDIyJWcoMCwtMTUsLTMpO3UoQCNmZmYnOmFyYygwLDAsMTAsMCxQLDEpfl87ZV87ZygwLDksLTQpO3UoQCMwMDAnOmFyYygwLDAsNSwwLFAsMSl+XztnKDAsNiwtOCk7ZyguNipwLDAsMCk7dyg1LjUsMS44KSFuKHJYPDEwKW1fO2Vsc2V7ZD0uODU7aChyKTtnKC0uMTUsMCwtciooMStkKSk7bihyKmQpfX1pPTA7eyFsX3tpKys7KDFAI2ZmZid+UmVjdCgtMTUwMCwtMTUwMCw1MDAwLDUwMDAlZygwLDAsLXIuc2luKGkqLjEpKjUwJXEoMjAsci5zaW4ocC80LjAraSouMDUpKTtlKCVuKDIyKTtlKCVnKHAqLjQpO3coMTgsci5zaW4oaSouMSkpO2VfOnNjYWxlKC0xLDEpO2cocCouNCk7dygxOCxyLnNpbihpKi4xKSk7ZV87c2V0VGltZW91dChsLDIwKX1jLndpZHRoPWMuaGVpZ2h0PTE0MDA7ZygwLDYwMCwyMjApOnNjYWxlKC40LC40KTtsXyIucigvIS9nLCd9ZnVuY3Rpb24gJykucigvQC9nLCIpflN0eWxlPSciKS5yKC9+L2csJzpmaWxsJykucigvOi9nLCc7YS4nKS5yKC8lL2csJyk7Zl87JykucigvXy9nLCcoKScpLnIoL1gvZywnKXtpZihyJykp

Original source not submitted