// Any three (non colinear) points define a circle... // { .xy=center, .z=radius } vec3 getCircle( vec2 a, vec2 b, vec2 c ) { vec2 ba = b-a, cb = c-b, ac = a-c; float de = ba.x*cb.y-ba.y*cb.x; // zero if colinear vec2 ce = 0.5*(a+b+vec2(ba.y,-ba.x)*dot(ac,cb)/de); return vec3( ce, length(a-ce) ); }show more

"Jupiter" vec2 p=(FC.rg*2.-r)/r.y,c,s;vec3 z=vec3(p,sqrt(1.-dot(p,p)));c=vec2(atan(z.x,z.z),z.y/=-.6),s=vec2(.2/dot(z-.6,z-.5)+sin(c.y*7.),.5*t);for(float f=8.;f<1e2;f/=.7)c+=sin(c.yx*f+s)/f;o+=z.z*.5*(cos(.3*s.x+vec4(.4,.6,.7,0)-sin(c.y/vec4(.34,.32,.3,1)))+1.);

void mainImage(out vec4 o, vec2 f){float c=cos(iTime),s=sin(iTime),a=iResolution.y,z=-a,i,d;f=2.*f/a-1.;vec3 p;for(o*=i;i++<1e2;o+=(sin(p.x/.2+z/.1+vec4(0,1,2,3))+1.)/d)p=vec3(f.x*c-z*s,f.y,z*c+f*s),a=length(p.xy)-.6,z+=d=.01+.3*abs(sqrt(a*a+p*p).z-.3);o=tanh(o*o/7e6);}

"Painted" vec2 p=(2.*FC.xy-r)/r.y;p=p/.1/(3.-p.y)+t;o+=sin(sin(dot(ceil(p+sin(p*3.).yx),vec2(17,79)))*7e3+vec4(0,1,2,0))+.5;

order / chaos / order #つぶやきGLSL vec2 u=(FC.xy-.5*r)/r.x;for(int i=0;++i<17;)u=vec2(u.x,-u.y)/dot(u,u)+.4*u*rotate2D(t*.5);o+=(u.x+u.y)*9.;

"Split" vec2 p=(2.*FC.xy-r)/r.y,c=4.*p/(3.-p.y)+t;p=5.*p/(2.+fract(dot(cos(round(c)+r),sin(ceil(c+cos(c/.1)))))-p.y)+t;o=tanh(.2/abs(sin(p.x+p.y+vec4(1,.7,.6,0)*sin(p.y))));o*=o;

#つぶやきGLSL for(float i,g,e,s;++i<79.;){vec3 p=vec3((FC.xy-.5*r)/r.y*2.+vec2(0,1),g-.5);p.zx*=rotate2D(t*.5);s=1.;for(int i;i++<16;p=vec3(2,5,3)-abs(abs(p)*e-vec3(3,1.4,4.5)))s*=e=max(1.005,8./dot(p,p));g+=mod(length(p.xz),p.y)/s;s=log(s)/g;o.rgb+=hsv(.4*p.y,1.-p.y,s/2e4);}

#つぶやきGLSL #7k for(float i,g,e,s;++i<99.;){vec3 p=vec3((FC.xy*2.-r)/r.x+vec2(0,.9),g-.5);p.xz*=rotate2D(t*.5);s=1.;for(int i;i++<16;p=vec3(3,9,2.5)-abs(abs(p)*e-vec3(5,2,3)/e))s*=e=max(1.005,10./dot(p*.8,p));g+=mod(length(p.zx),p.y)/s;s=log(s)/g;o.rgb+=hsv(-g,-p.y*.2,s/5e3);}

Cycles, 285 chars #つぶやきGLSL for (s *= c; c++... < 200.; s += .003/abs(abs(length(y + 1.5* sin(c*.014+e) * vec2(cos(c*.4+e), sin(c*.4+e))) - l * (sin(c*.04+e) * .5+.5)*.2) + sin(c*.014+e) * .02) * (1.+cos(c*.03-e*4.+l*3.+vec4(0,1,2,0))));show more

float i,e,R,s;vec3 q,p,d=vec3(FC.yx/r.x+vec2(.7),.8);for(q.yz--;i++<99.;){o+=.023-exp(-e*3e3)*.045*vec4(1,vec3(.7,.6,0));s=1.;p=q+=d*e*R*.15;p=vec3(log2(R=length(p)),exp(-p.z/R+.5),p.y-t*.5);for(e=--p.y;s<1.2e3;s+=s)e-=.055-abs(dot(cos(p. xxx*s),-cos(t-p*s)))/s*.15;}#つぶやきGLSL

"Caustics" in 146 chars of #GLSL vec2 p=FC.xy/r.y*2e1+t;for(float i;i++<8.;)p+=sin(p+t/.2+i)*.4,p*=mat2(6,-8,8,6)/9.;o=vec4(tanh(length(fwidth(sin(p*.3)/.1))),texture(b,FC.xy/r));

"Halo" vec2 p=(FC.xy*2.-r)/r.y/.6;float l=length(p)-1.,a=atan(p.y,p.x);o=tanh((cos(p.x+.5*t+vec4(1,2,3,3))+1.5)*max(.2/l,-.02-.02/l)/(2.+cos(a*8.+cos(a*5.+t))*sin(a*4.-t)));

for(float i,g,e,s;++i<99.;o.rgb+=.01-hsv(.1,g*.013,s/2e2)){vec3 p=vec3((FC.xy-.5*r)/r.y*7.+vec2(-2,8),g+4.)*rotate3D(sin(t*.5)*.005-1.8,vec3(0,9,-1));s=1.8;for(int i;i++<19;p=vec3(.05,4,-1)-abs(abs(p)*e-vec3(3.1,4,2.9)))s*=e=7.1/dot(p,p*.5);g+=p.y/s;s=log(s)/exp(e);}#つぶやきGLSL

float i,e,R,s;vec3 q,p,d=vec3(FC.xy/r*.4+vec2(-.2,.8),1);for(q.zy--;i++<80.;){o.rgb-=hsv(R,.5,exp(-e)*.01)-vec3(exp(-e*9.)*.04);s=7.,p=q+=d*e*R*.16;p=vec3(log2(R=length(p))-t*.5,exp(R-p.z/R*.1),atan(p.y,p.x));for(e=--p.y;s<1e3;s+=s)e+=dot(sin(p.xz*s),sin(p.xx*s))/s;}#つぶやきGLSL

for(float i,g,e,s;++i<99.;){vec3 p=vec3((FC.xy-.5*r)/r.y*4.+vec2(0,1),g-6.)*rotate3D(3.,vec3(0,9,-3));p.xz*=rotate2D(t*.3);s=6.;for(int i;i++<12;p=vec3(0,4.03,-1)-abs(abs(p)*e-vec3(3,4,3)))s*=e=7.5/dot(p,p*.47);g+=p.y*p.y/s*.3;s=log2(s)-g*.8;o.rgb+=hsv(.5,.1,s/7e2);}#つぶやきGLSL

for(float i,g,e,s;++i<99.;o+=s/8e2){vec3 p=vec3((FC.xy-.5*r)/r.y*1.3+vec2(2.8,-.4),g-6.)*rotate3D(sin(t*.5)*.1-3.,vec3(2,40,-7));s=3.;for(int i;i++<16;p=vec3(0,4,-1)-abs(abs(p)*e-vec3(3,4,3)))s*=e=7.5/abs(dot(p,p*(.55+cos(t)*.005)+.3));g+=p.y/s-.0015;s=log2(s)-g*.5;}#つぶやきGLSL

#つぶやきGLSL for(float i,g,e,s;++i<65.;){vec3 p=vec3((FC.xy-.5*r)/r.x*.5+vec2(0,1.3),g-1.);p.zx*=rotate2D(t*.5+1.);s=1.8;for(int i;i++<18;p=vec3(0,4,.7)-abs(abs(p)*e-vec3(2.3,3.98+e*.12,4)))s*=e=5.4/dot(p,p*.5);g+=p.y/s;s=log2(s)+g*g;o.rgb+=.016-hsv(.25/p.y,p.z*.1,s/1e3);}

#つぶやきGLSL float i,e,R,s;vec3 q,p,d=vec3(FC.xy/r-vec2(.5,-.6),.4);for(q.yz--;i++<119.;){o.rgb+=hsv(.6-e,.3,min(e*s,.4-e)/25.);s=2.;p=q+=d*e*R*.3;p=vec3(log(R=length(p))-t*.5,exp(-p.z/R+.5),atan(p.x,p.y));for(e=--p.y;s<2e3;s+=s)e+=-abs(dot(cos(p.zxy*s),.2-sin(p*s)))/s*.4;}