#N canvas 350 30 648 487 12;
#X floatatom 172 255 5 0 100 0 - db - 0;
#X obj 29 93 metro 2000;
#X text 210 283 clear;
#X text 285 63 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., f 47;
#X text 285 201 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, f 47;
#X obj 156 311 rev1~;
#X text 285 266 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., f 47;
#X obj 29 68 tgl 19 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000 0 1;
#X obj 188 283 bng 19 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000;
#X text 129 236 dB after 1 sec, f 8;
#X msg 117 66 20;
#X msg 126 89 100;
#X msg 139 136 1000;
#X floatatom 117 167 5 0 0 0 - - - 0;
#X msg 133 113 500;
#X floatatom 73 167 5 0 0 0 - freq - 0;
#X text 69 146 pitch;
#X obj 30 13 rev1~;
#X text 82 12 - a simple 1-in \, 1-out reverberator;
#X text 30 447 see also:;
#X obj 110 448 rev2~, f 7;
#X obj 176 448 rev3~, f 8;
#X text 50 121 impulse;
#N canvas 806 163 502 434 test-input 0;
#X obj 248 191 line~;
#X obj 248 214 cos~;
#X obj 259 96 loadbang;
#X msg 259 121 -0.25;
#X obj 248 237 *~ 0.1;
#X msg 247 69 -0.25 \, 0.25 \$1;
#X obj 247 31 inlet;
#X obj 191 69 mtof;
#X obj 160 134 *~;
#X obj 209 199 *~;
#X obj 142 221 *~;
#X obj 190 321 *~;
#X obj 191 31 inlet;
#X obj 190 395 outlet~;
#X obj 191 96 osc~;
#X obj 190 359 hip~ 5;
#X obj 48 31 inlet;
#X obj 48 156 samplerate~;
#X obj 48 207 /;
#X msg 48 181 1000 \$1;
#X obj 48 259 vline~;
#X msg 48 233 1 \, 0 0 \$1;
#X obj 357 155 loadbang;
#X msg 357 181 \; freq 69 \; db 80;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 11 1;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 14 0;
#X connect 8 0 10 0;
#X connect 8 0 10 1;
#X connect 8 0 11 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 15 0;
#X connect 12 0 7 0;
#X connect 14 0 8 0;
#X connect 14 0 8 1;
#X connect 14 0 11 0;
#X connect 14 0 9 1;
#X connect 15 0 13 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 21 0;
#X connect 19 0 18 0;
#X connect 20 0 13 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X restore 29 204 pd test-input;
#X obj 29 350 output~;
#X obj 156 350 output~;
#X obj 6 44 cnv 1 630 1 empty empty empty 8 12 0 13 #000000 #000000 0;
#X text 552 12 <= click;
#N canvas 755 157 577 298 reference 0;
#X obj 9 52 cnv 5 550 5 empty empty INLETS: 8 18 0 13 #202020 #000000 0;
#X obj 8 85 cnv 1 550 1 empty empty 1st: 8 12 0 13 #000000 #000000 0;
#X obj 9 200 cnv 2 550 2 empty empty OUTLET: 8 12 0 13 #202020 #000000 0;
#X obj 9 237 cnv 2 550 2 empty empty ARGUMENTS: 8 12 0 13 #202020 #000000 0;
#X obj 8 269 cnv 5 550 5 empty empty empty 8 18 0 13 #202020 #000000 0;
#X obj 8 120 cnv 1 550 1 empty empty 2nd: 8 12 0 13 #000000 #000000 0;
#X obj 8 160 cnv 1 550 1 empty empty 3rd: 8 12 0 13 #000000 #000000 0;
#X text 199 246 NONE;
#X obj 22 16 rev1~;
#X text 74 15 - a simple 1-in \, 1-out reverberator;
#X text 131 91 signal - reverb input., f 56;
#X text 131 210 signal - reverb output.;
#X text 138 131 float - dB after 1 second., f 55;
#X text 145 169 bang - clear the reverb., f 55;
#X restore 458 13 pd reference;
#X obj 6 429 cnv 1 630 1 empty empty empty 8 12 0 13 #000000 #000000 0;
#X text 417 447 updated for Pd version 0.30.;
#X text 156 66 <-- tone burst durtions in ms, f 15;
#X obj 29 121 bng 19 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000;
#X text 313 383 Historical note: the [rev1~] module used to eat about 18% of Miller's 300mHz P2 machine., f 44;
#X connect 0 0 5 1;
#X connect 1 0 32 0;
#X connect 5 0 25 0;
#X connect 7 0 1 0;
#X connect 8 0 5 2;
#X connect 10 0 13 0;
#X connect 11 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 23 2;
#X connect 14 0 13 0;
#X connect 15 0 23 1;
#X connect 23 0 5 0;
#X connect 23 0 24 0;
#X connect 32 0 23 0;
