1 files changed, 178 insertions, 0 deletions
diff --git a/polvoc.pd b/polvoc.pd
new file mode 100644
index 0000000..02ea2e1
--- /dev/null
+++ b/polvoc.pd
@@ -0,0 +1,178 @@
+#N canvas 0 37 876 567 10;
+#N canvas 217 33 719 609 fft-analysis 0;
+#X obj 213 68 *~;
+#X obj 261 23 inlet~;
+#X obj 213 91 rfft~;
+#X obj 46 403 *~;
+#X obj 76 66 *~;
+#X obj 113 1 inlet~;
+#X obj 61 34 tabreceive~ hanning;
+#X obj 78 91 rfft~;
+#X obj 77 541 outlet~;
+#X obj 81 170 rec2pol~;
+#X obj 128 127 *~;
+#X obj 88 127 *~;
+#X obj 248 118 *~;
+#X obj 213 118 *~;
+#X obj 97 379 rifft~;
+#X obj 170 333 pol2rec~;
+#X obj 159 222 *~;
+#X obj 191 160 rec2pol~;
+#X obj 221 259 *~ 0.02;
+#X obj 221 286 *~ 1.4;
+#X obj 502 311 block~ 1024 4;
+#X obj 141 474 *~ 0.05;
+#X text 251 439 noisegate arguments: threshold \, fadein time \, fadeout time;
+#X obj 112 441 noisegate~ 80 100 200;
+#X obj 302 74 sig~ 0.0097;
+#X obj 130 88 sig~ 0.001;
+#X connect 0 0 2 0;
+#X connect 1 0 0 1;
+#X connect 2 0 13 0;
+#X connect 2 1 12 0;
+#X connect 3 0 23 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 1;
+#X connect 6 0 4 0;
+#X connect 6 0 0 0;
+#X connect 6 0 3 0;
+#X connect 7 0 11 0;
+#X connect 7 1 10 0;
+#X connect 9 0 15 0;
+#X connect 9 1 16 0;
+#X connect 10 0 9 1;
+#X connect 11 0 9 0;
+#X connect 12 0 17 1;
+#X connect 13 0 17 0;
+#X connect 14 0 3 1;
+#X connect 15 0 14 0;
+#X connect 15 1 14 1;
+#X connect 16 0 19 0;
+#X connect 17 1 16 1;
+#X connect 17 1 18 0;
+#X connect 18 0 19 0;
+#X connect 19 0 15 1;
+#X connect 23 0 8 0;
+#X connect 23 0 21 0;
+#X connect 24 0 12 1;
+#X connect 24 0 13 1;
+#X connect 25 0 11 1;
+#X connect 25 0 10 1;
+#X restore 326 407 pd fft-analysis;
+#X obj 326 431 *~;
+#X obj 474 448 line~;
+#X floatatom 680 49 0 0 0;
+#N canvas 194 37 397 591 output 0;
+#X obj 62 191 t b;
+#X obj 62 144 f;
+#X obj 62 96 inlet;
+#X text 67 76 mute;
+#X obj 62 215 f;
+#X msg 127 230 0;
+#X msg 62 120 bang;
+#X obj 62 167 moses 1;
+#X obj 127 207 t b f;
+#X obj 91 417 outlet;
+#X msg 91 393 set \$1;
+#X obj 175 154 moses 1;
+#X obj 212 419 dbtorms;
+#X obj 212 443 pack 0 100;
+#X obj 175 130 r master-lvl;
+#X obj 91 360 r master-lvl;
+#X obj 78 269 s master-lvl;
+#X obj 212 467 s master-amp;
+#X connect 0 0 4 0;
+#X connect 1 0 7 0;
+#X connect 2 0 6 0;
+#X connect 4 0 16 0;
+#X connect 5 0 16 0;
+#X connect 6 0 1 0;
+#X connect 7 0 0 0;
+#X connect 7 1 8 0;
+#X connect 8 0 5 0;
+#X connect 10 0 9 0;
+#X connect 11 1 4 1;
+#X connect 12 0 13 0;
+#X connect 13 0 17 0;
+#X connect 14 0 1 1;
+#X connect 14 0 11 0;
+#X connect 15 0 10 0;
+#X connect 15 0 12 0;
+#X restore 680 26 pd output;
+#X msg 680 2 mute;
+#X text 717 43 MASTER;
+#X text 717 57 LEVEL;
+#X obj 680 74 s master-lvl;
+#X obj 472 421 r master-amp;
+#N canvas 275 71 767 761 hanning-window 0;
+#X obj 92 206 phasor~;
+#X obj 92 234 cos~;
+#X obj 23 328 tabwrite~ hanning;
+#X obj 30 252 -~;
+#X obj 30 218 sig~ 1;
+#X msg 37 180 0;
+#X text 141 13 CALCULATE HANNING;
+#X text 141 27 WINDOW TABLE;
+#X graph graph1 0 -1 1024 1 275 581 675 281;
+#X array hanning 1024 float;
+#X pop;
+#X msg 275 547 \; hanning resize 1024;
+#X obj 93 131 / 1024;
+#X obj 93 171 sig~;
+#X text 175 148 sample rate / window size;
+#X msg 23 144 bang;
+#X obj 66 269 sig~ 0.5;
+#X obj 49 300 *~;
+#X obj 67 96 samplerate~;
+#X obj 25 23 r window-size;
+#X obj 25 53 t b f;
+#X connect 0 0 1 0;
+#X connect 1 0 3 1;
+#X connect 3 0 15 0;
+#X connect 4 0 3 0;
+#X connect 5 0 0 1;
+#X connect 10 0 11 0;
+#X connect 11 0 0 0;
+#X connect 13 0 2 0;
+#X connect 13 0 5 0;
+#X connect 14 0 15 1;
+#X connect 15 0 2 0;
+#X connect 16 0 10 0;
+#X connect 17 0 18 0;
+#X connect 18 0 16 0;
+#X connect 18 0 13 0;
+#X connect 18 1 10 1;
+#X restore 675 143 pd hanning-window;
+#X msg 393 66 \; window-size 1024 \; pd dsp 1;
+#X text 434 370 filter;
+#X text 436 385 input;
+#X obj 326 254 phasor~ 220;
+#X floatatom 358 151 4 0 0;
+#X obj 341 185 mtof;
+#X obj 351 293 noise~;
+#X obj 351 317 *~ 0.12;
+#X obj 201 247 adc~;
+#X obj 393 12 loadbang;
+#X msg 295 80 36;
+#X text 13 81 Example using rec2pol & pol2rec;
+#X text 84 245 talk into this:;
+#X text 401 150 adjust pitch;
+#X text 654 419 IM 2001;
+#X obj 322 468 dac~;
+#X connect 0 0 1 0;
+#X connect 1 0 26 0;
+#X connect 1 0 26 1;
+#X connect 2 0 1 1;
+#X connect 3 0 8 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 9 0 2 0;
+#X connect 14 0 0 0;
+#X connect 15 0 16 0;
+#X connect 16 0 14 0;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 19 0 0 1;
+#X connect 20 0 11 0;
+#X connect 20 0 21 0;
+#X connect 21 0 15 0;