#N canvas -4 166 464 370 10; #X obj 38 298 output~; #X text -5 2 1st order allpass; #X obj 242 41 loadsoundfile voice; #X obj 49 41 playloop voice; #X obj 242 22 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 49 22 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 130 22 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #N canvas 0 22 450 300 (subpatch) 0; #X array voice 153259 float 2; #X coords 0 1 153259 -1 200 140 1; #X restore 239 208 graph; #X obj 49 257 +~; #X obj 71 220 *~; #X obj 97 198 hsl 101 10 -1 1 0 1 empty empty empty -2 -8 0 10 -262144 -1 -1 4700 1; #X msg 94 177 0; #X text 128 129 first-order allpass; #X text 135 179 gain; #X floatatom 113 218 5 0 0 0 - - -; #X obj 310 108 hsl 101 10 -1 1 0 1 empty empty empty -2 -8 0 10 -262144 -1 -1 9900 1; #X floatatom 337 128 5 0 0 0 - - -; #X text 313 89 Pole radius; #X obj 79 62 noise~; #X obj 79 80 *~ 0.1; #X obj 49 100 audiosel~; #X obj 71 146 fexpr~ -$f2*$x1[0] + $x1[-1] + $f2*$y[-1]; #X connect 3 0 20 0; #X connect 4 0 2 0; #X connect 5 0 3 0; #X connect 6 0 3 1; #X connect 8 0 0 0; #X connect 8 0 0 1; #X connect 9 0 8 1; #X connect 10 0 9 1; #X connect 10 0 14 0; #X connect 11 0 10 0; #X connect 15 0 16 0; #X connect 15 0 21 1; #X connect 18 0 19 0; #X connect 19 0 20 1; #X connect 20 0 8 0; #X connect 20 0 21 0; #X connect 21 0 9 0;