uniform float time;
uniform float seed;
uniform vec2 resolution;
uniform vec2 pointer;
#define PATTERN_TIME_SCALE.3
int octaves=12;
vec3 warPalette(float t){
vec3 a=vec3(.17,.08,.1);
vec3 b=vec3(.71,.88,.85);
vec3 c=vec3(.94,.42,.02);
vec3 d=vec3(.96,.17,.5);
return a+b*cos(6.28318*(c*t+d));
}
vec3 lovePalette(float t){
vec3 a=vec3(.35,.74,.44);
vec3 b=vec3(.4,1,1);
vec3 c=vec3(.61,.3,.48);
vec3 d=vec3(1,.24,.08);
return a+b*cos(6.28318*(c*t+d));
}
float paletteSize=16.;
float random(in vec2 st){
return fract(sin(dot(st.xy,vec2(12.9898,78.233)))*43758.5453123);
}
float perlin(in vec2 p){
vec2 ip=floor(p);
vec2 u=fract(p);
u=u*u*(3.-2.*u);
float res=mix(
mix(random(ip),random(ip+vec2(1.,0.)),u.x),
mix(random(ip+vec2(0.,1.)),random(ip+vec2(1.,1.)),u.x),u.y
);
return res*res;
}
float fbm(in vec2 st){
float value=0.;
float amp=.6;
float freq=0.;
for(int i=0;i<octaves;i++){
value+=amp*perlin(st);
st*=2.1;
amp*=.35;
}
return value;
}
vec3 rgbToHsl(vec3 c){
vec4 K=vec4(0.,-1./3.,2./3.,-1.);
vec4 p=mix(vec4(c.bg,K.wz),vec4(c.gb,K.xy),step(c.b,c.g));
vec4 q=mix(vec4(p.xyw,c.r),vec4(c.r,p.yzx),step(p.x,c.r));
float d=q.x-min(q.w,q.y);
float e=1.e-10;
return vec3(abs(q.z+(q.w-q.y)/(6.*d+e)),d/(q.x+e),q.x);
}
vec3 hslToRgb(vec3 c){
vec4 K=vec4(1.,2./3.,1./3.,3.);
vec3 p=abs(fract(c.xxx+K.xyz)*6.-K.www);
return c.z*mix(K.xxx,clamp(p-K.xxx,0.,1.),c.y);
}
float pattern(in vec2 p){
float f=0.;
vec2 q=vec2(
fbm(p+time*PATTERN_TIME_SCALE*.2+vec2(0.)),
fbm(p+time*PATTERN_TIME_SCALE*.3+vec2(2.4,4.8))
);
vec2 r=vec2(
fbm(q+time*PATTERN_TIME_SCALE*.3+4.*q+vec2(3.,9.)),
fbm(q+time*PATTERN_TIME_SCALE*.2+8.*q+vec2(2.4,8.4))
);
f=fbm(p+r*2.+time*.09);
return f;
}
float indexValue(vec2 p){
float x=mod(p.x,2.);
float y=mod(p.y,2.);
return step(1.,min(x,y));
}
vec4 dither(vec4 color,vec2 uv){
vec3 hsl=rgbToHsl(color.rgb);
float a=fract(floor(hsl.x*paletteSize)/paletteSize);
float b=fract(ceil(hsl.x*paletteSize)/paletteSize);
vec3 col=mix(
mix(
lovePalette(fract(a)),
lovePalette(fract(b)),
step(.5,indexValue(gl_FragCoord.xy))
),
mix(
warPalette(fract(a)),
warPalette(fract(b)),
step(.5,indexValue(gl_FragCoord.xy))
),
smoothstep(-100.,100.,uv.x)
);
return vec4(col*pow(length(col),.1),1.);
}
void show(inout vec4 col,inout vec2 uv){
float r=pattern(uv/94.+3825.235);
float g=pattern(uv/87.-23.253);
float b=pattern(uv/93.+2353.2);
col=vec4(vec3(r,g,b),1.);
}
void main(){
vec4 col=vec4(0.,0.,0.,1.);
vec2 uv=gl_FragCoord.xy;
uv-=.5*resolution;
uv*=.5;
show(col,uv);
col=dither(col,uv);
gl_FragColor=col;
}
