for(e*=n;n++<1e2;){vec3 q=o*rd;q.z+=p+p;q.xy*=r(p/8.);s=length(q=abs(mod(q+1.,2.)-1.));q=q*8.+p+p;s=abs(s-1.1+sin(p)*.1-sin(q.x)*cos(q.y)*sin(q.z)*.2)+.025;o+=s*.5;e+=.001*(1.+cos(o*.75+L-p+vec4(0,1,2,0)))/s*pow((sin(o*.75+L+p*6.)*.5+.5),3.);}
for(e*=n;n++<1e2;){vec3 q=o*rd;q.z+=p+p;q.xy*=r(p/8.);s=length(q=abs(mod(q+1.,2.)-1.));q=q*8.+p+p;s=abs(s-1.1+sin(p)*.1-sin(q.x)*cos(q.y)*sin(q.z)*.2)+.025;o+=s*.5;e+=.001*(1.+cos(o*.75+L-p+vec4(0,1,2,0)))/s*pow((sin(o*.75+L+p*6.)*.5+.5),3.);}
for(O*=i;++i<60.;)p=t*.5*rd,p.z-=3.,p.zx=mod(p.zx*r(T)+9.,18.)-9.,p.zx*=r(round(atan(p.z,p.x)*7.)/7.),R=abs(p),p.x-=pow(R.y*.5,2.5)+sin(p.y*4.+T*8.)*sin(T)*.4,p.y=mod(p.y+T,.2)-.1,t+=d=abs(length(p)-.1)+.01,O+=.02/++d*(1.+cos(R.y+4.+vec4(0,1,2,0))); #glsl
for(O*=i;++i<60.;)p=t*.5*rd,p.z-=3.,p.zx=mod(p.zx*r(T)+9.,18.)-9.,p.zx*=r(round(atan(p.z,p.x)*7.)/7.),R=abs(p),p.x-=pow(R.y*.5,2.5)+sin(p.y*4.+T*8.)*sin(T)*.4,p.y=mod(p.y+T,.2)-.1,t+=d=abs(length(p)-.1)+.01,O+=.02/++d*(1.+cos(R.y+4.+vec4(0,1,2,0))); #glsl