// This shader generates a dynamic rock strata visual effect. It uses fractal noise to create layers and bands of colors, // mimicking geological strata with a pulsating and shifting pattern over time. Various color gradients and enhanced // details are employed to add depth and complexity. precision mediump float; varying vec2 uv; uniform float time, width, height; // Simple random function based on positional coordinates float rand(vec2 co) { return fract(sin(dot(co.xy,vec2(12.9898,78.233))) * 43758.5453); } // 2D noise function based on positional coordinates float noise(vec2 pos) { vec2 i = floor(pos); vec2 f = fract(pos); f = f*f*(3.0-2.0*f); float a = rand(i); float b = rand(i + vec2(1.0, 0.0)); float c = rand(i + vec2(0.0, 1.0)); float d = rand(i + vec2(1.0, 1.0)); return mix(a, b, f.x) + (c - a) * f.y * (1.0 - f.x) + (d - b) * f.x * f.y; } // Fractal Brownian Motion (fbm) for layered noise float fbm(vec2 pos) { float result = 0.0; float scale = 0.5; for (int i = 0; i < 5; i++) { result += noise(pos) * scale; pos *= 2.0; scale *= 0.5; } return result; } // Function to generate strata-like bands of colors vec3 strataColor(float value) { value = fract(value * 20.0); if (value < 0.1) return vec3(0.8, 0.5, 0.4); // Reddish brown else if (value < 0.2) return vec3(0.6, 0.4, 0.3); // Darker brown else if (value < 0.3) return vec3(0.4, 0.3, 0.2); // Dark brown else if (value < 0.4) return vec3(0.2, 0.2, 0.2); // Near black else if (value < 0.5) return vec3(0.7, 0.7, 0.6); // Light gray else if (value < 0.6) return vec3(0.5, 0.45, 0.4); // Medium brown else if (value < 0.7) return vec3(0.6, 0.55, 0.4); // Golden brown else if (value < 0.8) return vec3(0.3, 0.3, 0.25); // Slate else if (value < 0.9) return vec3(0.1, 0.1, 0.1); // Dark slate else return vec3(0.9, 0.9, 0.8); // Nearly white } void main() { // Normalize UV coordinates for a square aspect ratio vec2 fragCoord = vec2((uv.x - 0.5) * max(width / height, 1.0) + 0.5, (uv.y - 0.5) * max(height / width, 1.0) + 0.5); // Calculate distance and relative coordinates for texture offsets vec2 center = vec2(0.5, 0.5); float len = length(fragCoord - center); // Dynamic movement for the noise position vec2 noisePos = fragCoord * 8.0 + vec2(time * 0.1, time * 0.1); // Generate fractal noise and use it to create stratified color bands float noiseValue = fbm(noisePos + vec2(0.0, sin(time * 0.5) * 5.0)); vec3 color = strataColor(noiseValue + len * 0.2); // Simulate lighting and depth effects float depth = smoothstep(0.0, 1.0, len * 1.5); // Apply a vignette effect based on distance with time variation float vignette = 1.0 - smoothstep(0.1, 0.4, len + sin(time * 2.0) * 0.1); // Combine effects to create the final color output vec3 finalColor = mix(vec3(0.0), color, vignette * 2.0) * (1.0 - depth); // Output the final color to the fragment gl_FragColor = vec4(finalColor, 1.0); }

edit

edit

edit

Increase fractal depth

edit

edit

edit

edit

Rock strata

edit

Melancholic Hues

edit

click to explore, then edit