A concise Stereogram Generator based on user input. If you don't know how to see the hidden 3D picture in Stereograms please follow this link: http://en.wikipedia.org/wiki/Autostereogram
s=640,t=480,u=Math,v=[[0,0,0],[255,0,0],[255,255,255]],q=document,k='center',x=q.createElement('input');c.width=s;c.height=t;b.style.textAlign=x.style.textAlign=k;var k,l,w=function(b){a.fillStyle='#000';a.fillRect(0,0,s,t);a.fillStyle='#333';a.font='bold 228px Arial';a.textAlign=k;a.fillText(b,s/2,300);c=a.getImageData(0,0,s,t),d=c.data.length,e=[];for(l=0;l<d;l++){e[l]=255}f=[],g=[];for(l=0;l<t;l++){for(k=0;k<s;k++){f[k]=g[k]=k}for(k=0;k<s;k++){h=972-c.data[(k+l*s)*4]*2,i=u.floor(203*h/(h+1134)),j=u.round(k-i/2),m=j+i;if(j>=0&&m<s){n=1;if(f[m]!=m){if(f[m]<j){g[f[m]]=f[m];f[m]=m}else n=0}if(g[j]!=j){if(g[j]>m){f[g[j]]=g[j];g[j]=j}else n=0}if(n){f[m]=j;g[j]=m}}}for(k=0;k<s;k++){o=(k+l*s)*4,p=(f[k]+l*s)*4,q=v[u.floor(u.random()*3)],r=f[k]==k;e[o]=r?q[0]:e[p];e[o+1]=r?q[1]:e[p+1];e[o+2]=r?q[2]:e[p+2]}}for(l=0;l<d;l++){c.data[l]=e[l]}a.putImageData(c,0,0)};b.appendChild(q.createElement('br'));x.onkeydown=function(e){e.keyCode==13?w(this.value):0};b.appendChild(x);w(x.value='JS1k')
cz02NDAsdD00ODAsdT1NYXRoLHY9W1swLDAsMF0sWzI1NSwwLDBdLFsyNTUsMjU1LDI1NV1dLHE9ZG9jdW1lbnQsaz0nY2VudGVyJyx4PXEuY3JlYXRlRWxlbWVudCgnaW5wdXQnKTtjLndpZHRoPXM7Yy5oZWlnaHQ9dDtiLnN0eWxlLnRleHRBbGlnbj14LnN0eWxlLnRleHRBbGlnbj1rO3ZhciBrLGwsdz1mdW5jdGlvbihiKXthLmZpbGxTdHlsZT0nIzAwMCc7YS5maWxsUmVjdCgwLDAscyx0KTthLmZpbGxTdHlsZT0nIzMzMyc7YS5mb250PSdib2xkIDIyOHB4IEFyaWFsJzthLnRleHRBbGlnbj1rO2EuZmlsbFRleHQoYixzLzIsMzAwKTtjPWEuZ2V0SW1hZ2VEYXRhKDAsMCxzLHQpLGQ9Yy5kYXRhLmxlbmd0aCxlPVtdO2ZvcihsPTA7bDxkO2wrKyl7ZVtsXT0yNTV9Zj1bXSxnPVtdO2ZvcihsPTA7bDx0O2wrKyl7Zm9yKGs9MDtrPHM7aysrKXtmW2tdPWdba109a31mb3Ioaz0wO2s8cztrKyspe2g9OTcyLWMuZGF0YVsoaytsKnMpKjRdKjIsaT11LmZsb29yKDIwMypoLyhoKzExMzQpKSxqPXUucm91bmQoay1pLzIpLG09aitpO2lmKGo+PTAmJm08cyl7bj0xO2lmKGZbbV0hPW0pe2lmKGZbbV08ail7Z1tmW21dXT1mW21dO2ZbbV09bX1lbHNlIG49MH1pZihnW2pdIT1qKXtpZihnW2pdPm0pe2ZbZ1tqXV09Z1tqXTtnW2pdPWp9ZWxzZSBuPTB9aWYobil7ZlttXT1qO2dbal09bX19fWZvcihrPTA7azxzO2srKyl7bz0oaytsKnMpKjQscD0oZltrXStsKnMpKjQscT12W3UuZmxvb3IodS5yYW5kb20oKSozKV0scj1mW2tdPT1rO2Vbb109cj9xWzBdOmVbcF07ZVtvKzFdPXI/cVsxXTplW3ArMV07ZVtvKzJdPXI/cVsyXTplW3ArMl19fWZvcihsPTA7bDxkO2wrKyl7Yy5kYXRhW2xdPWVbbF19YS5wdXRJbWFnZURhdGEoYywwLDApfTtiLmFwcGVuZENoaWxkKHEuY3JlYXRlRWxlbWVudCgnYnInKSk7eC5vbmtleWRvd249ZnVuY3Rpb24oZSl7ZS5rZXlDb2RlPT0xMz93KHRoaXMudmFsdWUpOjB9O2IuYXBwZW5kQ2hpbGQoeCk7dyh4LnZhbHVlPSdKUzFrJyk=
Original source not submitted