#N canvas 347 132 779 445 12;
#X floatatom 63 262 5 0 0 0 - - - 0;
#X obj 63 230 filter-graph1 100 48000;
#X floatatom 371 281 3 -99 99 0 - \$0-pole - 0;
#X obj 276 301 rpole~;
#X obj 371 304 / 100;
#X obj 276 276 rzero_rev~;
#X text 366 257 pole (%);
#X obj 63 204 bng 19 250 50 0 empty empty empty 0 -6 0 8 #dfdfdf #000000 #000000;
#N canvas 876 177 288 255 init 0;
#X obj 71 28 loadbang;
#X obj 71 57 bng 19 250 50 0 empty empty empty 0 -6 0 8 #dfdfdf #000000 #000000;
#X obj 71 91 f \$0;
#X text 35 195 This subpatch loads initial;
#X text 31 219 values in number boxes.;
#X msg 71 122 \; \$1-pole 80;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X restore 326 346 pd init;
#X text 40 75 The all-pass filter has a phase response that depends on its coefficient \, and a flat frequency response. The coefficient (p) gives the location of the pole. There is a zero at 1/p \, unless p=0. If p=0 the filter is effectively a one-sample delay. Negative values of p are allowed (as long as p is between -1 and 1)., f 48;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-amp 100 float 0;
#X coords 0 2 99 0 200 140 1 0 0;
#X restore 489 38 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-phase 100 float 2;
#X coords 0 6.283 100 0 200 140 1 0 0;
#X restore 494 239 graph;
#X text 471 95 1;
#X text 470 304 pi;
#X text 463 234 2pi;
#X text 471 31 2;
#X text 474 366 0;
#X text 486 180 0 Hz;
#X text 669 180 48000 Hz;
#X text 472 167 0;
#X text 486 385 0 Hz;
#X text 669 385 48000 Hz;
#X obj 76 329 filter-graph2 \$0-amp \$0-phase;
#X obj 98 33 cnv 5 5 25 empty empty All-Pass\ Filters 15 13 0 16 #dfdfdf #202020 0;
#X connect 0 0 22 0;
#X connect 1 0 0 0;
#X connect 1 1 5 0;
#X connect 1 1 22 1;
#X connect 1 2 22 2;
#X connect 2 0 4 0;
#X connect 3 0 22 3;
#X connect 4 0 5 1;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 7 0 1 0;
