#N canvas 288 137 464 370 10;
#X obj 38 298 output~;
#X obj 304 326 loadsoundfile voice;
#X obj 49 50 playloop voice;
#X obj 304 300 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 49 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 131 24 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 199 hsl 101 10 -1 1 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 300 1;
#X msg 94 177 0;
#X text 135 179 gain;
#X floatatom 113 218 5 0 0 0 - - -;
#X obj 226 35 hsl 101 10 -1 1 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 9600 1;
#X floatatom 232 51 5 0 0 0 - - -;
#X text 226 15 Pole radius;
#X text 9 3 2nd order allpass;
#X text 100 129 second-order allpass;
#X obj 337 35 hsl 101 10 0 1 0 1 empty empty empty -2 -8 0 10 -262144
-1 -1 700 1;
#X floatatom 343 51 5 0 0 0 - - -;
#X text 337 15 Pole angle;
#X obj 388 92 *;
#X obj 209 92 expr -2*$f1*cos(3.14159*$f2);
#X floatatom 258 116 5 0 0 0 - - -;
#X floatatom 415 113 5 0 0 0 - - -;
#X obj 310 50 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 71 146 fexpr~ $f3*$x1[0]+$f2*$x1[-1]+$x1[-2] - $f2*$y[-1]-$f3*$y[-2]
;
#X obj 79 72 noise~;
#X obj 79 90 *~ 0.1;
#X obj 49 110 audiosel~;
#X connect 2 0 29 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 2 1;
#X connect 7 0 0 0;
#X connect 7 0 0 1;
#X connect 8 0 7 1;
#X connect 9 0 8 1;
#X connect 9 0 12 0;
#X connect 10 0 9 0;
#X connect 13 0 14 0;
#X connect 13 0 21 0;
#X connect 13 0 21 1;
#X connect 13 0 22 0;
#X connect 18 0 19 0;
#X connect 18 0 22 1;
#X connect 18 0 25 0;
#X connect 21 0 24 0;
#X connect 21 0 26 2;
#X connect 22 0 23 0;
#X connect 22 0 26 1;
#X connect 25 0 22 0;
#X connect 26 0 8 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 29 0 7 0;
#X connect 29 0 26 0;