ThNdl
©2012 Andrew Baldwin
;b=vec4(pos.x*cos(o.x)-pos.y*sin(o.x),pos.x*sin(o.x)+pos.y*cos(o.x),0.,0.):float%20r,s,l,h,i,k,m,n;m=clamp(1.5-abs(b.y),0.2,1.5)+d.x*50.;i=step(-0.01,c.y);h=step(-0.01,b.y);k=step(-0.99,b.y)*(1.-h)*(1.-smoothstep(0.027*m-d.x*2.,0.03*m,abs(b.x)));l=length(c);r=1.0-smoothstep(1.-d.x*2.,1.,l);s=1.0-smoothstep(.5-d.x*2.,0.5,l);float%20t=atan(c.x/c.y);float%20u=(t+3.141*0.5)/3.141;vec4 ryg=vec4(0.69*clamp(mix(vec3(.0,2.,0.),vec3(2.,0.,0.),u),0.0,1.0),2.4-2.*l);vec4 tg=mix(vec4(ryg.rgb,0.),ryg,r);n=clamp(1.75*l-0.75,0.,1.);vec4 bg=mix(tg,vec4(0.,0.,0.,1.-n),i);float v=atan(c.x,c.y);n=.9+.1*sin((20.*l+v)*5.);vec4 w=vec4(n,n,n,1.);vec4 e=mix(bg,w*vec4(vec3(abs(mod(v+3.141*0.75,2.*3.141)/3.141-1.)),1.),s);f=mix(e,vec4(vec3(1.-(30.*abs((b.x/m+0.01)))),1.),k))