#N canvas 0 22 474 324 10;
#X obj 19 19 inlet~;
#X obj 19 277 outlet~;
#X obj 104 81 +~;
#X obj 255 18 inlet;
#X obj 255 38 clip 0 0.9999;
#X obj 168 105 *~;
#X obj 35 194 * -1;
#X obj 19 221 *~;
#X obj 19 244 +~;
#X obj 104 207 *~;
#X obj 104 149 delread~ \$0-allpass \$1;
#X obj 194 18 loadbang;
#X obj 194 37 \$2;
#X obj 120 185 expr 1-$f1*$f1;
#X obj 84 19 inlet;
#X obj 84 41 clip 0.01 100;
#X obj 104 130 delwrite~ \$0-allpass 100;
#X connect 0 0 2 0;
#X connect 0 0 7 0;
#X connect 2 0 16 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 4 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 2 1;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 9 0 8 1;
#X connect 10 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 4 0;
#X connect 13 0 9 1;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
