patches/lib/audio/pingpong~.pd

#N canvas 0 30 1022 568 12;
#X obj 344 95 inlet~;
#X obj 505 35 inlet;
#X obj 634 107 inlet;
#X text 628 85 decay;
#X obj 378 440 outlet~;
#X text 471 67 delay (ms);
#X obj 412 223 delwrite~ echo1\$0 60000;
#X obj 411 303 delread~ echo1\$0 60000;
#X obj 435 134 r~ recur1\$0;
#X obj 51 118 inlet~;
#X obj 95 436 outlet~;
#X obj 174 353 s~ recur1\$0;
#X obj 153 130 r~ recur0\$0;
#X obj 457 359 s~ recur0\$0;
#X obj 126 217 delwrite~ echo0\$0 60000;
#X obj 128 298 delread~ echo0\$0 60000;
#X obj 655 145 clip 0.001 1;
#X obj 438 182 expr~ $v1*(1-$f2);
#X obj 154 178 expr~ $v1*(1-$f2);
#X obj 237 30 loadbang;
#X obj 259 94 f 1000;
#X connect 0 0 4 0;
#X connect 0 0 17 0;
#X connect 1 0 20 0;
#X connect 2 0 16 0;
#X connect 7 0 4 0;
#X connect 7 0 13 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 9 0 18 0;
#X connect 12 0 18 0;
#X connect 15 0 10 0;
#X connect 15 0 11 0;
#X connect 16 0 17 1;
#X connect 16 0 18 1;
#X connect 17 0 6 0;
#X connect 18 0 14 0;
#X connect 19 0 20 0;
#X connect 20 0 15 0;
#X connect 20 0 7 0;