#define M texture(b,vec2(.5,i)/r.y)
float i,N=77.;vec2 q=M.xy,p=(FC.xy-.5*r)/r.y,n=(m-.5)*r/r.y;if(FC.x==.5){i=FC.y .1*m.y;o=M;o.xy =exp(-9.*length(n-o.xy))*(n-o.xy);for(i=0.; i<N;o-=4e-3*normalize(M-o));}for(; i<N;q=M.xy)o.rgb =hsv(.6,M.z,3e-4/(dot(p-q,p-M.xy)));
#つぶやきGLSL