added '-m' option, added radial module

shaders/radial.glsl

@@ -0,0 +1,21 @@
+
+/* center radius (pixels) */
+#define C_RADIUS 64
+/* center line thickness (pixels) */
+#define C_LINE 1.5
+/* outline color */
+#define OUTLINE vec4(0.20, 0.20, 0.20, 1)
+/* number of bars (use even values for best results) */
+#define NBARS 92
+/* width (in pixels) of each bar*/
+#define BAR_WIDTH 3.5
+/* outline color */
+#define BAR_OUTLINE OUTLINE
+/* outline width (in pixels, set to 0 to disable outline drawing) */
+#define BAR_OUTLINE_WIDTH 0
+/* Inverse horizontal scale, larger means less higher frequencies displayed */
+#define WSCALE 11
+/* Amplify magnitude of the results each bar displays */
+#define AMPLIFY 200
+/* Bar color */
+#define COLOR (vec4(0.8, 0.2, 0.2, 1) * ((d / 40) + 1))

shaders/radial/1.frag

@@ -0,0 +1,75 @@
+layout(pixel_center_integer) in vec4 gl_FragCoord;
+
+#request uniform "screen" screen
+uniform ivec2 screen;
+
+#request uniform "audio_sz" audio_sz
+uniform int audio_sz;
+
+#request setavgframes 6
+
+#request setavgwindow true
+
+#request setgravitystep 5.2
+
+#request uniform "audio_l" audio_l
+#request transform audio_l "window"
+#request transform audio_l "fft"
+#request transform audio_l "gravity"
+#request transform audio_l "avg"
+uniform sampler1D audio_l;
+
+#request uniform "audio_r" audio_r
+#request transform audio_r "window"
+#request transform audio_r "fft"
+#request transform audio_r "gravity"
+#request transform audio_r "avg"
+uniform sampler1D audio_r;
+
+out vec4 fragment;
+
+#include "../radial.glsl"
+
+#define TWOPI 6.28318530718
+#define PI 3.14159265359
+
+void main() {
+    float /* translate (x, y) to use (0, 0) as the center of the screen */
+        dx = gl_FragCoord.x - (screen.x / 2),
+        dy = (screen.y / 2) - gl_FragCoord.y;
+    float theta = atan(dy, dx); /* fragment angle with the center of the screen as the origin */
+    float d = sqrt((dx * dx) + (dy * dy)); /* distance */
+    if (d > C_RADIUS - (float(C_LINE) / 2F) && d < C_RADIUS + (float(C_LINE) / 2F)) {
+        fragment = OUTLINE;
+        return;
+    } else if (d > C_RADIUS) {
+        float section = (TWOPI / NBARS);       /* range (radians) for each bar */
+        float m = mod(theta, section);         /* position in section (radians) */
+        float center = ((TWOPI / NBARS) / 2F); /* center line angle */
+        float ym = d * sin(center - m);        /* distance from center line (cartesian coords) */
+        if (abs(ym) < BAR_WIDTH / 2) {         /* if within width, draw audio */
+            /* texture lookup */
+            float v = texture(theta > 0 ? audio_l : audio_r,
+                              log(int(abs(theta) / section) / float(NBARS / 2)) / WSCALE).r * AMPLIFY;
+            d -= C_RADIUS + (float(C_LINE) / 2F); /* offset to fragment distance from inner circle */
+            if (d <= v - BAR_OUTLINE_WIDTH) {
+                #if BAR_OUTLINE_WIDTH > 0
+                if (abs(ym) < (BAR_WIDTH / 2) - BAR_OUTLINE_WIDTH)
+                    fragment = COLOR;
+                else
+                    fragment = BAR_OUTLINE;
+                #else
+                fragment = COLOR;
+                #endif
+                return;
+            }
+            #if BAR_OUTLINE_WIDTH > 0
+            if (d <= v) {
+                fragment = BAR_OUTLINE;
+                return;
+            }
+            #endif
+        }
+    }
+    fragment = vec4(0, 0, 0, 0); /* default frag color */
+}