#N canvas 3 26 1440 847 12; #N canvas 423 96 824 602 reverb 0; #X obj 36 21 inlet~; #X obj 243 233 +~; #X obj 285 233 +~; #X obj 54 359 outlet~; #X obj 124 359 outlet~; #X obj 243 297 +~; #X obj 348 298 +~; #X obj 285 297 -~; #X obj 387 297 -~; #X obj 242 366 +~; #X obj 286 367 +~; #X obj 330 368 -~; #X obj 369 368 -~; #X obj 330 450 *~ 0; #X obj 286 449 *~ 0; #X obj 242 448 *~ 0; #X obj 369 451 *~ 0; #X obj 519 333 inlet; #X obj 519 405 / 200; #X obj 519 357 min 100; #X obj 519 380 max 0; #X obj 242 559 delwrite~ loop-del1 60; #X obj 286 536 delwrite~ loop-del2 71.9345; #X obj 369 489 delwrite~ loop-del4 95.945; #X obj 261 172 delread~ loop-del1 60; #X obj 303 198 delread~ loop-del2 71.9345; #X obj 405 249 delread~ loop-del4 95.945; #X obj 387 224 delread~ loop-del3 86.7545; #X obj 330 513 delwrite~ loop-del3 86.7545; #X obj 36 69 reverb-echo echo-del2 8.45346; #X obj 36 93 reverb-echo echo-del3 13.4367; #X obj 36 117 reverb-echo echo-del4 21.5463; #X obj 36 141 reverb-echo echo-del5 34.3876; #X obj 36 165 reverb-echo echo-del6 55.5437; #X text 256 49 "early echo" generators \, which also increase echo density. Open one to see what they do., f 44; #X text 260 128 Get the outputs of the recirculating delays. Add the inputs to two of them., f 38; #X text 420 287 Do a power-conserving mix of them in pairs. First combine (1 \, 2) and (3 \, 4)..., f 41; #X text 403 361 ...then (1 \, 3) and (2 \, 4), f 14; #X text 428 444 The two mixing stages have a combined gain of 2 \, so the recirculation gain is limited to 0.5., f 48; #X text 34 379 Tap outputs from here.; #X text 581 348 feedback gain on a scale of 0 to 100 to control reverb time., f 30; #X text 539 516 Put the signals back into the recirculating delays. , f 25; #X obj 36 45 reverb-echo echo-del1 5.43216; #X connect 0 0 42 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 28 0; #X connect 14 0 22 0; #X connect 15 0 21 0; #X connect 16 0 23 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 24 0 1 1; #X connect 25 0 2 1; #X connect 26 0 6 1; #X connect 26 0 8 1; #X connect 27 0 6 0; #X connect 27 0 8 0; #X connect 29 0 30 0; #X connect 29 1 30 1; #X connect 30 0 31 0; #X connect 30 1 31 1; #X connect 31 0 32 0; #X connect 31 1 32 1; #X connect 32 0 33 0; #X connect 32 1 33 1; #X connect 33 0 1 0; #X connect 33 1 2 0; #X connect 42 0 29 0; #X connect 42 1 29 1; #X restore 289 251 pd reverb; #X obj 173 136 tabread4~ array1L; #X msg 348 218 88; #X obj 348 185 loadbang; #N canvas 589 263 450 300 dry 0; #X obj 116 123 *~; #X obj 213 128 *~; #X obj 100 233 outlet~; #X obj 157 91 inlet~ dry; #X obj 214 67 inlet~ reverb; #X obj 113 62 * -1; #X obj 317 27 inlet control; #X obj 115 91 + 1; #X connect 0 0 2 0; #X connect 1 0 2 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 7 0; #X connect 6 0 1 1; #X connect 6 0 5 0; #X connect 7 0 0 0; #X restore 257 309 pd dry wt; #X obj 252 409 *~; #X obj 647 251 r env2; #N canvas 589 263 450 300 dry 0; #X obj 116 123 *~; #X obj 213 128 *~; #X obj 100 233 outlet~; #X obj 157 91 inlet~ dry; #X obj 214 67 inlet~ reverb; #X obj 113 62 * -1; #X obj 317 27 inlet control; #X obj 115 91 + 1; #X connect 0 0 2 0; #X connect 1 0 2 0; #X connect 3 0 0 1; #X connect 4 0 1 0; #X connect 5 0 7 0; #X connect 6 0 1 1; #X connect 6 0 5 0; #X connect 7 0 0 0; #X restore 583 351 pd dry wt; #X obj 584 420 *~; #X obj 546 140 tabread4~ array1R; #X obj 646 285 scale 0 1023 0 1 7.5; #N canvas 423 96 824 602 reverb 0; #X obj 36 21 inlet~; #X obj 243 233 +~; #X obj 285 233 +~; #X obj 54 359 outlet~; #X obj 124 359 outlet~; #X obj 243 297 +~; #X obj 348 298 +~; #X obj 285 297 -~; #X obj 387 297 -~; #X obj 242 366 +~; #X obj 286 367 +~; #X obj 330 368 -~; #X obj 369 368 -~; #X obj 330 450 *~ 0; #X obj 286 449 *~ 0; #X obj 242 448 *~ 0; #X obj 369 451 *~ 0; #X obj 519 333 inlet; #X obj 519 405 / 200; #X obj 519 357 min 100; #X obj 519 380 max 0; #X obj 242 559 delwrite~ loop-del1 60; #X obj 286 536 delwrite~ loop-del2 71.9345; #X obj 369 489 delwrite~ loop-del4 95.945; #X obj 261 172 delread~ loop-del1 60; #X obj 303 198 delread~ loop-del2 71.9345; #X obj 405 249 delread~ loop-del4 95.945; #X obj 387 224 delread~ loop-del3 86.7545; #X obj 330 513 delwrite~ loop-del3 86.7545; #X obj 36 69 reverb-echo echo-del2 8.45346; #X obj 36 93 reverb-echo echo-del3 13.4367; #X obj 36 117 reverb-echo echo-del4 21.5463; #X obj 36 141 reverb-echo echo-del5 34.3876; #X obj 36 165 reverb-echo echo-del6 55.5437; #X text 256 49 "early echo" generators \, which also increase echo density. Open one to see what they do., f 44; #X text 260 128 Get the outputs of the recirculating delays. Add the inputs to two of them., f 38; #X text 420 287 Do a power-conserving mix of them in pairs. First combine (1 \, 2) and (3 \, 4)..., f 41; #X text 403 361 ...then (1 \, 3) and (2 \, 4), f 14; #X text 428 444 The two mixing stages have a combined gain of 2 \, so the recirculation gain is limited to 0.5., f 48; #X text 34 379 Tap outputs from here.; #X text 581 348 feedback gain on a scale of 0 to 100 to control reverb time., f 30; #X text 539 516 Put the signals back into the recirculating delays. , f 25; #X obj 36 45 reverb-echo echo-del1 5.43216; #X connect 0 0 42 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 28 0; #X connect 14 0 22 0; #X connect 15 0 21 0; #X connect 16 0 23 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 24 0 1 1; #X connect 25 0 2 1; #X connect 26 0 6 1; #X connect 26 0 8 1; #X connect 27 0 6 0; #X connect 27 0 8 0; #X connect 29 0 30 0; #X connect 29 1 30 1; #X connect 30 0 31 0; #X connect 30 1 31 1; #X connect 31 0 32 0; #X connect 31 1 32 1; #X connect 32 0 33 0; #X connect 32 1 33 1; #X connect 33 0 1 0; #X connect 33 1 2 0; #X connect 42 0 29 0; #X connect 42 1 29 1; #X restore 526 266 pd reverb; #X msg 585 233 88; #X obj 585 200 loadbang; #X obj 670 320 send drywet; #X obj 341 282 r drywet; #X obj 402 472 dac~; #X connect 0 0 4 1; #X connect 1 0 0 0; #X connect 1 0 4 0; #X connect 2 0 0 1; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 16 0; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 8 0 16 1; #X connect 9 0 11 0; #X connect 9 0 7 0; #X connect 10 0 7 2; #X connect 10 0 14 0; #X connect 11 0 7 1; #X connect 12 0 11 1; #X connect 13 0 12 0; #X connect 15 0 4 2;