#N canvas 296 142 819 418 12;
#X obj 103 291 filter-graph2 tab1 tab2;
#N canvas 0 50 450 300 (subpatch) 0;
#X array tab1 100 float 0;
#X coords 0 2 99 0 200 140 1 0 0;
#X restore 552 27 graph;
#N canvas 0 50 450 300 (subpatch) 0;
#X array tab2 100 float 2;
#X coords 0 6.283 99 0 200 140 1 0 0;
#X restore 557 228 graph;
#X text 539 84 1;
#X text 551 370 0;
#X text 533 293 pi;
#X text 526 223 2pi;
#X floatatom 76 224 5 0 0 0 - - - 0;
#X text 539 20 2;
#X text 65 367 updated for Pd version 0.39;
#X text 609 173 frequency;
#X text 549 169 0;
#X text 732 172 44100;
#N canvas 876 177 288 255 startup 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 334 158 pd startup;
#X text 493 155 gain=0;
#X text 492 355 phase=0;
#X obj 76 192 filter-graph1 100 44100;
#X text 48 17 ALL-PASS FILTERS;
#X floatatom 356 243 3 -99 99 0 - \$0-pole - 0;
#X obj 261 263 rpole~;
#X obj 356 266 / 100;
#X obj 261 238 rzero_rev~;
#X text 351 219 pole (%);
#X text 35 49 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;
#X obj 76 166 bng 19 250 50 0 empty empty empty 0 -6 0 8 #dfdfdf #000000 #000000;
#X obj 336 310 ../5.reference/set-dsp-tgl;
#X text 367 313 DSP on/off;
#X msg 336 347 \; pd dsp \$1;
#X connect 7 0 0 0;
#X connect 16 0 7 0;
#X connect 16 1 0 1;
#X connect 16 1 21 0;
#X connect 16 2 0 2;
#X connect 18 0 20 0;
#X connect 19 0 0 3;
#X connect 20 0 21 1;
#X connect 20 0 19 1;
#X connect 21 0 19 0;
#X connect 24 0 16 0;
#X connect 25 0 27 0;
