Ниже код, на случай если кто-то захочет запустить. Как вариант можете попробовать в среде Fiddle.
Выглядеть это будет примерно так, если прогнать через Claude. Подписал видео, на случай, если кто-то будет путать)
vec2 p=(FC.xy-r*.5)/r.y/.1,v;for(float i,l;i<50.;o+=(cos(sin(i)*vec4(1,2,3,0))+1.)/1e3*exp(3.*sin(i+i*(t+p.x/16.)*.1))*(1./(l=length(max(p,p*vec2((3.+snoise2D(v=p+vec2(5.*t+.1*t*i,i)))*.02,1))))+pow(1.+snoise2D(4.*v+l),-2.)/l/l/l/1e3+3./length(p)))p+=cos(++i*i+t/5e1+p.x*.02+i*vec2(11,9))*2.;o=tanh(o);