#N canvas 1126 268 1351 1033 10;
#N canvas 601 22 958 610 reverb 0;
#X obj 13 19 inlet~;
#X obj 277 215 +~;
#X obj 319 215 +~;
#X obj 67 276 outlet~;
#X obj 137 276 outlet~;
#X obj 238 334 +~;
#X obj 347 335 +~;
#X obj 280 334 -~;
#X obj 387 334 -~;
#X obj 237 390 +~;
#X obj 281 391 +~;
#X obj 325 392 -~;
#X obj 364 392 -~;
#X obj 324 474 *~ 0;
#X obj 282 473 *~ 0;
#X obj 237 472 *~ 0;
#X obj 365 475 *~ 0;
#X obj 632 365 inlet;
#X obj 632 437 / 200;
#X obj 632 389 min 100;
#X obj 632 412 max 0;
#X text 286 42 "early echo" generators \, which also increase echo
density. Open one to see what they do.;
#X text 300 115 Get the outputs of the recirculating delays. Add the
inputs to two of them.;
#X text 420 313 Do a power-conserving mix of them in pairs. First combine
(1 \, 2) and (3 \, 4)...;
#X text 402 385 ...then (1 \, 3) and (2 \, 4);
#X text 446 469 The two mixing stages have a combined gain of 2 \,
so the recirculation gain is limited to 0.5.;
#X text 586 542 Put the signals back into the;
#X text 584 557 recirculating delays.;
#X text 29 296 Tap outputs from here.;
#X text 708 381 0 to 100 to control reverb;
#X text 719 396 time.;
#X text 691 364 feedback gain on a scale of;
#X obj 13 43 reverb-echo echo-del1_\$1 5.43216;
#X obj 13 67 reverb-echo echo-del2_\$1 8.45346;
#X obj 13 91 reverb-echo echo-del3_\$1 13.4367;
#X obj 364 515 delwrite~ loop-del4_\$1 95.945;
#X obj 325 538 delwrite~ loop-del3_\$1 86.7545;
#X obj 283 561 delwrite~ loop-del2_\$1 71.9345;
#X obj 238 583 delwrite~ loop-del1_\$1 60;
#X obj 298 154 delread~ loop-del1_\$1 60;
#X obj 340 179 delread~ loop-del2_\$1 71.9345;
#X obj 386 208 delread~ loop-del3_\$1 86.7545;
#X obj 408 233 delread~ loop-del4_\$1 95.945;
#X connect 0 0 32 0;
#X connect 1 0 3 0;
#X connect 1 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 2 0 5 1;
#X connect 2 0 7 1;
#X connect 5 0 9 0;
#X connect 5 0 11 0;
#X connect 6 0 11 1;
#X connect 6 0 9 1;
#X connect 7 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 10 1;
#X connect 8 0 12 1;
#X connect 9 0 15 0;
#X connect 10 0 14 0;
#X connect 11 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 36 0;
#X connect 14 0 37 0;
#X connect 15 0 38 0;
#X connect 16 0 35 0;
#X connect 17 0 19 0;
#X connect 18 0 16 1;
#X connect 18 0 15 1;
#X connect 18 0 14 1;
#X connect 18 0 13 1;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 32 0 33 0;
#X connect 32 1 33 1;
#X connect 33 0 34 0;
#X connect 33 1 34 1;
#X connect 34 0 1 0;
#X connect 34 1 2 0;
#X connect 39 0 1 1;
#X connect 40 0 2 1;
#X connect 41 0 6 0;
#X connect 41 0 8 0;
#X connect 42 0 6 1;
#X connect 42 0 8 1;
#X restore 88 157 pd reverb;
#X floatatom 164 133 0 0 100 0 - - -;
#X obj 142 41 loadbang;
#X obj 82 115 *~;
#X obj 100 82 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 99 231 *~ 0.4;
#X obj 152 231 *~ 0.4;
#X obj 103 282 outlet~;
#X obj 172 279 outlet~;
#X obj 58 22 inlet~;
#X obj 122 25 inlet;
#X msg 316 108 1;
#X obj 300 205 *~;
#X obj 316 76 sel 0 1;
#X msg 354 108 0;
#X msg 153 85 85;
#X connect 0 0 5 0;
#X connect 0 1 6 0;
#X connect 1 0 0 1;
#X connect 2 0 15 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 9 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 4 0;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 7 0;
#X connect 12 0 8 0;
#X connect 13 0 11 0;
#X connect 13 1 14 0;
#X connect 14 0 12 1;
#X connect 15 0 1 0;
