Untitled

float i,g=1.5,d=g,q;for(vec3 n,p;i++<3e2&&d>1e-3;g+=d=(length(p)-abs(snoise3D(nvec3(6,6,19)))q).01g)p=gvec3((FC.xy-.5r)/r.y,.5),p.xy+=t/PI,p=mod(p+.5+round(p.z),2.)-1.,p.xy*=rotate2D(sin(t+g*.4)),n=normalize(p),q=-n.z>.7?.2:.9,o.rgb=hsv(q*.4-.1*g,.7,1.-i/3e2);