void main(){vec3 c,p,K=vec3(3,1,0);for(float a,g,t,i,h,d,w,k=.15;i<1e2;i++,d=max(max(-d,d-3.),0.)k,a=h<.001?0.:1.,w=1.-g,w=1.-exp(a==0.?-h3e2:-d2.5),g+=wa,c+=wad8.+(d==0.?K*.01ha:K.zzz),a=clamp(p.y+2.,0.,1.),c.r+=aa.2w,t+=min(h.2,k*=1.015),p=normalize(vec3((P+P-R)/R.y,-1))t,p.xz=mat2(cos(sin(T*.2)+K.zxyz11.)),p.z-=T.5)for(h=(d=p.y)+.5,a=.01;a<1.;a+=a)p.xz*=mat2(.8,.6,-.6,.8),d+=abs(dot(sin(p*.3/a+T*.3),p/p))a,h+=abs(dot(sin(p.xz.6/a),K.yy))a;O=vec4(tanh(c.5),1);}

#demo