#N canvas 69 503 470 338 10;
#X obj 82 263 dac~;
#X floatatom 1 8 5 0 0 0 - - -;
#X obj 235 4 hsl 128 15 0.05 0.99 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 4500 1;
#X text 229 -16 res;
#X text 91 -17 cut;
#X obj 93 1 hsl 128 15 0 128 0 1 empty empty empty -2 -6 0 8 -262144
-1 -1 12400 1;
#X obj 144 81 mtof;
#X obj 3 47 phasor~ 222;
#N canvas 167 157 920 635 simple_reson_hp1 0;
#X obj -19 398 cpole~;
#X obj 49 519 czero~;
#X obj 49 591 outlet~;
#X obj -173 141 inlet~;
#X obj 31 118 /~ 2;
#X obj 16 184 cos~;
#X obj 95 182 -~ 0.25;
#X obj 96 203 cos~;
#X obj 96 256 *~;
#X obj 225 183 clip~ 0.05 0.99;
#X obj 236 146 inlet~;
#X obj 33 34 /~ 11025;
#X obj 34 5 inlet~;
#X text -123 141 audio in;
#X text 81 5 cutoff;
#X text 287 143 resonance;
#X text 99 35 1/4 samplerate;
#X text 70 118 pi/2 for audio cos;
#X text -256 396 pole: cos(angle) \, sin(angle)+res;
#X text 29 167 cosine;
#X text 147 191 sine;
#X text -310 321 multiply input by attenuation factor;
#X text 100 54 cutoff (or angle on the unit circle \, usually 0..pi
(0..nyquist) \, but here 0..0.5 because of the cos~ audio object);
#X text 55 368 zero at zero frequency;
#X obj -59 222 -~;
#X obj -45 327 *~;
#X obj -92 181 sig~ 1;
#X obj 49 392 sig~ 1;
#X obj 99 393 sig~ 0;
#X obj 32 94 clip~ 0 0.5;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 2 0;
#X connect 3 0 25 0;
#X connect 4 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 0 2;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 0 3;
#X connect 9 0 8 1;
#X connect 9 0 24 1;
#X connect 10 0 9 0;
#X connect 11 0 29 0;
#X connect 12 0 11 0;
#X connect 24 0 25 1;
#X connect 25 0 0 0;
#X connect 26 0 24 0;
#X connect 27 0 1 2;
#X connect 28 0 1 3;
#X connect 29 0 4 0;
#X restore 101 192 pd simple_reson_hp1;
#X connect 1 0 7 0;
#X connect 2 0 8 2;
#X connect 5 0 6 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 8 0 0 1;