#N canvas 25 22 868 421 12;
#X obj 25 338 filter-graph2 tab1 tab2;
#N canvas 0 0 450 300 graph2 0;
#X array tab1 100 float 1;
#A 0 0.999994 1.0015 1.00454 0.999907 0.99994 0.999773 1.00002 1.0004
0.999993 0.998703 1 0.999993 1 0.999699 0.999312 0.99924 0.999999 1
0.999937 0.999782 0.999733 0.999322 0.9998 1 0.999998 0.999945 0.999998
0.999779 0.999998 1 0.999991 0.999998 0.999999 0.99949 1 0.999165 1
0.999991 0.999833 0.999694 1.00014 0.999247 1.00001 0.999976 1.00001
0.99974 0.999947 0.998428 1.00052 1.00383 1.00011 0.991395 1.0006 1.00077
0.999952 0.999955 1.00003 0.999937 0.999955 0.999616 0.999266 0.99916
1 0.999989 0.999831 0.999696 1 0.999239 0.999998 0.999998 0.999993
0.999998 0.999998 0.999426 0.999998 0.999999 0.999998 0.999916 0.999714
0.99951 0.999825 0.999998 0.999999 0.999962 0.999837 0.999605 1 0.999164
0.999996 0.99999 1 0.99999 0.999991 0.998888 1.00002 0.999955 0.999942
0.999432 1.00007 1.00956;
#X coords 0 2 99 0 200 140 1;
#X restore 634 -1 graph;
#N canvas 0 0 450 300 graph2 0;
#X array tab2 100 float 3;
#A 0 8.595e-06 0.0615936 0.127096 0.18809 0.251487 0.314087 0.376949
0.439804 0.502669 0.565481 0.628309 0.691149 0.753982 0.816816 0.879645
0.942477 1.00531 1.06814 1.13097 1.1938 1.25663 1.31947 1.3823 1.44513
1.50796 1.5708 1.63363 1.69646 1.75929 1.82212 1.88496 1.94779 2.01062
2.07345 2.13628 2.19912 2.26195 2.32478 2.38761 2.45045 2.51327 2.5761
2.63893 2.70178 2.76457 2.82751 2.89011 2.9535 3.01727 3.08969 3.14147
3.19331 3.26573 3.3295 3.39289 3.45549 3.51843 3.58122 3.64407 3.7069
3.76973 3.83255 3.89539 3.95822 4.02105 4.08388 4.14672 4.20955 4.27238
4.33521 4.39804 4.46088 4.52371 4.58654 4.64937 4.7122 4.77504 4.83787
4.9007 4.96353 5.02637 5.0892 5.15203 5.21486 5.27769 5.34052 5.40335
5.46619 5.52902 5.59185 5.65469 5.71752 5.78033 5.8432 5.90605 5.96891
6.03151 6.09491 6.1559 6.21446;
#X coords 0 6.283 99 0 200 140 1;
#X restore 639 200 graph;
#X text 621 56 1;
#X text 633 342 0;
#X text 615 265 pi;
#X text 608 195 2pi;
#X obj 25 203 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 33 249 5 0 0 0 - - -;
#X text 621 -8 2;
#X text 610 382 updated for Pd version 0.39;
#X text 691 145 frequency;
#X text 631 141 0;
#X text 814 144 44100;
#N canvas 876 177 375 255 startup 0;
#X obj 22 24 loadbang;
#X obj 22 48 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 22 67 f \$0;
#X text 35 195 This subpatch loads initial;
#X text 31 219 values in number boxes.;
#X msg 22 91 \; \$1-pole 80;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X restore 398 370 pd startup;
#X text 575 127 gain=0;
#X text 574 327 phase=0;
#X obj 25 226 filter-graph1 100 44100;
#X text 44 202 <-- compute;
#X text 34 266 index;
#X text 104 -6 ALL-PASS FILTERS;
#X floatatom 346 264 3 -99 99 0 - #0-pole -;
#X obj 239 306 rpole~;
#X obj 346 287 / 100;
#X obj 239 281 rzero_rev~;
#X text 341 240 pole (%);
#X text 14 20 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 connect 7 0 17 0;
#X connect 17 0 0 0;
#X connect 17 0 8 0;
#X connect 17 1 0 1;
#X connect 17 1 24 0;
#X connect 17 2 0 2;
#X connect 21 0 23 0;
#X connect 22 0 0 3;
#X connect 23 0 24 1;
#X connect 23 0 22 1;
#X connect 24 0 22 0;