1
#N canvas 186 43 739 364 12;
2
#N canvas 213 187 495 352 input-sample 0;
3
#N canvas 0 0 450 300 graph1 0;
4
#X array array1 63024 float 0;
5
#X coords 0 1 63023 -1 400 300 1;
6
#X restore 54 22 graph;
7
#X text 145 376 INPUT SAMPLE;
8
#X restore 154 226 pd input-sample;
9
#N canvas 192 180 507 343 output-sample 0;
10
#N canvas 0 0 450 300 graph2 0;
11
#X array array2 504024 float 0;
12
#X coords 0 1 504023 -1 400 300 1;
13
#X restore 57 13 graph;
14
#X text 154 372 OUTPUT SAMPLE;
15
#X restore 155 249 pd output-sample;
16
#N canvas 116 150 735 421 guts 0;
18
#X obj 24 345 openpanel;
23
#X obj 461 283 r master-amp;
25
#X obj 707 106 savepanel;
26
#X obj 268 161 spigot;
29
#X obj 500 398 outlet;
30
#X obj 316 128 r frequency;
31
#X obj 256 312 tabwrite~ array2;
34
#X msg 139 128 \; pd dsp 1;
35
#X obj 446 347 hip~ 7;
36
#X obj 268 217 tabplay~ array1;
38
#X obj 442 145 tabplay~ array2;
39
#X msg 707 126 write \$1 array2;
40
#X obj 707 147 soundfiler;
41
#X obj 138 51 route read run start hear save;
42
#N canvas 0 0 632 395 audio-transformation 0;
44
#X obj 105 268 outlet~;
45
#X obj 101 148 ../../../extra/rev1~ xxx;
46
#X obj 339 79 r revgain;
47
#X obj 338 102 dbtorms;
48
#X obj 338 130 pack 0 50;
51
#X obj 181 51 r revtime;
53
#X obj 340 209 dbtorms;
54
#X obj 340 237 pack 0 50;
58
#X obj 342 186 r drygain;
75
#X restore 268 238 pd audio-transformation;
76
#X obj 500 377 env~ 16384;
77
#X obj 570 86 route normalized;
78
#X msg 570 179 write -normalize \$1 array2;
80
#X obj 570 159 savepanel;
81
#X obj 570 204 soundfiler;
82
#X obj 24 396 soundfiler;
83
#X msg 24 374 read -resize -maxsize 1e+06 \$1 array1;
84
#X msg 24 440 \; array2 resize \$1;
86
#X obj 24 419 + 441000;
100
#X connect 15 0 14 0;
101
#X connect 15 0 19 0;
102
#X connect 15 0 25 1;
106
#X connect 18 0 26 0;
107
#X connect 19 0 25 0;
108
#X connect 20 0 21 0;
109
#X connect 21 0 16 1;
110
#X connect 22 0 23 0;
112
#X connect 24 1 15 0;
113
#X connect 24 1 10 0;
114
#X connect 24 1 17 0;
115
#X connect 24 2 11 0;
116
#X connect 24 2 17 0;
117
#X connect 24 3 20 0;
118
#X connect 24 4 27 0;
119
#X connect 25 0 14 0;
120
#X connect 25 0 16 0;
121
#X connect 26 0 12 0;
122
#X connect 27 0 29 0;
124
#X connect 28 0 31 0;
125
#X connect 29 0 30 0;
126
#X connect 30 0 28 0;
127
#X connect 32 0 36 0;
128
#X connect 33 0 32 0;
130
#X connect 36 0 34 0;
131
#X restore 35 190 pd guts;
132
#X msg 35 85 run the transformation;
133
#X msg 35 127 hear the output buffer again;
134
#X text 35 45 click below to:;
135
#X msg 35 148 save the output buffer;
136
#X floatatom 445 285 0 0 120;
137
#N canvas 194 37 397 591 output 0;
145
#X obj 63 170 moses 1;
146
#X obj 129 209 t b f;
147
#X obj 92 423 outlet;
148
#X msg 92 399 set \$1;
149
#X obj 178 156 moses 1;
150
#X obj 215 425 dbtorms;
151
#X obj 215 450 pack 0 100;
152
#X obj 178 132 r master-lvl;
153
#X obj 92 366 r master-lvl;
154
#X obj 79 274 s master-lvl;
155
#X obj 215 474 s master-amp;
156
#X obj 199 233 loadbang;
157
#X msg 199 258 \; master-lvl 90;
169
#X connect 12 0 13 0;
170
#X connect 13 0 17 0;
172
#X connect 14 0 11 0;
173
#X connect 15 0 10 0;
174
#X connect 15 0 12 0;
175
#X connect 18 0 19 0;
176
#X restore 445 264 pd output;
178
#X obj 445 306 s master-lvl;
179
#X text 486 242 <-- mute button;
180
#X floatatom 35 211 0 0 0;
181
#X text 13 251 100 maximum;
182
#X text 13 233 output meter;
183
#X text 482 284 <--set me;
184
#X msg 35 64 read an input file;
185
#X text 445 326 LINE OUT LEVEL in dB (100 norm);
186
#X msg 35 169 save normalized to max amplitude;
187
#X msg 35 106 start transformation when I change f or q;
188
#X floatatom 445 82 0 0 120;
189
#X floatatom 445 40 0 0 100;
190
#X obj 445 61 s revtime;
191
#X obj 445 103 s revgain;
192
#X floatatom 446 184 0 0 120;
193
#X text 494 84 <-- reverb gain;
194
#X text 482 185 <-- dry gain;
195
#X obj 446 205 s drygain;
196
#X obj 446 142 loadbang;
198
#X text 486 39 <- reverb time 0-100;
199
#X text 23 15 Reverberator. Read in a sample first.;
210
#X connect 20 0 23 0;
211
#X connect 21 0 22 0;
212
#X connect 24 0 27 0;
213
#X connect 28 0 29 0;
214
#X connect 29 0 24 0;