float i,e,R,s;vec3 q,p,d=vec3((FC.xy-.5*r)/r.y*2.5,1.);for(q.z--;i++<99.;i>56.){o.rgb+=hsv(.57,-e,e/.7e1);p=q+=d*max(e,.01)*R*.2;p=vec3(log2(R=length(p))-t*1.5,e=-p.z/R-1.3+R,atan(p.x,p.y)-t*.25)-.5;for(s=2.;s<8e2;s+=s)e+=abs(dot(sin(p.zyy*s),cos(p*s+R)))/s*.9;}