#define F fsnoise(I+=I)
vec3 R=normalize(vec3(FC.xy*2.-r,r.y));o.b=.5+R.y*.5;vec2 I=R.xy+t/r,v=vec2(F,F)*.1,q;for(float i,a,l;i<3.;i+=.1)I=q-q+i,I=ceil(q=v+(R.xy-v)/R.z*i+vec2(F,F-t))+i,a=F*.2,l=length(fract(q)-.5-sin(vec2(9,7)+(F+t)*PI2)*.1),o+=l<a?min(3.,l/sqrt(a*a-l*l))/5.:s;