with(document.body.style){margin="0px";overflow="hidden";}var w=window.innerWidth;var h=window.innerHeight;var ca=document.getElementById("c");ca.width=w;ca.height=h;var c=ca.getContext("2d");m=Math;fs=m.sin;fc=m.cos;fm=m.max;setInterval(d,30);function p(x,y,z){return{x:x,y:y,z:z};}function s(a,z){r=w/10;R=w/3;b=-20*fc(a*5+t);return p(w/2+(R*fc(a)+r*fs(z+2*t))/z+fc(a)*b,h/2+(R*fs(a))/z+fs(a)*b);}function q(a,da,z,dz){var v=[s(a,z),s(a+da,z),s(a+da,z+dz),s(a,z+dz)];c.beginPath();c.moveTo(v[0].x,v[0].y);for(i in v)c.lineTo(v[i].x,v[i].y);c.fill();}var Z=-0.20;var t=0;function d(){t+=1/30.0;c.fillStyle="#000";c.fillRect(0,0,w,h);c.fillStyle="#f00";var n=30;var a=0;var da=2*Math.PI/n;var dz=0.25;for(var z=Z+8;z>Z;z-=dz){for(var i=0;i<n;i++){fog=1/(fm((z+0.7)-3,1));if(z<=2){fog=fm(0,z/2*z/2);}var k=(205*(fog*Math.abs(fs(i/n*2*3.14+t))))>>0;k*=(0.55+0.45*fc((i/n+0.25)*Math.PI*5));k=k>>0;c.fillStyle="rgb("+k+","+k+","+k+")";q(a,da,z,dz);if(i%3==0){c.fillStyle="#000";q(a,da/10,z,dz);}a+=da;}}Z-=0.05;if(Z<=dz)Z+=dz;}
d2l0aChkb2N1bWVudC5ib2R5LnN0eWxlKXttYXJnaW49IjBweCI7b3ZlcmZsb3c9ImhpZGRlbiI7fXZhciB3PXdpbmRvdy5pbm5lcldpZHRoO3ZhciBoPXdpbmRvdy5pbm5lckhlaWdodDt2YXIgY2E9ZG9jdW1lbnQuZ2V0RWxlbWVudEJ5SWQoImMiKTtjYS53aWR0aD13O2NhLmhlaWdodD1oO3ZhciBjPWNhLmdldENvbnRleHQoIjJkIik7bT1NYXRoO2ZzPW0uc2luO2ZjPW0uY29zO2ZtPW0ubWF4O3NldEludGVydmFsKGQsMzApO2Z1bmN0aW9uIHAoeCx5LHope3JldHVybnt4OngseTp5LHo6en07fWZ1bmN0aW9uIHMoYSx6KXtyPXcvMTA7Uj13LzM7Yj0tMjAqZmMoYSo1K3QpO3JldHVybiBwKHcvMisoUipmYyhhKStyKmZzKHorMip0KSkveitmYyhhKSpiLGgvMisoUipmcyhhKSkveitmcyhhKSpiKTt9ZnVuY3Rpb24gcShhLGRhLHosZHope3ZhciB2PVtzKGEseikscyhhK2RhLHopLHMoYStkYSx6K2R6KSxzKGEseitkeildO2MuYmVnaW5QYXRoKCk7Yy5tb3ZlVG8odlswXS54LHZbMF0ueSk7Zm9yKGkgaW4gdiljLmxpbmVUbyh2W2ldLngsdltpXS55KTtjLmZpbGwoKTt9dmFyIFo9LTAuMjA7dmFyIHQ9MDtmdW5jdGlvbiBkKCl7dCs9MS8zMC4wO2MuZmlsbFN0eWxlPSIjMDAwIjtjLmZpbGxSZWN0KDAsMCx3LGgpO2MuZmlsbFN0eWxlPSIjZjAwIjt2YXIgbj0zMDt2YXIgYT0wO3ZhciBkYT0yKk1hdGguUEkvbjt2YXIgZHo9MC4yNTtmb3IodmFyIHo9Wis4O3o+Wjt6LT1keil7Zm9yKHZhciBpPTA7aTxuO2krKyl7Zm9nPTEvKGZtKCh6KzAuNyktMywxKSk7aWYoejw9Mil7Zm9nPWZtKDAsei8yKnovMik7fXZhciBrPSgyMDUqKGZvZypNYXRoLmFicyhmcyhpL24qMiozLjE0K3QpKSkpPj4wO2sqPSgwLjU1KzAuNDUqZmMoKGkvbiswLjI1KSpNYXRoLlBJKjUpKTtrPWs+PjA7Yy5maWxsU3R5bGU9InJnYigiK2srIiwiK2srIiwiK2srIikiO3EoYSxkYSx6LGR6KTtpZihpJTM9PTApe2MuZmlsbFN0eWxlPSIjMDAwIjtxKGEsZGEvMTAseixkeik7fWErPWRhO319Wi09MC4wNTtpZihaPD1keilaKz1kejt9
Original source not submitted