№12652
DOLL ADD CODE TAGS
>//uniform vec3 t;
>//vec2 R=vec2(t.y,t.z);
>float f(vec3 i,vec3 y){vec3 v=abs(i)-y;
> return max(max(v.x,v.y),v.z);
>}
>float v=1.856,i,m,z,x,y,w,e=1.,c,s,r=0.,A=38.;
>vec3 l=vec3(2.26,18.56,-4.46),n=vec3(-1.67,25,3),o=vec3(8,2,3),u=vec3(4.26,17,5),d;
>int a;
>const vec2 p[]=vec2[10](vec2(0,0),vec2(13,25),vec2(-.8,-6.25),vec2(2,16),vec2(46,30),vec2(33,14),vec2(13,10),vec2(0,10),vec2(-20,15),vec2(-32,13));
>
>float b(float i){
> return clamp(i,0.,1.);
>}
>
>mat2 f(float i){
> return mat2(cos(i),sin(i),-sin(i),cos(i));
>}
>
>vec2 h(vec2 v,vec2 y){
> return v.x<y.x?v:y;
>}
>
>vec2 f(vec3 i,vec3 m,vec4 c,int y){
> vec4 z=vec4(i,1);
> for(int x=0;x<y;x++){
> if(c.w<1.){
> z.xyz=abs(z.xyz)-u,z=z/max(cos(min(z.y*.4,6.))*.63+sin(z.x/5.)/5.,.5),z.xyz-=n*vec3(m.z,1,1);
> }else {
> z.xyz=abs(z.xyz/2.)-o-sin(z.x/5.+v*5.),z=z*1.2/max(cos(z.y*.15)*.4+abs(sin(z.z/5.+v*5.))/5.,.45);
> }
> }
> vec2 x=vec2(c.x*(length(max(z.xyz*c.w,0.))-m.x)/z.w,c.z),e=vec2(c.y*f(z.xyz*.35,vec3(m.y))/z.w,1);
> x=h(x,e);
> return x;
>}
>
>vec2 h(vec3 z){
> vec2 m=vec2(9),y;
> d=z*vec3(.5,.8,.8)+vec3(cos(z.z*.3)/2.,0,0);
> if(f(d.xyz,vec3(10,40,A))<0.)
> d.z=abs(mod(d.z+v*r,50.))-25.,m=f(d,vec3(.5,2,cos(z.z*.025-v*-.625)*2.),vec4(1,1.2,3,.5),5);
> if(a!=2){
> if(length(z+l)-2.<1.||a>2){
> d=(z.zyx+l.zyx)*vec3(60,60,60)+vec3(0,sin(z.z*4.+i*15.)*e*15.,0),d.zy*=f((sin(d.x*.1)-cos(v)*15.)*w),y=f(d,vec3(.025,1.5,0),vec4(.06,.1,2,1),3),m=h(m,y);
> }
> }
> if(a>1){
> m=h(m,vec2(.6*(length(z+cos(z.x*.4)*3.+vec3(.6,31.-c,-23+a))-2.+c*.2),2));
> }
> return m;
>}
>
>void mainImage( out vec4 fragColor, in vec2 fragCoord ){
> vec2 T=vec2(fragCoord.xy/iResolution.xy*-2.+1.)*vec2(1.69,-.9);
> vec2 g=vec2(2,.00003);
> i=iTime/5.;
> if(iTime<34.){
> a=1;
> } else if(iTime>127.){
> a=3;
> } else {
> a=abs(int(floor((iTime-34.)/16.))%2*-1+2);
> }
> vec3 k=vec3(-2.3,-17.5,1.93),Y=normalize(vec3(0,0,1)),X=vec3(0,0,1),W=vec3(1,.6,.1),V;
> if(a<2){
> r=20.;
> v=max(i-4.,0.)+.636;
> y=max(i-5.5,0.)*.4;
> if(y<=0.){
> m=clamp(i,0.,3.),x=max(m-2.,0.),e=b(i-3.),z=b(i-4.),g=mix(vec2(10,.0002),g,b(i-4.4)),X=vec3(.66,-.75,0)+vec3(.65,2.35,0)*m/3.-vec3(1.31,1.6,-1)*e,k=vec3(-4.2+1.4*m/2.,-20.31,3.14)+vec3(-.2,2.81,-1.21)*e,Y=normalize(vec3(1.-z,0,e)),l=vec3(1.2,20.26,-3.8+.65*x)+vec3(.61,-3.08,0)*e+vec3(.45,1.38,-1.3)*z,n=vec3(-1.9,17.43,3)+vec3(.3,7.57,0)*z,o=vec3(1,.5,.2)+vec3(2,.5,3)*x+vec3(5,1,0)*z;
> }
> if(y>0.){
> k.xyz-=vec3(-1,1.+sin(y),-2.5),V.z=log2(min(fract(y),.25)*4.+.01)*.1505+1.,s=mod(floor(y),4.),V.xy=mix(p[int(s)],p[int(mod(s+1.,4.))],V.z),k.xy+=V.xy,l.xy-=V.xy+sin(y)*vec2(.35,-1.1),Y=normalize(abs(l)*vec3(-5,-.2,2)),w=1.-V.z;
> if(y>7.75) A=8.;
> }
> }if(a==2){
> m=max(i*5.-34.,0.)/48.;
> e=clamp(m-1.33,0.,.33)*3.;
> z=m*6.;
> x=floor(mod(z,2.));
> y=b(m-.166);
> c=abs(x-1.);
> s=4.+mod(floor(z/2.+.5),6.);
> k.x=1.;
> k.yz=p[int(s)]+vec2(c,x)*fract(z)*-5.;
> if(z<8.){
> W-=vec3(0,.55,.1)*c,g=vec2(2.+8.*c*(.5+sin(i*15.)/2.),.0001);
> }
> n=vec3(-25.66,22.34,4.82);
> n.x+=22.17*y;
> u=vec3(9.28,24.16,8)+vec3(-10.2,-24.85,-7.03)*y+vec3(4.97,0,.88)*e;
> }
> if(a>2){
> e=max(i-26.,0.),m=max(iTime-127.,0.),x=ceil(sin(m*.45)),c=e*7.,u=vec3(4.5,-.7,1.85)+vec3(6,-2.6,0)*e,n=vec3(-3.5,22,4.8),k=vec3(-6.+12.*x,-38.+m*.2,min(m*2.,15.)),Y=vec3(1.-2.*x,.5,1),l=vec3(1,33,1.-m*(sin(b(m/5.))*10.)),o+=vec3(20,2,2)*(m-1.),w=sin(m*2.),X.yz+=e;
> }
> vec3 U=normalize(cross(Y,vec3(0,1,0))),S=normalize(cross(U,Y)),Q=mat3(U,S,Y)*normalize(vec3(T,1)),P=vec3(.5,.7,.6)-Q.y*vec3(.2,.5,.2);
> float O=b(dot(X,Q)),N=.1,M=-1.,L=0.,K=1.;
> vec3 J=g.x*W*pow(O,8.),I,H;
> I=H=P+J;
> for(int G=0;G<128;G++){
> float F=.0001*N;
> vec2 E=h(k+Q*N);
> if(E.x<F)break;
> N+=E.x;
> M=E.y;
> }
> if(M>0.){
> vec3 G=k+N*Q;
> vec2 E=.00028865*vec2(1,-1);
> vec3 F=normalize(E.xyy*h(G+E.xyy).x+E.yyx*h(G+E.yyx).x+E.yxy*h(G+E.yxy).x+E.xxx*h(G+E.xxx).x);
> I=vec3(.8);
> if(M==2.)I=vec3(.58,.14,.16);
> if(M>2.)I=vec3(.2);
> for(int D=0;D<5;D++){
> float C=.01+.12*float(D)/4.;
> L+=-(h(F*C+G).x-C)*K;
> K*=.95;
> }
> L=b(1.-3.*L);
> float C=b(.5+.5*F.y),D=b(dot(F,X)),B=pow(b(1.+dot(F,Q)),2.);
> I*=1.3*D*vec3(1,.8,.55)+.4*C*vec3(.4,.6,1)*L+.25*B*L;
> I+=.2*vec3(1,.4,.2)*pow(O,3.);
> I=mix(clamp(I,0.,1.),H,1.-exp(-g.y*N*N*N));
> }
> fragColor=vec4(pow(I,vec3(.45)),min(N-.5,1.));
>}
/DOLL ADD CODE TAGS