uniform float time;
uniform float seed;
uniform vec2 resolution;
uniform vec2 cursor;
uniform vec2 scroll;
uniform float transition;
#define TRUCHET_SCALE 5.
#define TRUCHET_TIME_SCALE 0.
vec3 hash(vec3 p){
p=vec3(dot(p,vec3(127.1,311.7,74.7)),
dot(p,vec3(269.5,183.3,246.1)),
dot(p,vec3(113.5,271.9,124.6)));
return-1.+2.*fract(sin(p)*43758.5453123);
}
float noise(in vec3 p){
vec3 i=floor(p);
vec3 f=fract(p);
vec3 u=f*f*(3.-2.*f);
return mix(mix(mix(dot(hash(i+vec3(0.,0.,0.)),f-vec3(0.,0.,0.)),
dot(hash(i+vec3(1.,0.,0.)),f-vec3(1.,0.,0.)),u.x),
mix(dot(hash(i+vec3(0.,1.,0.)),f-vec3(0.,1.,0.)),
dot(hash(i+vec3(1.,1.,0.)),f-vec3(1.,1.,0.)),u.x),u.y),
mix(mix(dot(hash(i+vec3(0.,0.,1.)),f-vec3(0.,0.,1.)),
dot(hash(i+vec3(1.,0.,1.)),f-vec3(1.,0.,1.)),u.x),
mix(dot(hash(i+vec3(0.,1.,1.)),f-vec3(0.,1.,1.)),
dot(hash(i+vec3(1.,1.,1.)),f-vec3(1.,1.,1.)),u.x),u.y),u.z);
}
vec2 H(vec2 p){
vec2 f=fract(p);p-=f;
float v=fract((p.x+p.y)/3.);
return v<.6?v<.3?p:++p:p+step(f.yx,f);
}
void truchet(inout vec4 col,inout vec2 uv,in float rnd){
vec2 h;
float Z=TRUCHET_SCALE/resolution.x;
vec2 p=uv;
p=(p-.5)*Z;
h=H(p+vec2(.58,.15)*p.y);
p-=h-vec2(.5,.13)*h.y;
float s=sign(cos(1e5*cos(h.x+rnd+sin(time*TRUCHET_TIME_SCALE)+h.y)));
float l=min(
min(
length(p-s*vec2(-1,0)),
length(p-s*vec2(.5,.87))
),
length(p-s*vec2(.5,-.87))
);
float bd=1.-abs(l-.5)*2.;
float rp=pow(noise(vec3(uv/resolution.x*3.,time*.5+rnd))+.2,2.)*6.+.5;
col=mix(col,vec4(.9,.4,.2,1.),smoothstep(.1+rp,.3+rp,bd)*.2);
col=mix(col,vec4(.8,.5,.2,1.),smoothstep(.2+rp,.4+rp,bd)*.2);
col=mix(col,vec4(.7,.6,.3,1.),smoothstep(.3+rp,.5+rp,bd)*.2);
col=mix(col,vec4(.7,.6,.3,1.),smoothstep(.4+rp,.6+rp,bd)*.2);
col=mix(col,vec4(.7,.7,.4,1.),smoothstep(.5+rp,.7+rp,bd)*.2);
}
void main(){
vec2 aspect=vec2(1.,resolution.y/resolution.x);
vec2 uv=gl_FragCoord.xy;
uv.x+=noise(vec3(uv,time))*100.;
vec4 bgCol=vec4(vec3((noise(vec3(uv*.003,time*.53+324.2424))+.5)*.3,(noise(vec3(uv*.003,time*.53+324.2424))+.5)*.14,.0)*.3,1.);
vec4 col=bgCol;
truchet(col,uv,325.1414);
gl_FragColor=col;
}
