#N canvas 155 63 1249 770 10; #N canvas 96 169 958 610 reverb 0; #X obj 13 19 inlet~; #X obj 13 43 reverb-echo echo-del1 5.43216; #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 obj 238 583 delwrite~ loop-del1 60; #X obj 283 561 delwrite~ loop-del2 71.9345; #X obj 364 515 delwrite~ loop-del4 95.945; #X obj 298 154 delread~ loop-del1 60; #X obj 340 179 delread~ loop-del2 71.9345; #X obj 408 233 delread~ loop-del4 95.945; #X obj 386 208 delread~ loop-del3 86.7545; #X obj 325 538 delwrite~ loop-del3 86.7545; #X obj 13 67 reverb-echo echo-del2 8.45346; #X obj 13 91 reverb-echo echo-del3 13.4367; #X obj 13 115 reverb-echo echo-del4 21.5463; #X obj 13 139 reverb-echo echo-del5 34.3876; #X obj 13 163 reverb-echo echo-del6 55.5437; #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 connect 0 0 1 0; #X connect 1 0 30 0; #X connect 1 1 30 1; #X connect 2 0 4 0; #X connect 2 0 6 0; #X connect 2 0 8 0; #X connect 3 0 5 0; #X connect 3 0 6 1; #X connect 3 0 8 1; #X connect 6 0 10 0; #X connect 6 0 12 0; #X connect 7 0 12 1; #X connect 7 0 10 1; #X connect 8 0 11 0; #X connect 8 0 13 0; #X connect 9 0 11 1; #X connect 9 0 13 1; #X connect 10 0 16 0; #X connect 11 0 15 0; #X connect 12 0 14 0; #X connect 13 0 17 0; #X connect 14 0 29 0; #X connect 15 0 23 0; #X connect 16 0 22 0; #X connect 17 0 24 0; #X connect 18 0 20 0; #X connect 19 0 17 1; #X connect 19 0 16 1; #X connect 19 0 15 1; #X connect 19 0 14 1; #X connect 20 0 21 0; #X connect 21 0 19 0; #X connect 25 0 2 1; #X connect 26 0 3 1; #X connect 27 0 7 1; #X connect 27 0 9 1; #X connect 28 0 7 0; #X connect 28 0 9 0; #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 34 0; #X connect 33 1 34 1; #X connect 34 0 2 0; #X connect 34 1 3 0; #X restore -3507 -3 pd reverb; #X obj -3506 21 r transpose; #X msg -3057 -298 0; #X obj -2891 -259 metro 60000; #X obj -2777 -259 metro 1000; #X obj -3049 -217 +; #X obj -2886 -182 f; #X obj -2837 -183 + 1; #X obj -2885 -127 mod 60; #X obj -2773 -184 f; #X obj -2731 -185 + 1; #X obj -3000 -187 f; #X obj -2959 -185 + 1; #X obj -2771 -126 mod 60; #X obj -2889 -73 send m; #X obj -2810 -70 send s; #X obj -2980 -74 send ms; #X obj -2998 11 nbx 5 14 -1e+037 1e+037 0 0 empty m Minutes 0 -8 0 10 -4032 -1 -1 0 256; #X obj -2922 10 nbx 5 14 -1e+037 1e+037 0 0 empty s Seconds 0 -8 0 10 -4032 -1 -1 0 256; #X obj -2845 11 nbx 5 14 -1e+037 1e+037 0 0 empty ms Milliseconds 0 -8 0 10 -4032 -1 -1 0 256; #X obj -2994 72 hradio 15 1 0 2 stop/start empty stop/start 0 -8 0 10 -262144 -1 -1 0; #X obj -2978 -126 mod 60; #X obj -3006 -260 metro 1; #X obj -2891 -354 r stop/start; #X obj -2889 -314 trigger f f f; #X obj -3237 -324 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3599 -414 adc~; #X msg -3346 -301 open recA.wav \, start; #X msg -3304 -261 stop; #X obj -3244 -279 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3340 -237 writesf~; #X obj -3592 -351 *~ 7; #X msg -3320 -152 stop; #X msg -3343 -188 open recB.wav \, start; #X obj -3354 -126 writesf~; #X obj -3320 130 readsf~; #X obj -3322 219 readsf~; #X obj -3236 -217 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3241 -165 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3251 64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3252 176 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg -3353 85 open recB.wav \, start; #X msg -3354 195 open recA.wav \, start; #X obj -3196 -343 sel 2; #X obj -3203 -279 sel 4; #X obj -3203 -227 sel 5; #X obj -3203 -124 sel 8; #X obj -3211 53 sel 10; #X obj -3221 173 sel 13; #X floatatom -3578 -3 4 0 999 0 - - -; #X obj -3580 46 delread~ delay1; #X obj -3599 250 output~; #X obj -3595 116 +~; #X obj -3579 -34 delwrite~ delay1 1000; #X obj -3280 -58 sel 9 11 13 16; #X msg -3335 -23 400; #X msg -3335 -4 600; #X msg -3337 15 1000; #X obj -3303 -24 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3303 -4 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3303 16 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3198 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -3305 -44 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg -3335 -43 200; #X obj -2966 215 sel 1; #X obj -2966 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -2914 127 t b f; #X text -2902 203 the $f1 value minutes \; and the $f2 value seconds ; #X text -2945 270 trigger something @ 1min 12sec; #X obj -2966 297 s triggered; #X obj -2628 -23 r triggered; #X obj -2628 97 line; #X obj -2628 140 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 0 1; #X msg -2628 10 1 5000; #X text -2578 10 fade to value 1 in 5 seconds; #X obj -2711 10 delay 10000; #X msg -2711 40 0 2000; #X text -2603 185 use as volume control \; or delay control or??; #X text -2662 40 fade to value 0 in 2 seconds; #X text -2569 58 change range (currently 1) \; to what is required \; i.e. [200 5000(; #X obj -2966 183 expr if ($f1 == $f3 && $f2 == $f4 \, 1 \, 0); #X text -2840 102 minutes; #X text -2779 102 seconds; #X obj -2857 59 loadbang; #X msg -2838 124 1; #X msg -2778 124 12; #X text -2902 226 $f3 and $f4 set mins and secs \; (or just replace them with the values \; you want inside the [expr] object; #X text -2840 93 set; #X text -2779 92 set; #X obj -2579 -124 timer_set 0 15; #X text -2558 -105 this will trigger at \; 0 mins 15 secs; #X obj -2520 -47 timer_set 4 6; #X obj -2520 -20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -2579 -97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -2579 -157 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj -2579 -184 timer_set 0 23; #X connect 2 0 5 0; #X connect 3 0 6 0; #X connect 4 0 9 0; #X connect 5 0 6 0; #X connect 5 0 9 0; #X connect 5 0 11 0; #X connect 6 0 8 0; #X connect 6 0 7 0; #X connect 7 0 6 1; #X connect 8 0 14 0; #X connect 9 0 10 0; #X connect 9 0 13 0; #X connect 10 0 9 1; #X connect 11 0 12 0; #X connect 11 0 21 0; #X connect 12 0 11 1; #X connect 13 0 15 0; #X connect 17 0 80 0; #X connect 18 0 43 0; #X connect 18 0 44 0; #X connect 18 0 45 0; #X connect 18 0 46 0; #X connect 18 0 47 0; #X connect 18 0 48 0; #X connect 18 0 54 0; #X connect 18 0 66 0; #X connect 21 0 16 0; #X connect 22 0 11 0; #X connect 23 0 24 0; #X connect 24 0 2 0; #X connect 24 0 22 0; #X connect 24 1 3 0; #X connect 24 2 4 0; #X connect 25 0 27 0; #X connect 26 0 31 0; #X connect 26 0 52 0; #X connect 27 0 30 0; #X connect 28 0 30 0; #X connect 29 0 28 0; #X connect 31 0 30 0; #X connect 31 0 34 0; #X connect 31 0 53 0; #X connect 32 0 34 0; #X connect 33 0 34 0; #X connect 35 0 51 0; #X connect 35 1 51 1; #X connect 36 0 51 0; #X connect 36 0 51 1; #X connect 37 0 33 0; #X connect 38 0 32 0; #X connect 39 0 41 0; #X connect 40 0 42 0; #X connect 41 0 35 0; #X connect 42 0 36 0; #X connect 43 0 25 0; #X connect 44 0 29 0; #X connect 45 0 37 0; #X connect 46 0 38 0; #X connect 47 0 39 0; #X connect 48 0 40 0; #X connect 49 0 50 0; #X connect 50 0 52 0; #X connect 52 0 51 0; #X connect 52 0 51 1; #X connect 54 0 62 0; #X connect 54 1 58 0; #X connect 54 2 59 0; #X connect 54 3 60 0; #X connect 55 0 49 0; #X connect 56 0 49 0; #X connect 57 0 49 0; #X connect 58 0 55 0; #X connect 59 0 56 0; #X connect 60 0 57 0; #X connect 62 0 63 0; #X connect 63 0 49 0; #X connect 64 0 65 0; #X connect 65 0 69 0; #X connect 66 0 80 0; #X connect 66 1 80 1; #X connect 70 0 73 0; #X connect 70 0 75 0; #X connect 71 0 72 0; #X connect 73 0 71 0; #X connect 75 0 76 0; #X connect 76 0 71 0; #X connect 80 0 64 0; #X connect 83 0 84 0; #X connect 83 0 85 0; #X connect 84 0 80 2; #X connect 85 0 80 3; #X connect 89 0 93 0; #X connect 91 0 92 0; #X connect 95 0 94 0;