This repository has been archived by the owner on Oct 13, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 18
/
hv.reverb.pd
298 lines (298 loc) · 7.31 KB
/
hv.reverb.pd
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
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
#N canvas 117 105 874 615 10;
#X obj 20 385 *~;
#X obj 20 20 inlet~;
#X obj 35 273 r \$0-dry-gain;
#X obj 20 464 outlet~;
#X text 426 338 Original author: Miller Puckette;
#X obj 338 20 inlet;
#X obj 188 245 r \$0-lowcut;
#X obj 185 186 r \$0-highcut;
#X obj 338 105 hv.dispatch \$0 highcut 24000;
#X obj 338 127 hv.dispatch \$0 lowcut 5;
#N canvas 397 74 957 645 guts 0;
#X obj 161 497 +~;
#X obj 520 105 inlet;
#X obj 184 407 *~;
#X obj 486 412 *~;
#X obj 285 412 *~;
#X obj 387 412 *~;
#X obj 443 546 -~;
#X obj 364 545 -~;
#X obj 239 537 +~;
#X obj 161 534 +~;
#X obj 162 444 +~;
#X obj 262 440 +~;
#X obj 464 501 -~;
#X obj 387 499 +~;
#X obj 239 500 -~;
#X obj 452 105 inlet;
#X obj 609 429 line~;
#X obj 509 374 line~;
#X obj 16 121 delread~ \$0-del1 58.6435;
#X obj 94 143 delread~ \$0-del2 69.4325;
#X obj 176 165 delread~ \$0-del3 74.5234;
#X obj 258 189 delread~ \$0-del4 86.1244;
#X obj 530 500 *~;
#X obj 599 501 *~;
#X obj 161 641 delwrite~ \$0-del1 58.6435;
#X obj 240 617 delwrite~ \$0-del2 69.4325;
#X obj 365 595 delwrite~ \$0-del3 74.5234;
#X obj 444 573 delwrite~ \$0-del4 86.1244;
#X obj 609 357 dbtorms;
#X obj 609 403 pack 0 30;
#X obj 520 211 pack 0 50;
#X obj 9 390 inlet~;
#X obj 530 525 outlet~;
#X obj 599 525 outlet~;
#X obj 520 187 / 200;
#X obj 520 162 clip 0 100;
#X obj 52 236 lop~;
#X obj 625 143 f \$3;
#X obj 696 143 f \$4;
#X obj 367 106 loadbang;
#X obj 625 167 moses 1;
#X msg 631 193 3000;
#X obj 705 193 clip 0 100;
#N canvas 345 88 355 597 early-reflect 0;
#X obj 119 477 delread~ \$0-ref6 13.645;
#X obj 119 453 delwrite~ \$0-ref6 13.645;
#X obj 106 400 delread~ \$0-ref5 16.364;
#X obj 106 376 delwrite~ \$0-ref5 16.364;
#X obj 102 324 delread~ \$0-ref4 19.392;
#X obj 102 300 delwrite~ \$0-ref4 19.392;
#X obj 106 247 delread~ \$0-ref3 25.796;
#X obj 106 223 delwrite~ \$0-ref3 25.796;
#X obj 107 169 delread~ \$0-ref2 43.5337;
#X obj 107 145 delwrite~ \$0-ref2 43.5337;
#X obj 110 90 delread~ \$0-ref1 75.2546;
#X obj 84 119 -~;
#X obj 49 119 +~;
#X obj 50 195 +~;
#X obj 85 196 -~;
#X obj 84 275 -~;
#X obj 49 274 +~;
#X obj 82 349 -~;
#X obj 48 350 +~;
#X obj 83 428 -~;
#X obj 49 428 +~;
#X obj 65 7 inlet~;
#X obj 110 66 delwrite~ \$0-ref1 75.2546;
#X obj 49 508 outlet~;
#X obj 119 507 outlet~;
#X connect 0 0 24 0;
#X connect 2 0 20 1;
#X connect 2 0 19 1;
#X connect 4 0 18 1;
#X connect 4 0 17 1;
#X connect 6 0 16 1;
#X connect 6 0 15 1;
#X connect 8 0 13 1;
#X connect 8 0 14 1;
#X connect 10 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 9 0;
#X connect 12 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 13 0 15 0;
#X connect 14 0 7 0;
#X connect 15 0 5 0;
#X connect 16 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 18 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 23 0;
#X connect 21 0 12 0;
#X connect 21 0 11 0;
#X connect 21 0 22 0;
#X restore 9 416 pd early-reflect;
#X obj 618 216 f;
#X obj 618 105 inlet;
#X obj 696 109 inlet;
#X obj 705 216 f;
#X obj 705 239 * 0.01;
#X obj 705 263 pack 0 50;
#X obj 705 287 line~;
#X obj 29 269 -~;
#X obj 28 300 *~;
#X obj 16 331 +~;
#X obj 132 240 lop~;
#X obj 106 274 -~;
#X obj 105 309 *~;
#X obj 95 333 +~;
#X obj 214 245 lop~;
#X obj 188 273 -~;
#X obj 187 314 *~;
#X obj 176 339 +~;
#X obj 308 249 lop~;
#X obj 281 274 -~;
#X obj 281 318 *~;
#X obj 258 342 +~;
#X obj 609 379 * 0.125;
#X text 403 10 control inlets:;
#X obj 452 137 f 80;
#X obj 520 138 f 80;
#X text 16 29 https://github.com/rjdj/rjlib/blob/master/rj/e_reverb.pd
;
#X text 400 45 2: liveness \, 0-100 \, usually between 85 and 100 (feedback)
;
#X text 399 79 4: high frequency damping \, 0-100 (damp);
#X text 17 9 Abstraction found in rjlib's e_reverb.pd;
#X text 400 62 3: crossover frequency in Hz. (3000 default) (crossfreq)
;
#X text 400 29 1: output level \, dB \, 0-100 (wet-gain);
#X connect 0 0 9 0;
#X connect 0 0 7 0;
#X connect 1 0 69 0;
#X connect 2 0 10 1;
#X connect 3 0 12 1;
#X connect 3 0 13 1;
#X connect 4 0 11 1;
#X connect 5 0 13 0;
#X connect 5 0 12 0;
#X connect 6 0 27 0;
#X connect 7 0 26 0;
#X connect 8 0 25 0;
#X connect 9 0 24 0;
#X connect 10 0 14 0;
#X connect 10 0 0 0;
#X connect 10 0 22 0;
#X connect 11 0 0 1;
#X connect 11 0 14 1;
#X connect 11 0 23 0;
#X connect 12 0 8 1;
#X connect 12 0 6 1;
#X connect 13 0 9 1;
#X connect 13 0 7 1;
#X connect 14 0 8 0;
#X connect 14 0 6 0;
#X connect 15 0 68 0;
#X connect 16 0 22 1;
#X connect 16 0 23 1;
#X connect 17 0 4 1;
#X connect 17 0 2 1;
#X connect 17 0 5 1;
#X connect 17 0 3 1;
#X connect 18 0 36 0;
#X connect 18 0 51 1;
#X connect 18 0 53 0;
#X connect 19 0 54 0;
#X connect 19 0 55 1;
#X connect 19 0 57 0;
#X connect 20 0 61 0;
#X connect 20 0 58 0;
#X connect 20 0 59 1;
#X connect 21 0 65 0;
#X connect 21 0 63 1;
#X connect 21 0 62 0;
#X connect 22 0 32 0;
#X connect 23 0 33 0;
#X connect 28 0 66 0;
#X connect 29 0 16 0;
#X connect 30 0 17 0;
#X connect 31 0 43 0;
#X connect 34 0 30 0;
#X connect 35 0 34 0;
#X connect 36 0 51 0;
#X connect 37 0 40 0;
#X connect 38 0 42 0;
#X connect 39 0 37 0;
#X connect 39 0 38 0;
#X connect 39 0 68 0;
#X connect 39 0 69 0;
#X connect 40 0 41 0;
#X connect 40 1 44 0;
#X connect 41 0 44 0;
#X connect 42 0 47 0;
#X connect 43 0 10 0;
#X connect 43 1 11 0;
#X connect 44 0 36 1;
#X connect 44 0 54 1;
#X connect 44 0 58 1;
#X connect 44 0 62 1;
#X connect 45 0 44 0;
#X connect 46 0 38 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 50 0 52 1;
#X connect 50 0 56 1;
#X connect 50 0 60 1;
#X connect 50 0 64 1;
#X connect 51 0 52 0;
#X connect 52 0 53 1;
#X connect 53 0 2 0;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 56 0 57 1;
#X connect 57 0 4 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 61 1;
#X connect 61 0 5 0;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 64 0 65 1;
#X connect 65 0 3 0;
#X connect 66 0 29 0;
#X connect 68 0 28 0;
#X connect 69 0 35 0;
#X restore 136 418 pd guts;
#X obj 192 383 r \$0-damp;
#X obj 110 464 outlet~;
#X obj 164 341 r \$0-feedback;
#X obj 338 171 hv.dispatch \$0 damp 60;
#X text 426 272 Taken from e_reverb.pd in rjlib. Itself expanding from
recirculating reverberators found in G08.Reverb.pd in help browser.
;
#X text 423 322 http://msp.ucsd.edu/techniques/v0.11/book-html/node124.html
;
#X obj 35 361 line~;
#X obj 35 295 dbtorms;
#X obj 35 339 pack 0 30;
#X obj 35 317 * 0.125;
#X obj 150 318 r \$0-wet-gain;
#X obj 338 83 hv.dispatch \$0 wet-gain 80;
#X obj 338 62 hv.dispatch \$0 dry-gain 20;
#X obj 338 149 hv.dispatch \$0 crossfreq 3000;
#X obj 178 362 r \$0-crossfreq;
#X obj 338 41 hv.dispatch \$0 feedback 90;
#X obj 136 80 delwrite~ \$0-predelay 3000;
#X obj 136 136 sig~;
#X obj 136 164 vd~ \$0-predelay;
#X obj 136 112 r \$0-predelay_ms;
#X obj 338 193 hv.dispatch \$0 predelay_ms 0;
#X obj 136 219 hv.filter lowpass;
#X obj 136 276 hv.filter highpass;
#X connect 0 0 3 0;
#X connect 0 0 12 0;
#X connect 1 0 27 0;
#X connect 1 0 0 0;
#X connect 2 0 18 0;
#X connect 5 0 26 0;
#X connect 6 0 33 1;
#X connect 7 0 32 1;
#X connect 8 0 9 0;
#X connect 9 0 24 0;
#X connect 10 0 3 0;
#X connect 10 1 12 0;
#X connect 11 0 10 4;
#X connect 13 0 10 2;
#X connect 14 0 31 0;
#X connect 17 0 0 1;
#X connect 18 0 20 0;
#X connect 19 0 17 0;
#X connect 20 0 19 0;
#X connect 21 0 10 1;
#X connect 22 0 8 0;
#X connect 23 0 22 0;
#X connect 24 0 14 0;
#X connect 25 0 10 3;
#X connect 26 0 23 0;
#X connect 28 0 29 0;
#X connect 29 0 32 0;
#X connect 30 0 28 0;
#X connect 32 0 33 0;
#X connect 33 0 10 0;