#N canvas 55 22 956 541 12;
#X obj 167 441 dac~;
#X obj 70 74 line~;
#X msg 70 51 0 \, 10000 5;
#X obj 70 120 cos~;
#X msg 158 72 1;
#X obj 158 49 loadbang;
#X obj 70 97 clip~ 0 0.25;
#X floatatom 185 266 0 0 0 0 - - -;
#X obj 263 136 line~;
#X obj 263 159 cos~;
#X msg 336 56 -0.25 \, 0.25 100;
#X obj 263 10 loadbang;
#X msg 263 33 -0.25;
#X obj 263 205 *~;
#X obj 70 142 hip~ 5;
#X floatatom 181 330 0 0 0 0 - - -;
#X obj 181 375 pack 0 100;
#X obj 181 398 line~;
#X obj 167 418 *~;
#X obj 181 352 dbtorms;
#X msg 336 79 -0.25 \, 0.25 400;
#X floatatom 336 147 0 0 0 0 - - -;
#X obj 336 193 osc~ 440;
#X obj 336 170 mtof;
#X msg 336 33 -0.25 \, 0.25 20;
#X obj 263 182 *~ 0.1;
#X msg 336 102 -0.25 \, 0.25 1000;
#X msg 336 124 -0.25 \, 0.25 2000;
#X obj 336 228 *~;
#X obj 354 254 *~;
#X obj 70 441 dac~;
#X floatatom 80 325 0 0 0 0 - - -;
#X obj 80 370 pack 0 100;
#X obj 80 393 line~;
#X obj 70 418 *~;
#X obj 80 348 dbtorms;
#X msg 336 10 0;
#X obj 320 259 *~;
#X obj 70 28 metro 2000;
#X floatatom 70 6 0 0 0 0 - - -;
#X msg 232 267 bang;
#X obj 303 324 env~ 32768;
#X floatatom 303 346 0 0 0 0 - - -;
#X text 178 246 1 sec;
#X text 155 228 dB after;
#X text 232 247 clear;
#X text 7 51 impulse;
#X text 374 9 tone;
#X text 496 33 beeps;
#X text 440 169 This is an experimental reverberator design composed
of a series of allpass filters with exponentially growing delay times.
Each allpass filter has a gain of 0.7. The reverb time is adjusted
by adjusting the input gains of the allpass filters. The last unit
is modified so that its first two "echos" mimic those of an allpass
but its loop gain depends on reverb time.;
#X text 442 301 Reverb time is controlled by specifying the dB gain
(100 normal) after one second \, so that 100 corresponds to infinite
reverb time \, 70 to two seconds \, 40 to one second \, and 0 to 0
;
#X text 683 501 modified for Pd version 0.30.;
#X msg 572 36 \; pd dsp 1;
#X text 439 477 The rev1~ module eats about 18% of my 300mHz P2 machine.
;
#X obj 167 291 rev1~;
#X text 440 383 The "clear" button impolitely clears out all the delay
lines \, You may immediately resume pumping the reverberator \, but
the input signal should be cleanly enveloped. The output \, too \,
must be enveloped and may not be opened until 5 msec after the "clear"
message is sent.;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 3 0 14 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 54 1;
#X connect 8 0 9 0;
#X connect 9 0 25 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 13 0 14 0;
#X connect 14 0 34 0;
#X connect 14 0 54 0;
#X connect 15 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 0 0;
#X connect 19 0 16 0;
#X connect 20 0 8 0;
#X connect 21 0 23 0;
#X connect 22 0 13 1;
#X connect 22 0 28 0;
#X connect 22 0 28 1;
#X connect 22 0 29 0;
#X connect 23 0 22 0;
#X connect 24 0 8 0;
#X connect 25 0 13 0;
#X connect 26 0 8 0;
#X connect 27 0 8 0;
#X connect 28 0 29 1;
#X connect 28 0 13 1;
#X connect 28 0 37 0;
#X connect 28 0 37 1;
#X connect 29 0 13 1;
#X connect 31 0 35 0;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 30 0;
#X connect 35 0 32 0;
#X connect 36 0 8 0;
#X connect 37 0 13 1;
#X connect 38 0 2 0;
#X connect 39 0 38 0;
#X connect 40 0 54 2;
#X connect 41 0 42 0;
#X connect 54 0 18 0;
#X connect 54 0 41 0;
