#N canvas 772 367 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 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 obj 386 200 iemguts/propertybang;
#X obj 387 229 tof/param gui;
#X obj 405 94 tof/param route;
#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 16 0;
#X connect 9 0 19 0;
#X connect 11 0 13 0;
#X connect 12 0 4 4;
#X connect 13 0 12 0;
#X connect 14 0 3 1;
#X connect 14 0 16 1;
#X connect 15 0 3 2;
#X connect 15 0 16 2;
#X connect 16 0 4 3;
#X connect 17 0 18 0;
#X connect 19 0 10 0;