Added Komplex Pack Sources

tools/packsrc/Speak/pack.json

@@ -0,0 +1,43 @@
+{
+    "author": "XorDev",
+    "name": "Speak [470]",
+    "version": "1.0.0",
+    "description": "A ladybug on a mushroom. It renders really slowly. Sorry for that, this is not meant to be rendered with raymarching really, but well, here we are. I'll get a pass later",
+    "license": "CC BY-NC-SA 3.0",
+    "engine": "shadertoys",
+    "id": "4tByz3",
+    "tags": [
+        "reactive",
+        "color",
+        "space",
+        "glow",
+        "golf"
+    ],
+
+    "source": "./shaders/Image.frag.qsb",
+    "speed": 1,
+
+    "channel0":
+    {
+        "type": 2,
+        "source": "./shaders/Buffer A.frag.qsb",
+
+        "channel0":
+        {
+            "type": 2,
+            "source": "./shaders/Buffer A.frag.qsb",
+
+            "channel1":
+            {
+                "type": 4,
+                "invert": true
+            }
+        },
+
+        "channel1":
+        {
+            "type": 4,
+            "invert": true
+        }
+    }
+}

tools/packsrc/Speak/shaders/Buffer A.frag

@@ -0,0 +1,6 @@
+void mainImage( out vec4 O, vec2 I )
+{
+    I/=iResolution.xy;
+    I.y-=.04;
+    O = I.y<0. ? texture(iChannel1, I) : texture(iChannel0, I);
+}

tools/packsrc/Speak/shaders/Image.frag

@@ -0,0 +1,46 @@
+/*
+    "Speak" by @XorDev
+
+    Playing with music reactive shaders
+    
+    <512 playlist:
+    https://www.shadertoy.com/playlist/N3SyzR
+*/
+
+void mainImage(out vec4 O, vec2 I)
+{
+    //Animation time
+    float t=iTime,
+    //Raymarch depth
+    z,
+    //Step distance
+    d,
+    //Signed distance
+    s,
+    //Raymarch iterator
+    i;
+    
+    //Clear fragColor and raymarch 60 steps
+    for(O*=i; i++<6e1;
+        //Coloring and brightness
+        O+=(cos(i*.1+t+vec4(6,1,2,0))+1.)/d)
+    {
+        //Sample point (from ray direction)
+        vec3 p = z*normalize(vec3(I+I,0)-iResolution.xyy),
+        //Rotation axis
+        a = normalize(cos(vec3(0,2,4)+t+.1*i));
+        //Move camera back 5 units
+        p.z+=9.,
+        //Rotated coordinates
+        a = a*dot(a,p)-cross(a,p);
+        
+        //Turbulence loop
+        for(d=.6;d<9.;d+=d)
+            a-=cos(a*d+t-.1*i).zxy/d;
+        
+        //Distance to hollow, distorted sphere
+        z+=d=.1*abs(s=length(a)-3.- sin(texture(iChannel0,vec2(1,s)*.1).r/.1));
+    }
+    //Tanh tonemap
+    O = tanh(O/1e3);
+}