float i,e,R,s;vec3 q,p,d=vec3((.5*r-FC.xy)/r.y,.5);for(q=--q*rotate3D(PI,hsv(t/16.,.4,1.));i <2e2;i>170.?e =.001,d-=d 1.:d){o =log(e*R 1.)/2e2;p=q =d*e*R*.4;p=vec3(log(R=length(p))-t/8.*PI,e=-p.z/R,atan(p.x,p.y));for(s=1.;s<6e2;s =s)e =exp(cos(PI*(dot(cos(p*s),p/p)))-1.5)/s;}