float noise(vec3 p) {
float v,a;
for (a = .85; a > .15; a *=.75, p += p) {
v += a * abs(dot( sin( .3*iTime + .1*p.z + .1*p/a) , vec3(a*3.)) );
}
return v;
}
void mainImage(out vec4 o, vec2 u) {
float i,s;
o*=i;
vec3 p,r = iResolution;
u = ( u+u - r.xy ) / r.y;
for( ; i++ < 1e2; )
p += vec3(u * s, s),
s = .1 + .2* abs( 12.-abs(p.y) - noise(p) ),
o += 1./s;
o = tanh(vec4(5,2,1,0)*o /3e3/ length(u));
}
Gerard
kimu
T. J. Bombadil
