#N canvas 409 112 428 389 10;
#X obj 11 249 cpole~;
#X obj 12 294 czero~;
#X obj 278 188 *~ 0.01;
#X obj 333 188 *~ 0.01;
#X obj 296 149 cos~;
#X obj 333 150 cos~;
#X obj 332 128 -~ 0.25;
#X obj 313 45 samplerate~;
#X obj 297 67 /~;
#X obj 313 22 loadbang;
#X obj 63 18 inlet~;
#X obj 11 18 inlet~;
#X obj 12 322 outlet~;
#X obj 82 215 *~;
#X obj 110 216 *~;
#X obj 127 17 inlet~;
#X msg 293 238 version 0.1.0;
#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 240 279 pd \$0-lookuptable;
#X obj 240 301 table \$0-lookup1 44100;
#X obj 126 118 tabread~ \$0-lookup1;
#X text 99 330 taken from 3.audio.examples/H12.peaking.pd;
#X text 98 353 modified by Roman Haefeli;
#X obj 127 96 *~ 401;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 12 0;
#X connect 2 0 1 2;
#X connect 3 0 1 3;
#X connect 4 0 2 0;
#X connect 4 0 13 0;
#X connect 5 0 3 0;
#X connect 5 0 14 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 8 0;
#X connect 11 0 0 0;
#X connect 13 0 0 2;
#X connect 14 0 0 3;
#X connect 15 0 22 0;
#X connect 19 0 13 1;
#X connect 19 0 14 1;
#X connect 22 0 19 0;