1 files changed, 109 insertions, 0 deletions
diff --git a/externals/gridflow/pd_examples/spectrogram.pd b/externals/gridflow/pd_examples/spectrogram.pd
new file mode 100644
index 00000000..ff9f55e7
--- /dev/null
+++ b/externals/gridflow/pd_examples/spectrogram.pd
@@ -0,0 +1,109 @@
+#N canvas 695 85 580 565 10;
+#X msg 143 149 reset;
+#X obj 27 -34 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
+;
+#X obj 316 -15 adc~;
+#X obj 28 110 tabread4 array1;
+#X obj 7 10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1
+;
+#X obj 351 -14 table array1 1024;
+#X obj 290 138 loadbang;
+#X obj 270 140 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 0 0 306 167 analysis 0;
+#X obj 24 -205 inlet~;
+#X obj 26 -135 tabsend~ array1;
+#X obj 24 -184 rfft~;
+#X obj 25 -157 expr~ sqrt($v1*$v1+$v2*$v2)/64;
+#X obj 148 -198 block~ 1024;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 3 1;
+#X connect 3 0 1 0;
+#X restore 317 8 pd analysis;
+#X obj 30 210 demux 2;
+#X obj 373 186 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1
+-1 1;
+#X obj 242 226 loadbang;
+#X obj 219 225 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 27 34 for 0 320 1;
+#X obj 29 129 * 2000;
+#X text 392 187 black stripes;
+#X text 391 200 graph;
+#X obj 28 77 / 2;
+#X text 77 129 <-- adding some extra gain;
+#X obj 88 88 exp;
+#X obj 28 55 demux 2;
+#X obj 173 46 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1
+-1 0;
+#X text 195 46 linear;
+#X text 193 60 logarithmic;
+#X obj 89 67 / 51;
+#X obj 31 331 #fade;
+#X obj 123 332 loadbang;
+#X msg 72 331 16 4 1;
+#X obj 27 -9 metro 23.22;
+#X text 115 26 = 1000*1024/44100;
+#X obj 29 149 #import ( 320 );
+#X obj 29 169 # *>>8;
+#X obj 30 190 #fade 2;
+#X obj 30 249 # inv+ 255;
+#X obj 105 222 #outer <;
+#X obj 105 241 # * 255;
+#X obj 105 261 #transpose;
+#X obj 30 287 #redim (120 320 1);
+#X obj 31 309 #greyscale_to_rgb;
+#X obj 31 353 #clip;
+#X obj 31 375 #scale_by 2;
+#X obj 31 404 #out window;
+#X obj -15 449 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577
+0;
+#X text -7 456 GridFlow 0.8.0;
+#X text -7 456 GridFlow 0.8.0;
+#X obj -15 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text -2 -72 Copyright 2002 Mathieu Bouchard;
+#X text -2 -85 spectrogram.pd;
+#X obj 219 245 #for 120 0 -1;
+#X obj 270 161 #for 0 320 1;
+#X obj 270 184 # + 10;
+#X connect 0 0 30 0;
+#X connect 1 0 28 0;
+#X connect 2 0 8 0;
+#X connect 2 1 8 0;
+#X connect 3 0 14 0;
+#X connect 4 0 13 0;
+#X connect 6 0 7 0;
+#X connect 7 0 49 0;
+#X connect 9 0 33 0;
+#X connect 9 1 34 0;
+#X connect 10 0 9 1;
+#X connect 11 0 12 0;
+#X connect 12 0 48 0;
+#X connect 13 0 20 0;
+#X connect 14 0 30 0;
+#X connect 17 0 3 0;
+#X connect 19 0 3 0;
+#X connect 20 0 17 0;
+#X connect 20 1 24 0;
+#X connect 21 0 20 1;
+#X connect 24 0 19 0;
+#X connect 25 0 39 0;
+#X connect 26 0 27 0;
+#X connect 27 0 25 1;
+#X connect 28 0 13 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 9 0;
+#X connect 33 0 37 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 38 0 25 0;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 48 0 34 1;
+#X connect 49 0 50 0;
+#X connect 50 0 31 1;