Prompt:

for(float i,g,e,s;++i<99.;o.rgb+=hsv(s/15.,.2,s/9e2)){vec3 p=vec3((FC.xy-.5*r)/r.y+vec2(0,.5),g-.5);p.xz*=rotate2D(t*.3);s=2.;for(int i;i++<8;p=vec3(2,4,2)-abs(abs(p)*e-vec3(6,4,3)))s*=e=dot(1.05,7./dot(p,p));g+=2e-4+min(length(p),p.y)/s;s=log(s);}