aboutsummaryrefslogtreecommitdiff
path: root/desiredata/doc/7.stuff/soundfile-tools/5.reverb.pd
blob: 0b0cdb11fae7e3206a7ffbc4996b167937cdc6b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
#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 ../../../extra/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;