t/=y=48E3,t2=y*t,p=x=>2**(.76+x/12),x=T=>(255&-T/128)*(128&(a=t2*p([0,3,7,10][S=0|T/32768%4]),b=t2*p([0,2,7,10][S]),c=t2*p([0,3,10,8,0,3,8,7,0,3,7,5,0,3,7,12][0|T/32768%16]),[a,b,c][0|T/524288%3]+95*sin(t2/8E3)))/128,((t2*=1.175)?z=(z*32+x(t2-1)/8+(t>.35&&x(t2-(j=21751)))/12+(t>.7&&x(t2-2*j))/16+(t>1.05&&x(t2-3*j))/24)/33:z=0)*3
or
link