for(float i,g,e,R,s;i++<1e2;){vec3 p=vec3((FC.xy-.5*r)/r.y*g,g-exp(fract(-t/PI)*PI2));p.yz*=rotate2D(4.);p=vec3(log(R=length(p)),asin(p.z/R),atan(p.y,p.x)+t);e=p.y*2.+2.;for(s=1.;s<1e3;s=s*3.)e-=abs(dot(cos(p*s),p-p+1.))/s;g+=e*R*.1;o+=exp(-e*4e2+cos(p.y-vec4(7,8,3,0)))/2e2;}