#define C(b,x)texture(b,fract((x+F)/r)) #define L(z)for(vec2 a=S;a.x>1.;z=sin(a--)) vec2 S=vec2(27,-28),F=FC.xy,d,v,q,p=q=d=S-S;L(p)L(q)v=C(b1,(p+q)*55.).xy,d-=dot(p,v)*q-dot(p,q)*v;o1.xy=C(b1,d).xy*.998+.01/F;v=fwidth(o1.xy)*40.;o0=C(b0,-1.+1.002*)*(.95-v.y)+v.y; 
