[PD] [FIR~] , [equalizer] and [biquad~] ... can i make [equalizer] and [biquad~] act like [FI

[Bernhard Neugebauer]

oh I hate this kind of Webmail

I'll put the file filterplot_biquad.pd in here as text, so that one can
get it by pd-list archives, too. (or is there an easy way to convert the
I04gY2FudmFzIDE3IDAgMTE1MCA3OTQgMTI7DQojWCBv stuff to a nice pd patch?)

sorry for mailing twice
Bernhard

#N canvas 17 0 1150 794 12;
#X obj 56 417 bang~;
#X obj 56 449 dirac~;
#X obj 376 -44 block~ 1024;
#N canvas 0 0 450 300 graph2 0;
#X array phase 1024 float 0;
#X coords 0 1.57 1023 -1.57 200 140 1;
#X restore 294 181 graph;
#N canvas 0 0 450 300 graph2 0;
#X array amp 1024 float 0;
#X coords 0 130 1023 50 200 140 1;
#X restore 293 24 graph;
#X obj 57 570 fft~;
#X obj 57 675 tabsend~ amp;
#X obj 183 644 tabsend~ phase;
#X obj 57 646 rmstodb~;
#N canvas 0 0 450 300 graph1 0;
#X array response 268 float 0;
#X coords 0 1 267 -1 200 140 1;
#X restore 295 372 graph;
#X obj 111 570 tabsend~ response;
#X obj 56 541 +~ 0;
#X obj 56 497 biquad~;
#X obj 523 292 pack 0 0 1 0 0;
#N canvas 266 348 464 314 AbsAngtoReIm 0;
#X obj 41 46 inlet;
#X obj 187 46 inlet;
#X text 38 21 absolute value;
#X text 185 20 angle;
#X obj 103 148 cos;
#X obj 104 126 * 0.0314159;
#X obj 44 113 t b f;
#X obj 104 172 *;
#X obj 203 126 * 0.0314159;
#X obj 203 98 - 50;
#X obj 203 149 cos;
#X obj 201 177 *;
#X obj 44 91 * 0.01;
#X obj 104 222 outlet;
#X obj 201 218 outlet;
#X text 103 245 real part;
#X text 200 244 imaginary part;
#X connect 0 0 12 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 6 0 11 0;
#X connect 6 1 11 1;
#X connect 6 1 7 1;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 14 0;
#X connect 12 0 6 0;
#X restore 859 69 pd AbsAngtoReIm;
#X text 863 48 100 is 1;
#X text 982 47 100 is pi/2;
#N canvas 16 481 466 316 ReImtoCoeff 0;
#X obj 114 29 inlet;
#X obj 236 28 inlet;
#X obj 35 216 outlet;
#X obj 128 216 outlet;
#X obj 237 218 outlet;
#X text 28 250 refresh;
#X text 161 247 coefficients;
#X text 142 265 ff2;
#X text 244 266 ff3;
#X obj 199 144 +;
#X obj 112 100 * -2;
#X obj 110 155 t b f;
#X obj 200 94 *;
#X obj 236 95 *;
#X obj 199 168 t b f;
#X obj 235 118 t b f;
#X obj 225 52 t f f;
#X obj 159 62 t f f;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 1 0 16 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 2 0;
#X connect 11 1 3 0;
#X connect 12 0 9 0;
#X connect 13 0 15 0;
#X connect 14 0 2 0;
#X connect 14 1 4 0;
#X connect 15 0 9 0;
#X connect 15 1 9 1;
#X connect 16 0 13 0;
#X connect 16 1 13 1;
#X connect 17 0 12 0;
#X connect 17 1 12 1;
#X restore 859 135 pd ReImtoCoeff;
#X floatatom 912 173 5 0 0 2 ff2 - -;
#X floatatom 966 173 5 0 0 2 ff3 - -;
#X text 914 -18 zeros;
#X floatatom 524 24 5 0 0 2 Gain gain -;
#X obj 523 108 t b f;
#X obj 524 82 * 0.01;
#X floatatom 25 30 5 0 0 2 frequency - -;
#X floatatom 106 31 5 0 0 2 gain - -;
#X obj 106 53 t b f;
#X floatatom 170 32 5 0 0 2 bandwidth - -;
#X obj 170 54 t b f;
#X obj 56 104 equalizer;
#N canvas 0 0 458 308 amplitude 0;
#X obj 35 67 inlet~;
#X obj 164 71 inlet~;
#X text 32 31 real part;
#X text 161 33 imaginary part;
#X obj 42 126 *~;
#X obj 161 126 *~;
#X obj 75 174 +~;
#X obj 76 207 sqrt~;
#X obj 78 253 outlet~;
#X text 166 175 amplitude of a complex signal;
#X connect 0 0 4 0;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 1 0 5 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X restore 56 615 pd amplitude;
#X obj 184 613 expr~ atan($v2/$v1);
#X floatatom 625 107 5 0 0 2 realPart - -;
#X floatatom 739 109 5 0 0 2 imaginaryPart - -;
#X floatatom 624 27 5 0 0 2 absoluteValue - -;
#X floatatom 739 27 5 0 0 2 angle - -;
#N canvas 266 348 464 314 AbsAngtoReIm 0;
#X obj 41 46 inlet;
#X obj 187 46 inlet;
#X text 38 21 absolute value;
#X text 185 20 angle;
#X obj 103 148 cos;
#X obj 104 126 * 0.0314159;
#X obj 44 113 t b f;
#X obj 104 172 *;
#X obj 203 126 * 0.0314159;
#X obj 203 98 - 50;
#X obj 203 149 cos;
#X obj 201 177 *;
#X obj 44 91 * 0.01;
#X obj 104 222 outlet;
#X obj 201 218 outlet;
#X text 103 245 real part;
#X text 200 244 imaginary part;
#X connect 0 0 12 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 6 0 11 0;
#X connect 6 1 11 1;
#X connect 6 1 7 1;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 14 0;
#X connect 12 0 6 0;
#X restore 624 69 pd AbsAngtoReIm;
#X text 630 45 100 is 1;
#X text 746 46 100 is pi/2;
#N canvas 16 481 478 328 ReImtoCoeff 0;
#X obj 114 29 inlet;
#X obj 236 28 inlet;
#X obj 35 216 outlet;
#X obj 128 216 outlet;
#X obj 237 218 outlet;
#X text 28 250 refresh;
#X text 161 247 coefficients;
#X text 142 265 ff2;
#X text 244 266 ff3;
#X obj 199 144 +;
#X obj 200 94 *;
#X obj 236 95 *;
#X obj 199 188 t b f;
#X obj 235 118 t b f;
#X obj 225 52 t f f;
#X obj 159 62 t f f;
#X obj 198 166 * -1;
#X obj 112 100 * 2;
#X connect 0 0 15 0;
#X connect 0 0 17 0;
#X connect 1 0 14 0;
#X connect 9 0 16 0;
#X connect 10 0 9 0;
#X connect 11 0 13 0;
#X connect 12 0 2 0;
#X connect 12 1 4 0;
#X connect 13 0 9 0;
#X connect 13 1 9 1;
#X connect 14 0 11 0;
#X connect 14 1 11 1;
#X connect 15 0 10 0;
#X connect 15 1 10 1;
#X connect 16 0 12 0;
#X connect 17 0 3 0;
#X restore 624 135 pd ReImtoCoeff;
#X floatatom 677 173 5 0 0 2 fb1 - -;
#X floatatom 731 173 5 0 0 2 fb2 - -;
#X text 683 -18 poles;
#X floatatom 859 27 5 0 0 2 absoluteValue - -;
#X floatatom 974 27 5 0 0 2 angle - -;
#X floatatom 859 109 5 0 0 2 realPart - -;
#X floatatom 975 108 5 0 0 2 imaginaryPart - -;
#X text 532 49 100 is 1;
#X text 122 450 needs zexy;
#X floatatom 432 532 5 0 0 0 response_length - responsesize;
#X text 293 -9 0;
#X text 381 -10 fs/2;
#X text 479 -9 fs;
#N canvas 0 0 1260 923 init 0;
#X obj 29 106 s response;
#X msg 29 76 resize \$1;
#X msg 130 75 xticks 0 10 10;
#X obj 303 148 s amp;
#X msg 325 106 yticks 100 2 5;
#X msg 291 74 ylabel 1100 60 80 100 120;
#X obj 25 39 r responsesize;
#X obj 191 29 loadbang;
#X msg 198 190 100;
#X obj 199 221 s gain;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 7 0 5 0;
#X connect 7 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X restore 286 -44 pd init;
#X text 498 9 dB;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 5 0 30 0;
#X connect 5 0 31 0;
#X connect 5 1 30 1;
#X connect 5 1 31 1;
#X connect 8 0 6 0;
#X connect 11 0 5 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 45 0;
#X connect 14 1 46 0;
#X connect 17 0 13 0;
#X connect 17 1 18 0;
#X connect 17 2 19 0;
#X connect 18 0 13 3;
#X connect 19 0 13 4;
#X connect 21 0 23 0;
#X connect 22 0 13 0;
#X connect 22 1 13 2;
#X connect 23 0 22 0;
#X connect 24 0 29 0;
#X connect 25 0 26 0;
#X connect 26 0 29 0;
#X connect 26 1 29 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 1 29 2;
#X connect 29 0 12 0;
#X connect 30 0 8 0;
#X connect 31 0 7 0;
#X connect 32 0 39 0;
#X connect 33 0 39 1;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 32 0;
#X connect 36 1 33 0;
#X connect 39 0 13 0;
#X connect 39 1 40 0;
#X connect 39 2 41 0;
#X connect 40 0 13 0;
#X connect 41 0 13 1;
#X connect 43 0 14 0;
#X connect 44 0 14 1;
#X connect 45 0 17 0;
#X connect 46 0 17 1;