#N canvas 186 43 739 364 12;
#N canvas 213 187 495 352 input-sample 0;
#N canvas 0 0 450 300 graph1 0;
#X array array1 63024 float 0;
#X coords 0 1 63023 -1 400 300 1;
#X restore 54 22 graph;
#X text 145 376 INPUT SAMPLE;
#X restore 154 226 pd input-sample;
#N canvas 192 180 507 343 output-sample 0;
#N canvas 0 0 450 300 graph2 0;
#X array array2 504024 float 0;
#X coords 0 1 504023 -1 400 300 1;
#X restore 57 13 graph;
#X text 154 372 OUTPUT SAMPLE;
#X restore 155 249 pd output-sample;
#N canvas 116 150 735 421 guts 0;
#X msg 24 128 bang;
#X obj 24 345 openpanel;
#X obj 138 30 inlet;
#X obj 446 368 dac~;
#X obj 446 327 *~;
#X obj 461 304 line~;
#X obj 461 283 r master-amp;
#X msg 707 85 bang;
#X obj 707 106 savepanel;
#X obj 268 161 spigot;
#X msg 253 128 0;
#X msg 284 128 1;
#X obj 500 398 outlet;
#X obj 316 128 r frequency;
#X obj 256 312 tabwrite~ array2;
#X msg 256 189 bang;
#X obj 427 276 +~;
#X msg 139 128 \; pd dsp 1;
#X obj 446 347 hip~ 7;
#X obj 268 217 tabplay~ array1;
#X msg 442 124 bang;
#X obj 442 145 tabplay~ array2;
#X msg 707 126 write \$1 array2;
#X obj 707 147 soundfiler;
#X obj 138 51 route read run start hear save;
#N canvas 0 0 632 395 audio-transformation 0;
#X obj 101 49 inlet~;
#X obj 105 268 outlet~;
#X obj 101 148 rev1~ xxx;
#X obj 339 79 r revgain;
#X obj 338 102 dbtorms;
#X obj 338 130 pack 0 50;
#X obj 338 154 line~;
#X obj 103 204 *~;
#X obj 181 51 r revtime;
#X obj 213 236 *~;
#X obj 340 209 dbtorms;
#X obj 340 237 pack 0 50;
#X obj 340 261 line~;
#X obj 294 37 inlet;
#X msg 293 61 bang;
#X obj 342 186 r drygain;
#X connect 0 0 2 0;
#X connect 0 0 9 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 1 0;
#X connect 8 0 2 1;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 9 1;
#X connect 13 0 14 0;
#X connect 14 0 2 2;
#X connect 15 0 10 0;
#X restore 268 238 pd audio-transformation;
#X obj 500 377 env~ 16384;
#X obj 570 86 route normalized;
#X msg 570 179 write -normalize \$1 array2;
#X msg 570 138 bang;
#X obj 570 159 savepanel;
#X obj 570 204 soundfiler;
#X obj 24 396 soundfiler;
#X msg 24 374 read -resize -maxsize 1e+06 \$1 array1;
#X msg 24 440 \; array2 resize \$1;
#X obj 402 129 r q;
#X obj 24 419 + 441000;
#X connect 0 0 1 0;
#X connect 1 0 33 0;
#X connect 2 0 24 0;
#X connect 4 0 18 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 22 0;
#X connect 9 0 10 0;
#X connect 9 0 15 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 13 0 9 0;
#X connect 15 0 14 0;
#X connect 15 0 19 0;
#X connect 15 0 25 1;
#X connect 16 0 4 0;
#X connect 18 0 3 0;
#X connect 18 0 3 1;
#X connect 18 0 26 0;
#X connect 19 0 25 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 23 0;
#X connect 24 0 0 0;
#X connect 24 1 15 0;
#X connect 24 1 10 0;
#X connect 24 1 17 0;
#X connect 24 2 11 0;
#X connect 24 2 17 0;
#X connect 24 3 20 0;
#X connect 24 4 27 0;
#X connect 25 0 14 0;
#X connect 25 0 16 0;
#X connect 26 0 12 0;
#X connect 27 0 29 0;
#X connect 27 1 7 0;
#X connect 28 0 31 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 32 0 36 0;
#X connect 33 0 32 0;
#X connect 35 0 9 0;
#X connect 36 0 34 0;
#X restore 35 190 pd guts;
#X msg 35 85 run the transformation;
#X msg 35 127 hear the output buffer again;
#X text 35 45 click below to:;
#X msg 35 148 save the output buffer;
#X floatatom 445 285 0 0 120;
#N canvas 194 37 397 591 output 0;
#X obj 63 194 t b;
#X obj 63 146 f;
#X obj 63 98 inlet;
#X text 68 77 mute;
#X obj 63 218 f;
#X msg 129 233 0;
#X msg 63 122 bang;
#X obj 63 170 moses 1;
#X obj 129 209 t b f;
#X obj 92 423 outlet;
#X msg 92 399 set \$1;
#X obj 178 156 moses 1;
#X obj 215 425 dbtorms;
#X obj 215 450 pack 0 100;
#X obj 178 132 r master-lvl;
#X obj 92 366 r master-lvl;
#X obj 79 274 s master-lvl;
#X obj 215 474 s master-amp;
#X obj 199 233 loadbang;
#X msg 199 258 \; master-lvl 90;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 16 0;
#X connect 5 0 16 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 10 0 9 0;
#X connect 11 1 4 1;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 14 0 1 1;
#X connect 14 0 11 0;
#X connect 15 0 10 0;
#X connect 15 0 12 0;
#X connect 18 0 19 0;
#X restore 445 264 pd output;
#X msg 445 243 mute;
#X obj 445 306 s master-lvl;
#X text 486 242 <-- mute button;
#X floatatom 35 211 0 0 0;
#X text 13 251 100 maximum;
#X text 13 233 output meter;
#X text 482 284 <--set me;
#X msg 35 64 read an input file;
#X text 445 326 LINE OUT LEVEL in dB (100 norm);
#X msg 35 169 save normalized to max amplitude;
#X msg 35 106 start transformation when I change f or q;
#X floatatom 445 82 0 0 120;
#X floatatom 445 40 0 0 100;
#X obj 445 61 s revtime;
#X obj 445 103 s revgain;
#X floatatom 446 184 0 0 120;
#X text 494 84 <-- reverb gain;
#X text 482 185 <-- dry gain;
#X obj 446 205 s drygain;
#X obj 446 142 loadbang;
#X msg 446 163 100;
#X text 486 39 <- reverb time 0-100;
#X text 23 15 Reverberator. Read in a sample first.;
#X connect 2 0 12 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 16 0 2 0;
#X connect 18 0 2 0;
#X connect 19 0 2 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 24 0 27 0;
#X connect 28 0 29 0;
#X connect 29 0 24 0;
