1 files changed, 211 insertions, 0 deletions
diff --git a/filterPeakSig~.pd b/filterPeakSig~.pd
new file mode 100644
index 0000000..387c9d6
--- /dev/null
+++ b/filterPeakSig~.pd
@@ -0,0 +1,211 @@
+#N canvas 814 361 667 473 10;
+#X text 14 413 Version: 2007-09-15;
+#X text 15 430 Author: Roman Haefeli;
+#X text 15 394 taken and modified from 3.audio.examples/H12.peaking.pd
+;
+#N canvas 212 395 643 406 filterl 0;
+#X obj 76 246 cpole~;
+#X obj 77 291 czero~;
+#X obj 343 185 *~ 0.01;
+#X obj 398 185 *~ 0.01;
+#X obj 361 146 cos~;
+#X obj 398 147 cos~;
+#X obj 398 125 -~ 0.25;
+#X obj 378 42 samplerate~;
+#X obj 362 64 /~;
+#X obj 378 19 loadbang;
+#X obj 76 15 inlet~;
+#X obj 77 319 outlet~;
+#X obj 147 212 *~;
+#X obj 175 213 *~;
+#N canvas 497 504 214 352 \$0-lookuptable 0;
+#X obj 52 125 *~ -0.1;
+#X obj 52 146 expr~ exp($v1);
+#X obj 52 167 *~ -1;
+#X obj 52 189 +~ 0.9999;
+#X obj 52 104 line~;
+#X msg 52 83 0.001 \, 100 1000;
+#X obj 8 49 t b b b;
+#X obj 30 226 tabwrite~ \$0-lookup1;
+#X obj 8 272 del 1000;
+#X obj 8 317 switch~;
+#X obj 8 292 0;
+#X obj 8 250 t b b;
+#X obj 38 294 1;
+#X obj 8 14 loadbang;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 0 0;
+#X connect 5 0 4 0;
+#X connect 6 0 11 0;
+#X connect 6 1 7 0;
+#X connect 6 2 5 0;
+#X connect 8 0 10 0;
+#X connect 10 0 9 0;
+#X connect 11 0 8 0;
+#X connect 11 1 12 0;
+#X connect 12 0 9 0;
+#X connect 13 0 6 0;
+#X restore 305 276 pd \$0-lookuptable;
+#X obj 305 298 table \$0-lookup1 44100;
+#X obj 191 115 tabread~ \$0-lookup1;
+#X obj 192 93 *~ 401;
+#X obj 132 -20 mtof~;
+#X obj 210 -29 sig~ 30;
+#X floatatom 210 -54 5 0 0 0 - - -;
+#X obj 134 -87 osc~ 2;
+#X obj 134 -64 +~ 4;
+#X obj 133 -42 *~ 24;
+#X text 209 -73 Q;
+#X text 133 -105 peakfreq;
+#X obj 180 -85 inlet;
+#X obj 223 -85 inlet;
+#X connect 0 0 1 0;
+#X connect 0 1 1 1;
+#X connect 1 0 11 0;
+#X connect 2 0 1 2;
+#X connect 3 0 1 3;
+#X connect 4 0 2 0;
+#X connect 4 0 12 0;
+#X connect 5 0 3 0;
+#X connect 5 0 13 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 1;
+#X connect 8 0 6 0;
+#X connect 8 0 4 0;
+#X connect 9 0 7 0;
+#X connect 10 0 0 0;
+#X connect 12 0 0 2;
+#X connect 13 0 0 3;
+#X connect 16 0 12 1;
+#X connect 16 0 13 1;
+#X connect 17 0 16 0;
+#X connect 18 0 8 0;
+#X connect 19 0 17 0;
+#X connect 20 0 19 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 18 0;
+#X connect 26 0 21 0;
+#X connect 27 0 19 0;
+#X restore 133 93 pd filterl;
+#X obj 88 129 tof/crossfade~ 2;
+#X obj 96 195 outlet~;
+#X obj 146 195 outlet~;
+#X obj 55 12 inlet~;
+#X obj 105 12 inlet~;
+#X obj 405 72 inlet params;
+#X obj 405 94 tof/paramRoute;
+#X obj 405 118 print PARAM_NOTFOUND;
+#X obj 207 128 tof/param /wet 0 /g slider 0 1;
+#X obj 207 171 line~;
+#X msg 207 150 \$1 5;
+#X obj 165 14 tof/param /frequency 2 /g slider 1 1000;
+#X obj 175 34 tof/param /q 0 /g slider 0 100;
+#N canvas 213 427 643 406 filterl 0;
+#X obj 76 246 cpole~;
+#X obj 77 291 czero~;
+#X obj 343 185 *~ 0.01;
+#X obj 398 185 *~ 0.01;
+#X obj 361 146 cos~;
+#X obj 398 147 cos~;
+#X obj 398 125 -~ 0.25;
+#X obj 378 42 samplerate~;
+#X obj 362 64 /~;
+#X obj 378 19 loadbang;
+#X obj 76 15 inlet~;
+#X obj 77 319 outlet~;
+#X obj 147 212 *~;
+#X obj 175 213 *~;
+#N canvas 808 267 214 352 \$0-lookuptable 0;
+#X obj 52 125 *~ -0.1;
+#X obj 52 146 expr~ exp($v1);
+#X obj 52 167 *~ -1;
+#X obj 52 189 +~ 0.9999;
+#X obj 52 104 line~;
+#X msg 52 83 0.001 \, 100 1000;
+#X obj 8 49 t b b b;
+#X obj 8 272 del 1000;
+#X obj 8 317 switch~;
+#X obj 8 292 0;
+#X obj 8 250 t b b;
+#X obj 38 294 1;
+#X obj 8 14 loadbang;
+#X obj 30 226 tabwrite~ \$0-lookup2;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 13 0;
+#X connect 4 0 0 0;
+#X connect 5 0 4 0;
+#X connect 6 0 10 0;
+#X connect 6 1 13 0;
+#X connect 6 2 5 0;
+#X connect 7 0 9 0;
+#X connect 9 0 8 0;
+#X connect 10 0 7 0;
+#X connect 10 1 11 0;
+#X connect 11 0 8 0;
+#X connect 12 0 6 0;
+#X restore 305 276 pd \$0-lookuptable;
+#X obj 192 93 *~ 401;
+#X obj 132 -20 mtof~;
+#X obj 210 -29 sig~ 30;
+#X floatatom 210 -54 5 0 0 0 - - -;
+#X obj 134 -87 osc~ 2;
+#X obj 134 -64 +~ 4;
+#X obj 133 -42 *~ 24;
+#X text 209 -73 Q;
+#X text 133 -105 peakfreq;
+#X obj 180 -85 inlet;
+#X obj 223 -85 inlet;
+#X obj 305 298 table \$0-lookup2 44100;
+#X obj 191 115 tabread~ \$0-lookup2;
+#X connect 0 0 1 0;
+#X connect 0 1 1 1;
+#X connect 1 0 11 0;
+#X connect 2 0 1 2;
+#X connect 3 0 1 3;
+#X connect 4 0 2 0;
+#X connect 4 0 12 0;
+#X connect 5 0 3 0;
+#X connect 5 0 13 0;
+#X connect 6 0 5 0;
+#X connect 7 0 8 1;
+#X connect 8 0 6 0;
+#X connect 8 0 4 0;
+#X connect 9 0 7 0;
+#X connect 10 0 0 0;
+#X connect 12 0 0 2;
+#X connect 13 0 0 3;
+#X connect 15 0 27 0;
+#X connect 16 0 8 0;
+#X connect 17 0 15 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 16 0;
+#X connect 24 0 19 0;
+#X connect 25 0 17 0;
+#X connect 27 0 12 1;
+#X connect 27 0 13 1;
+#X restore 203 93 pd filterl;
+#X connect 3 0 4 2;
+#X connect 4 0 5 0;
+#X connect 4 1 6 0;
+#X connect 7 0 4 0;
+#X connect 7 0 3 0;
+#X connect 8 0 4 1;
+#X connect 8 0 17 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 14 0;
+#X connect 13 0 4 4;
+#X connect 14 0 13 0;
+#X connect 15 0 3 1;
+#X connect 15 0 17 1;
+#X connect 16 0 3 2;
+#X connect 16 0 17 2;
+#X connect 17 0 4 3;