filter-graph2.pd 3.06 KB
Newer Older
Miller Puckette's avatar
Miller Puckette committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
#N canvas 72 200 758 579 10;
#X obj 266 177 *~;
#X obj 317 175 *~;
#X obj 182 276 t b b;
#X obj 368 382 atan2;
#X obj 267 302 snapshot~;
#X obj 341 301 snapshot~;
#X obj 450 259 butterworth3~ 80 100000 0;
#X obj 64 135 inlet;
#X obj 368 410 expr $f1 + 6.283 * ($f1 < -0.01);
#X obj 71 417 t b f b;
#X obj 448 457 symbol \$2;
#X obj 519 457 symbol;
#X obj 463 434 t b b;
#X obj 447 504 t b;
#X obj 474 505 t b;
#X msg 447 525 0;
#X msg 474 526 1;
#X obj 447 481 sel symbol;
#X floatatom 447 549 5 0 0 0 - - -;
#X obj 195 493 f;
#X obj 265 135 inlet~;
#X obj 318 135 inlet~;
#X obj 418 134 inlet~;
#X obj 374 495 f;
#X obj 368 442 spigot;
#X obj 333 495 t f b;
#X obj 154 493 t f b;
#X obj 154 521 tabwrite \$1;
#X obj 333 520 tabwrite \$2;
#X obj 637 259 env~ 2048;
#X obj 311 362 f;
#X obj 267 324 t f f b;
#X obj 311 382 dbtopow;
#X obj 137 411 expr sqrt($f1*$f1 + $f2*$f2)/$f3;
#X obj 63 245 sel 0;
#X obj 87 270 - 1;
#X obj 64 156 unpack;
#X obj 117 157 expr 10000/$f1;
#X text 257 102 test sinusoid:;
#X text 272 116 cos;
#X text 325 115 sin;
#X text 397 97 output of filter;
#X text 398 113 we're testing;
#X text 31 103 index and time to next step;
#X text 39 82 ----- from filter-graph1's 3 outlets: -------;
#X text 117 193 low-pass filters;
#X text 118 177 cutoff freq. for;
#X obj 368 360 swap;
#X obj 620 215 t b;
#X text 583 184 clear filters;
#X text 582 198 to start;
53
#X text 578 452 check if any table;
Miller Puckette's avatar
Miller Puckette committed
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121
#X text 577 467 is specified for phase;
#X text 577 483 (don't compute it if;
#X text 578 498 not.);
#X text 31 3 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.
;
#X text 438 55 1: table name for frequency response;
#X text 518 39 creation arguments:;
#X text 438 71 2 (optional): table name for phase response;
#X obj 266 260 butterworth3~ 80 100000 0;
#X connect 0 0 59 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 31 0;
#X connect 5 0 33 1;
#X connect 5 0 47 1;
#X connect 6 0 5 0;
#X connect 7 0 36 0;
#X connect 8 0 24 0;
#X connect 9 0 2 0;
#X connect 9 1 19 1;
#X connect 9 1 23 1;
#X connect 9 2 12 0;
#X connect 10 0 17 0;
#X connect 11 0 17 1;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 18 0;
#X connect 17 0 13 0;
#X connect 17 1 14 0;
#X connect 18 0 24 1;
#X connect 19 0 27 1;
#X connect 20 0 0 0;
#X connect 20 0 29 0;
#X connect 21 0 1 0;
#X connect 22 0 1 1;
#X connect 22 0 0 1;
#X connect 23 0 28 1;
#X connect 24 0 25 0;
#X connect 25 0 28 0;
#X connect 25 1 23 0;
#X connect 26 0 27 0;
#X connect 26 1 19 0;
#X connect 29 0 30 1;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 31 1 47 0;
#X connect 31 2 30 0;
#X connect 32 0 33 2;
#X connect 33 0 26 0;
#X connect 34 1 35 0;
#X connect 34 1 48 0;
#X connect 35 0 9 0;
#X connect 36 0 34 0;
#X connect 36 1 37 0;
#X connect 37 0 6 1;
#X connect 37 0 59 1;
#X connect 47 0 3 0;
#X connect 47 1 3 1;
#X connect 48 0 6 4;
#X connect 48 0 59 4;
#X connect 59 0 4 0;