#N canvas 439 23 868 734 12;
#X obj 294 267 *~;
#X obj 365 265 *~;
#X obj 229 342 t b b;
#X obj 437 468 atan2;
#X obj 294 378 snapshot~;
#X obj 388 377 snapshot~;
#X obj 481 335 butterworth3~ 80 100000 0;
#X obj 69 207 inlet;
#X obj 437 496 expr $f1 + 6.283 * ($f1 < -0.01);
#X obj 101 503 t b f b;
#X obj 517 576 symbol \$2;
#X obj 591 576 symbol;
#X obj 517 546 t b b, f 7;
#X msg 517 631 0;
#X msg 591 631 1;
#X obj 517 603 sel symbol, f 11;
#X floatatom 517 662 5 0 0 0 - - -;
#X obj 240 609 f;
#X obj 294 211 inlet~;
#X obj 365 211 inlet~;
#X obj 446 210 inlet~;
#X obj 403 611 f;
#X obj 397 568 spigot;
#X obj 329 611 t f b;
#X obj 166 609 t f b;
#X obj 166 637 tabwrite \$1;
#X obj 329 647 tabwrite \$2;
#X obj 671 335 env~ 2048;
#X obj 360 438 f;
#X obj 294 400 t f f b;
#X obj 360 468 dbtopow;
#X obj 166 497 expr sqrt($f1*$f1 + $f2*$f2)/$f3;
#X obj 69 330 sel 0;
#X obj 101 360 - 1;
#X obj 69 232 unpack;
#X obj 175 233 expr 10000/$f1;
#X text 295 159 test sinusoid:;
#X text 301 192 cos;
#X text 372 191 sin;
#X text 442 169 output of filter;
#X text 444 185 we're testing;
#X text 69 160 index and time to next step;
#X text 77 129 ----- from filter-graph1's 3 outlets: -------;
#X obj 437 436 swap;
#X obj 653 291 t b;
#X text 617 256 clear filters;
#X text 616 270 to start;
#X text 647 568 check if any table;
#X text 646 583 is specified for phase;
#X text 646 599 (don't compute it if;
#X text 647 614 not.);
#X text 53 30 filter-graph2: measures frequency and phase response
of a filter \, which should be driven by a "filter-graph1" object.
We need the three outputs of filter-graph1 \, plus the filter output.
, f 64;
#X text 518 99 1: table name for frequency response;
#X text 597 78 creation arguments:;
#X text 518 115 2 (optional): table name for phase response;
#X obj 294 336 butterworth3~ 80 100000 0;
#X obj 478 429 * -1;
#X floatatom 221 278 5 0 0 0 - - -;
#X text 101 274 cutoff freq. for low-pass filters, f 16;
#X connect 0 0 55 0;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X connect 3 0 8 0;
#X connect 4 0 29 0;
#X connect 5 0 31 1;
#X connect 5 0 56 0;
#X connect 6 0 5 0;
#X connect 7 0 34 0;
#X connect 8 0 22 0;
#X connect 9 0 2 0;
#X connect 9 1 17 1;
#X connect 9 1 21 1;
#X connect 9 2 12 0;
#X connect 10 0 15 0;
#X connect 11 0 15 1;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 16 0;
#X connect 14 0 16 0;
#X connect 15 0 13 0;
#X connect 15 1 14 0;
#X connect 16 0 22 1;
#X connect 17 0 25 1;
#X connect 18 0 0 0;
#X connect 18 0 27 0;
#X connect 19 0 1 0;
#X connect 20 0 1 1;
#X connect 20 0 0 1;
#X connect 21 0 26 1;
#X connect 22 0 23 0;
#X connect 23 0 26 0;
#X connect 23 1 21 0;
#X connect 24 0 25 0;
#X connect 24 1 17 0;
#X connect 27 0 28 1;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 43 0;
#X connect 29 2 28 0;
#X connect 30 0 31 2;
#X connect 31 0 24 0;
#X connect 32 1 33 0;
#X connect 32 1 44 0;
#X connect 33 0 9 0;
#X connect 34 0 32 0;
#X connect 34 1 35 0;
#X connect 35 0 57 0;
#X connect 43 0 3 0;
#X connect 43 1 3 1;
#X connect 44 0 6 4;
#X connect 44 0 55 4;
#X connect 55 0 4 0;
#X connect 56 0 43 1;
#X connect 57 0 55 1;
#X connect 57 0 6 1;
