for (O *= m; m < 130.; O+=.002/abs(length(r+sin(e+m*(.2+.035 *smoothstep(-1.,1.,sin(e*.5)))) *vec2(cos(m+e),sin(m+e)))-.005-a*.015) *(1.+cos(m++*.8+a*4.+e+vec4(0,1,2,0))) *smoothstep(-.5,.5,a));
for (O *= i, F += F - R.xy; i++ < 28.; p = t*normalize(vec3(F*r(t*.1), R.y)), p.zx*=r(T/4.), p.zy*=r(T/3.), p.x+=T, t += min(min(s( p = fract(p)-.5 ), s( vec3(-p.y, p.zx) )), s( -p.zxy )));
for (O*=i;i++<8.;O+=.004/abs(sin(length(u=fract((U-vec2(0,1))*r(-t*.05)*(1.5+i*.1))-.5)*exp(length(u)*1.5-l)*7.+sin(t)*.05)/8.-.3*s*.6+U.x+1.4+sin(U.y*13.+3.)*.1-2.*s+2.2)))*(1.+cos(i*.5+l*5.-t*4.+vec4(0,1,2,0))));
for (O *= t; O.a++ < 30.; O += (1. + cos(k+k+t+vec4(0,1,2,0))) / 2e2 / L ) p = R - vec3(F+F, R.y), p = t/L*p - 3./R, M(p.zx) M(p.yx) p.x -= 2., t -= L - .1;