#N canvas 755 324 325 350 10;
#X obj 73 69 delread~ \$0-med;
#X obj 15 297 delwrite~ \$0-med 100;
#X obj 12 35 inlet~;
#X obj 17 269 +~;
#X obj 76 245 *~;
#X obj 72 36 inlet;
#X obj 148 30 inlet;
#X obj 169 303 outlet~;
#X text 9 8 audio;
#X text 71 9 delay;
#X text 151 9 gain;
#X obj 73 104 rpole~;
#X obj 175 69 / 250;
#X floatatom 175 91 5 0 0 0 - - -;
#X obj 174 112 sqrt;
#X floatatom 174 134 5 0 0 0 - - -;
#X obj 175 154 * -1;
#X obj 175 175 + 1;
#X obj 152 219 *;
#X obj 178 197 t b f;
#X floatatom 95 225 5 0 0 0 - - -;
#X text 14 324 g1 = sqrt(dt/250) - fudge based on moorer's table;
#X connect 0 0 7 0;
#X connect 0 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 0 0;
#X connect 5 0 12 0;
#X connect 6 0 18 0;
#X connect 11 0 4 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 11 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;
#X connect 20 0 4 1;
