Deltographos::Blog

float i,j,d=.1,e; vec3 p;
for(i=0.;i++<64.&&d>1e-4;){
    p=vec3((FC.xy-.5*r)/r.y,e)*48.;
    p.z-=4.;
    for(j=0.;j++<8.;)
        p=abs(p/i-.5)*rotate3D(i/j,vec3(-4,8,6)),
        p.xy*=rotate2D(t*.5),
        d=max(sin(length(p.xy)),cos(length(p.yz)))/d,
        d-=dot(p,p)/d;
    e-=d;
}o+=vec4(sqrt(p),1)*3./i;