pp.butterkreuz3~.pd

#N canvas 385 229 844 429 10;
#N canvas 1 50 642 579 butterworth-lop 0;
#X obj 75 234 rpole~;
#X obj 96 314 cpole~;
#X obj 120 345 cpole~;
#X obj 96 282 *~;
#X obj 75 205 *~;
#X obj 190 102 samplerate~;
#X obj 190 128 / 2;
#X obj 143 156 / 22050;
#X obj 143 69 t f b;
#X obj 143 45 inlet;
#X obj 249 291 loadbang;
#X obj 75 38 inlet~;
#X obj 225 535 outlet~;
#X text 75 17 audio;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f 1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 143 183 pd buttercoef3;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f 1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 249 349 pd buttercoef3;
#X obj 181 371 /~;
#X obj 181 400 rzero~;
#X obj 202 448 /~;
#X obj 202 480 czero~;
#X obj 226 511 czero~;
#X msg 249 317 1;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 16 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 9 0 8 0;
#X connect 10 0 21 0;
#X connect 11 0 4 0;
#X connect 14 0 4 1;
#X connect 14 1 3 1;
#X connect 14 2 0 1;
#X connect 14 3 2 2;
#X connect 14 3 1 2;
#X connect 14 4 1 3;
#X connect 14 5 2 3;
#X connect 15 0 16 1;
#X connect 15 1 18 1;
#X connect 15 2 17 1;
#X connect 15 3 19 2;
#X connect 15 3 20 2;
#X connect 15 4 19 3;
#X connect 15 5 20 3;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 12 0;
#X connect 21 0 15 0;
#X restore 312 161 pd butterworth-lop;
#N canvas 1 50 642 579 butterworth-allp 0;
#X obj 75 234 rpole~;
#X obj 96 314 cpole~;
#X obj 120 345 cpole~;
#X obj 96 282 *~;
#X obj 75 205 *~;
#X obj 292 120 samplerate~;
#X obj 292 146 / 2;
#X obj 245 174 / 22050;
#X obj 245 77 t f b;
#X obj 245 27 inlet;
#X obj 74 30 inlet~;
#X obj 225 535 outlet~;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f 1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 245 201 pd buttercoef3;
#X obj 181 371 /~;
#X obj 181 400 rzero~;
#X obj 202 448 /~;
#X obj 202 480 czero~;
#X obj 226 511 czero~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 13 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 12 0 4 1;
#X connect 12 0 13 1;
#X connect 12 1 3 1;
#X connect 12 1 15 1;
#X connect 12 2 0 1;
#X connect 12 2 14 1;
#X connect 12 3 2 2;
#X connect 12 3 1 2;
#X connect 12 3 17 2;
#X connect 12 3 16 2;
#X connect 12 4 1 3;
#X connect 12 4 16 3;
#X connect 12 5 2 3;
#X connect 12 5 17 3;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 17 1;
#X connect 17 0 11 0;
#X restore 313 295 pd butterworth-allp;
#N canvas 409 108 642 579 butterworth-hip 0;
#X obj 75 234 rpole~;
#X obj 96 314 cpole~;
#X obj 120 345 cpole~;
#X obj 96 282 *~;
#X obj 75 205 *~;
#X obj 192 120 samplerate~;
#X obj 192 146 / 2;
#X obj 143 147 / 22050;
#X obj 143 69 t f b;
#X obj 143 39 inlet;
#X obj 75 38 inlet~;
#X obj 225 535 outlet~;
#X text 75 17 audio;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f -1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 143 183 pd buttercoef3;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f -1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 256 231 pd buttercoef3;
#X obj 181 371 /~;
#X obj 181 400 rzero~;
#X obj 202 448 /~;
#X obj 202 480 czero~;
#X obj 226 511 czero~;
#X obj 256 181 loadbang;
#X msg 256 205 0;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 13 0 4 1;
#X connect 13 1 3 1;
#X connect 13 2 0 1;
#X connect 13 3 2 2;
#X connect 13 3 1 2;
#X connect 13 4 1 3;
#X connect 13 5 2 3;
#X connect 14 0 15 1;
#X connect 14 1 17 1;
#X connect 14 2 16 1;
#X connect 14 3 18 2;
#X connect 14 3 19 2;
#X connect 14 4 18 3;
#X connect 14 5 19 3;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 11 0;
#X connect 20 0 21 0;
#X connect 21 0 14 0;
#X restore 365 195 pd butterworth-hip;
#N canvas 1 50 642 579 butterworth-lop 0;
#X obj 75 234 rpole~;
#X obj 96 314 cpole~;
#X obj 120 345 cpole~;
#X obj 96 282 *~;
#X obj 75 205 *~;
#X obj 190 102 samplerate~;
#X obj 190 128 / 2;
#X obj 143 156 / 22050;
#X obj 143 69 t f b;
#X obj 143 45 inlet;
#X obj 249 291 loadbang;
#X obj 75 38 inlet~;
#X obj 225 535 outlet~;
#X text 75 17 audio;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f 1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 143 183 pd buttercoef3;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f 1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 249 349 pd buttercoef3;
#X obj 181 371 /~;
#X obj 181 400 rzero~;
#X obj 202 448 /~;
#X obj 202 480 czero~;
#X obj 226 511 czero~;
#X msg 249 317 1;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 16 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 9 0 8 0;
#X connect 10 0 21 0;
#X connect 11 0 4 0;
#X connect 14 0 4 1;
#X connect 14 1 3 1;
#X connect 14 2 0 1;
#X connect 14 3 2 2;
#X connect 14 3 1 2;
#X connect 14 4 1 3;
#X connect 14 5 2 3;
#X connect 15 0 16 1;
#X connect 15 1 18 1;
#X connect 15 2 17 1;
#X connect 15 3 19 2;
#X connect 15 3 20 2;
#X connect 15 4 19 3;
#X connect 15 5 20 3;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 12 0;
#X connect 21 0 15 0;
#X restore 365 222 pd butterworth-lop;
#N canvas 409 108 642 579 butterworth-hip 0;
#X obj 75 234 rpole~;
#X obj 96 314 cpole~;
#X obj 120 345 cpole~;
#X obj 96 282 *~;
#X obj 75 205 *~;
#X obj 192 120 samplerate~;
#X obj 192 146 / 2;
#X obj 143 147 / 22050;
#X obj 143 69 t f b;
#X obj 143 39 inlet;
#X obj 75 38 inlet~;
#X obj 225 535 outlet~;
#X text 75 17 audio;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f -1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 143 183 pd buttercoef3;
#N canvas 444 100 833 623 buttercoef3 0;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - -;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 66 533 outlet;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 63 557 normalizer1;
#X obj 231 533 outlet;
#X text 228 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1))
;
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator
;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X obj 119 437 f -1;
#X connect 0 0 5 0;
#X connect 1 0 23 1;
#X connect 1 0 24 1;
#X connect 1 0 25 1;
#X connect 2 0 23 0;
#X connect 2 1 24 0;
#X connect 3 0 28 0;
#X connect 4 0 25 0;
#X connect 5 0 36 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 5 3 26 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 0 21 2;
#X connect 7 1 6 0;
#X connect 21 0 19 0;
#X connect 22 0 35 0;
#X connect 22 1 21 0;
#X connect 23 0 17 0;
#X connect 23 0 21 1;
#X connect 24 0 7 0;
#X connect 25 0 10 0;
#X connect 25 0 35 1;
#X connect 26 0 27 0;
#X connect 27 0 1 0;
#X connect 28 0 2 0;
#X connect 35 0 8 0;
#X connect 36 0 22 0;
#X restore 256 231 pd buttercoef3;
#X obj 181 371 /~;
#X obj 181 400 rzero~;
#X obj 202 448 /~;
#X obj 202 480 czero~;
#X obj 226 511 czero~;
#X obj 256 181 loadbang;
#X msg 256 205 0;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 13 0 4 1;
#X connect 13 1 3 1;
#X connect 13 2 0 1;
#X connect 13 3 2 2;
#X connect 13 3 1 2;
#X connect 13 4 1 3;
#X connect 13 5 2 3;
#X connect 14 0 15 1;
#X connect 14 1 17 1;
#X connect 14 2 16 1;
#X connect 14 3 18 2;
#X connect 14 3 19 2;
#X connect 14 4 18 3;
#X connect 14 5 19 3;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 11 0;
#X connect 20 0 21 0;
#X connect 21 0 14 0;
#X restore 416 251 pd butterworth-hip;
#X obj 366 254 *~ -1;
#X obj 314 349 outlet~;
#X obj 366 350 outlet~;
#X obj 415 350 outlet~;
#X obj 313 47 inlet~;
#X obj 103 115 hsl 175 15 0 127 0 0 \$0-visbng \$0-visbngr empty 50
8 2 10 -233017 -233017 -1 200 1;
#N canvas 682 163 655 455 stuff 0;
#X obj 164 147 s \$0-visbngr;
#X obj 146 42 r \$0-visbng;
#X msg 144 119 color 0 0;
#X msg 228 119 color 10 10;
#X obj 146 64 t b;
#X obj 226 94 del 250;
#X obj 451 145 r \$0-freq1;
#X obj 451 288 s \$0-freq2r;
#X msg 451 266 range \$1 \$2;
#X obj 451 245 pack;
#X obj 451 168 t f b;
#X obj 478 193 samplerate~;
#X obj 478 216 / 2;
#X obj 450 47 r \$0-freq2;
#X obj 450 112 s \$0-freq1r;
#X msg 450 90 range 0 \$1;
#X obj 44 242 s pd-\$0-butterkreuz3;
#X msg 44 214 vis 0 \, relocate 190x80+1+1 1x1+128+128 \, vis 1 \,
editmode 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 2 0;
#X connect 4 0 5 0;
#X connect 4 0 17 0;
#X connect 5 0 3 0;
#X connect 6 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 10 1 11 0;
#X connect 11 0 12 0;
#X connect 12 0 9 1;
#X connect 13 0 15 0;
#X connect 15 0 14 0;
#X connect 17 0 16 0;
#X restore 652 163 pd stuff;
#X obj 656 358 outlet;
#X obj 652 48 inlet;
#N canvas 714 231 450 300 in 0;
#X obj 70 10 inlet;
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 162 36 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 161 58 pd recall;
#X obj 70 91 route frequency-1 frequency-2;
#X obj 70 130 s \$0-freq1r;
#X obj 155 132 s \$0-freq2r;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 652 73 pd in;
#N canvas 306 126 781 543 outlet-message 0;
#X obj 289 337 list trim;
#X msg 208 305 addcomma;
#X msg 144 312 set;
#X obj 289 314 list prepend add2;
#X obj 289 392 outlet;
#X obj 220 174 t b a b;
#X obj 242 260 t b a a;
#N canvas 497 319 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 290 284 pd save;
#N canvas 155 411 986 300 bang_once 0;
#X obj 132 87 t b f;
#X obj 89 139 del 0;
#X obj 89 87 t b f;
#X obj 89 41 inlet;
#X obj 132 40 inlet;
#X obj 89 247 outlet;
#X obj 89 173 f;
#X obj 89 203 pack;
#X connect 0 0 1 0;
#X connect 0 1 7 1;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 2 1 6 1;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X restore 220 154 pd bang_once;
#X obj 220 120 r \$0-freq1;
#X obj 289 120 r \$0-freq2;
#X msg 242 233 frequency-1 \$1 \, frequency-2 \$2;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 4 0;
#X connect 5 1 11 0;
#X connect 5 2 2 0;
#X connect 6 0 1 0;
#X connect 6 1 3 0;
#X connect 6 2 7 0;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 8 1;
#X connect 11 0 6 0;
#X restore 656 336 pd outlet-message;
#N canvas 128 158 190 80 \$0-butterkreuz3 1;
#N canvas 124 220 714 345 mask 0;
#X obj 100 100 cnv 15 179 69 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 115 139 nbx 5 12 0 2000 0 0 \$0-freq1 \$0-freq1r hz 47 7 2 10
-262144 -1 -1 500 256;
#X obj 109 109 cnv 10 10 10 empty empty butterkreuz3~ 0 5 2 14 -262144
-162280 0;
#X obj 204 139 nbx 5 12 500 22050 0 0 \$0-freq2 \$0-freq2r hz 47 7
2 10 -262144 -1 -1 2000 256;
#X obj 113 127 cnv 4 2 2 empty empty Frequency-1 2 6 2 10 -262144 -1
0;
#X obj 202 127 cnv 4 2 2 empty empty Frequency-2 2 6 2 10 -262144 -1
0;
#X coords 0 -1 1 1 180 70 2 100 100;
#X restore 5 2 pd mask;
#X restore 652 186 pd \$0-butterkreuz3;
#N canvas 267 295 450 300 init 0;
#X obj 42 35 loadbang;
#X obj 42 86 f \$1;
#X obj 129 87 f \$2;
#X obj 42 58 t b b, f 15;
#X obj 129 166 s \$0-freq2r;
#X obj 42 165 s \$0-freq1r;
#X obj 42 113 sel 0;
#X obj 129 114 sel 0;
#X obj 42 139 f 500;
#X obj 129 141 f 2000;
#X connect 0 0 3 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 6 0 8 0;
#X connect 6 1 5 0;
#X connect 7 0 9 0;
#X connect 7 1 4 0;
#X connect 8 0 5 0;
#X connect 9 0 4 0;
#X restore 652 137 pd init;
#X obj 417 106 r \$0-freq1;
#X obj 521 182 r \$0-freq2;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 9 0 0 0;
#X connect 9 0 2 0;
#X connect 13 0 14 0;
#X connect 15 0 12 0;
#X connect 18 0 0 1;
#X connect 18 0 2 1;
#X connect 19 0 4 1;
#X connect 19 0 3 1;
#X connect 19 0 1 1;
#X coords 0 -1 1 1 180 33 1 100 100;