#N canvas 428 78 822 441 12;
#X declare -stdpath ./;
#N canvas 283 204 898 372 guts 0;
#X obj 396 225 +~;
#N canvas 393 122 417 410 audio-transformation 0;
#X obj 101 49 inlet~;
#X obj 105 328 outlet~;
#X obj 253 89 r revgain;
#X obj 252 112 dbtorms;
#X obj 252 140 pack 0 50;
#X obj 252 164 line~;
#X obj 103 204 *~;
#X obj 149 85 r revtime;
#X obj 67 233 *~;
#X obj 150 239 dbtorms;
#X obj 150 267 pack 0 50;
#X obj 150 291 line~;
#X obj 234 48 inlet;
#X obj 152 216 r drygain;
#X obj 101 148 rev1~, f 14;
#X connect 0 0 8 0;
#X connect 0 0 14 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 1 0;
#X connect 7 0 14 1;
#X connect 8 0 1 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 14 2;
#X connect 13 0 9 0;
#X connect 14 0 6 0;
#X restore 233 183 pd audio-transformation;
#X obj 396 318 outlet~;
#X obj 47 94 openpanel;
#X obj 47 179 soundfiler;
#X msg 47 248 resize \$1;
#X obj 47 275 send \$0-output;
#X msg 47 154 read -resize \$1 \$2;
#X obj 47 126 list append \$0-input;
#X obj 718 146 savepanel;
#X obj 718 219 soundfiler;
#X obj 521 133 savepanel;
#X obj 521 222 soundfiler;
#X obj 718 170 list append \$0-output;
#X msg 718 194 write \$1 \$1;
#X msg 521 197 write -normalize \$1 \$2;
#X obj 521 164 list append \$0-output;
#X obj 521 106 r \$0-save;
#X obj 718 120 r \$0-save-normalized;
#X obj 47 65 r \$0-read;
#X obj 221 229 tabwrite~ \$0-output, f 9;
#X obj 414 160 tabplay~ \$0-output, f 9;
#X obj 414 127 r \$0-hear;
#X obj 233 141 tabplay~ \$0-input, f 9;
#X msg 220 59 bang \; pd dsp 1;
#X obj 220 26 r \$0-run;
#X obj 47 215 + 44100;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 0 20 0;
#X connect 3 0 8 0;
#X connect 4 0 26 0;
#X connect 5 0 6 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 13 0;
#X connect 11 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 15 0 12 0;
#X connect 16 0 15 0;
#X connect 17 0 11 0;
#X connect 18 0 9 0;
#X connect 19 0 3 0;
#X connect 21 0 0 1;
#X connect 22 0 21 0;
#X connect 23 0 1 0;
#X connect 24 0 1 1;
#X connect 24 0 20 0;
#X connect 24 0 23 0;
#X connect 25 0 24 0;
#X connect 26 0 5 0;
#X restore 142 285 pd guts;
#X floatatom 572 37 6 0 100 0 - - - 0;
#X obj 572 68 s revtime;
#X obj 572 136 s revgain;
#X text 621 111 <-- reverb gain;
#X text 629 230 <-- dry gain;
#X obj 573 255 s drygain;
#X obj 573 177 loadbang;
#X msg 573 203 100;
#X text 624 36 <- reverb time 0-100;
#X text 107 42 Reverberator. Read in a sample first.;
#X obj 142 330 output~;
#X text 95 87 Click below to:;
#X obj 185 122 bng 18 250 50 0 \$0-read dummy Read -38 9 0 13 #dfdfdf #000000 #202020;
#X obj 185 146 bng 18 250 50 0 \$0-run dummy Run -31 9 0 13 #dfdfdf #000000 #000000;
#X obj 185 172 bng 18 250 50 0 \$0-hear dummy Hear -40 9 0 13 #dfdfdf #000000 #000000;
#X obj 185 196 bng 18 250 50 0 \$0-save dummy Save -40 9 0 13 #dfdfdf #000000 #000000;
#X obj 185 221 bng 18 250 50 0 \$0-save-normalized dummy Normalized -87 9 0 13 #dfdfdf #000000 #000000;
#X text 214 121 (read an input file);
#X text 214 145 (run the transformation);
#X text 214 171 (hear the output sample);
#X text 214 195 (save the output sample);
#X text 214 220 (save the output sample normalized to 1);
#X text 407 322 input sample;
#X text 408 345 output sample;
#X obj 293 346 table \$0-output;
#X obj 293 322 table \$0-input;
#X floatatom 572 109 6 0 100 0 - - - 0;
#X floatatom 573 229 6 0 100 0 - - - 0;
#X obj 645 360 declare -stdpath ./;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 7 0 8 0;
#X connect 8 0 28 0;
#X connect 27 0 3 0;
#X connect 28 0 6 0;
Codebase Browser
pure-data