#N canvas 598 23 648 487 12;
#X floatatom 142 255 5 0 100 0 - db - 0;
#X obj 29 93 metro 2000;
#X text 176 282 clear;
#X text 243 109 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 53;
#X text 243 215 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 53;
#X obj 126 307 rev1~;
#X text 243 280 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 53;
#X obj 29 121 bng 17 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000
#000000;
#X obj 29 71 tgl 17 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000
0 1;
#X obj 158 283 bng 17 250 50 0 empty empty empty 17 7 0 10 #dfdfdf
#000000 #000000;
#X text 99 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 48 120 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 30 350 output~;
#X obj 126 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 404 375 The [rev1~] module eats about 18% of my 300mHz P2 machine.
, f 29;
#X text 156 66 <-- tone burst durtions in ms;
#X connect 0 0 5 1;
#X connect 1 0 7 0;
#X connect 5 0 26 0;
#X connect 5 0 26 1;
#X connect 7 0 24 0;
#X connect 8 0 1 0;
#X connect 9 0 5 2;
#X connect 11 0 14 0;
#X connect 12 0 14 0;
#X connect 13 0 14 0;
#X connect 14 0 24 2;
#X connect 15 0 14 0;
#X connect 16 0 24 1;
#X connect 24 0 5 0;
#X connect 24 0 25 0;
#X connect 24 0 25 1;
