From 74ac3eb2a1604f6be5a52cf2f3a57b67941b1c3b Mon Sep 17 00:00:00 2001
From: polyfloyd <floyd@polyfloyd.net>
Date: Sat, 19 May 2018 15:01:26 +0200
Subject: [PATCH] Add electric.glsl

---
 electric.glsl | 71 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 electric.glsl

diff --git a/electric.glsl b/electric.glsl
new file mode 100644
index 0000000..c0d4790
--- /dev/null
+++ b/electric.glsl
@@ -0,0 +1,71 @@
+//Noise animation - Electric
+//by nimitz (stormoid.com) (twitter: @stormoid)
+
+//The domain is displaced by two fbm calls one for each axis.
+//Turbulent fbm (aka ridged) is used for better effect.
+
+#define time iTime*0.15
+#define tau 6.2831853
+
+mat2 makem2(in float theta){float c = cos(theta);float s = sin(theta);return mat2(c,-s,s,c);}
+
+//float noise( in vec2 x ){return texture(iChannel0, x*.01).x;}
+float noise(in vec2 x) {
+	return fract(sin(dot(x, vec2(12.9898,78.233))) * 43758.5453);
+}
+
+
+float fbm(in vec2 p)
+{
+	float z=2.;
+	float rz = 0.;
+	vec2 bp = p;
+	for (float i= 1.;i < 6.;i++)
+	{
+		rz+= abs((noise(p)-0.5)*2.)/z;
+		z = z*2.;
+		p = p*2.;
+	}
+	return rz;
+}
+
+float dualfbm(in vec2 p)
+{
+    //get two rotated fbm calls and displace the domain
+	vec2 p2 = p*.7;
+	vec2 basis = vec2(fbm(p2-time*1.6),fbm(p2+time*1.7));
+	basis = (basis-.5)*.2;
+	p += basis;
+
+	//coloring
+	return fbm(p*makem2(time*0.2));
+}
+
+float circ(vec2 p)
+{
+	float r = length(p);
+	r = log(sqrt(r));
+	return abs(mod(r*4.,tau)-3.14)*3.+.2;
+
+}
+
+void mainImage( out vec4 fragColor, in vec2 fragCoord )
+{
+	//setup system
+	vec2 p = fragCoord.xy / iResolution.xy-0.5;
+	p.x *= iResolution.x/iResolution.y;
+	p*=4.;
+
+    float rz = dualfbm(p);
+
+	//rings
+	p /= exp(mod(time*10.,3.14159));
+	rz *= pow(abs((0.1-circ(p))),.9);
+
+	//final color
+	vec3 col = vec3(.2,0.1,0.4)/rz;
+	col=pow(abs(col),vec3(.99));
+	fragColor = vec4(col,1.);
+}
+
+// https://www.shadertoy.com/view/ldlXRS