Prompt:
for(float i,g,e,s;++i<99.;e<.001?o+=.4/i:o){vec3 p=vec3(g*(FC.xy-.5*r)/r.y+.4,g-1.);p.xz*=rotate2D(t*.3);s=3.;s*=e=3./min(dot(p,p),50.);p=abs(p)*e;for(int i;i++<5;)p=vec3(2,4,2)-abs(p-vec3(4,4,2)),s*=e=8./min(dot(p,p),9.),p=abs(p)*e;g+=e=min(length(p.xz)-.1,p.y)/s;}