-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathfx-infreverb.pd
191 lines (191 loc) · 4.93 KB
/
fx-infreverb.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
#N canvas 196 311 757 335 10;
#N canvas 0 197 958 610 reverb 0;
#X obj 13 19 inlet~;
#X obj 13 43 reverb-echo echo-del1 5.43216;
#X obj 277 215 +~;
#X obj 319 215 +~;
#X obj 67 276 outlet~;
#X obj 137 276 outlet~;
#X obj 238 334 +~;
#X obj 347 335 +~;
#X obj 280 334 -~;
#X obj 387 334 -~;
#X obj 237 390 +~;
#X obj 281 391 +~;
#X obj 325 392 -~;
#X obj 364 392 -~;
#X obj 324 474 *~ 0;
#X obj 282 473 *~ 0;
#X obj 237 472 *~ 0;
#X obj 365 475 *~ 0;
#X obj 632 365 inlet;
#X obj 632 437 / 200;
#X obj 632 389 min 100;
#X obj 632 412 max 0;
#X obj 238 583 delwrite~ loop-del1 60;
#X obj 283 561 delwrite~ loop-del2 71.9345;
#X obj 364 515 delwrite~ loop-del4 95.945;
#X obj 298 154 delread~ loop-del1 60;
#X obj 340 179 delread~ loop-del2 71.9345;
#X obj 408 233 delread~ loop-del4 95.945;
#X obj 386 208 delread~ loop-del3 86.7545;
#X obj 325 538 delwrite~ loop-del3 86.7545;
#X obj 13 67 reverb-echo echo-del2 8.45346;
#X obj 13 91 reverb-echo echo-del3 13.4367;
#X obj 13 115 reverb-echo echo-del4 21.5463;
#X obj 13 139 reverb-echo echo-del5 34.3876;
#X obj 13 163 reverb-echo echo-del6 55.5437;
#X text 286 42 "early echo" generators \, which also increase echo
density. Open one to see what they do.;
#X text 300 115 Get the outputs of the recirculating delays. Add the
inputs to two of them.;
#X text 420 313 Do a power-conserving mix of them in pairs. First combine
(1 \, 2) and (3 \, 4)...;
#X text 402 385 ...then (1 \, 3) and (2 \, 4);
#X text 446 469 The two mixing stages have a combined gain of 2 \,
so the recirculation gain is limited to 0.5.;
#X text 586 542 Put the signals back into the;
#X text 584 557 recirculating delays.;
#X text 29 296 Tap outputs from here.;
#X text 708 381 0 to 100 to control reverb;
#X text 719 396 time.;
#X text 691 364 feedback gain on a scale of;
#X connect 0 0 1 0;
#X connect 1 0 30 0;
#X connect 1 1 30 1;
#X connect 2 0 4 0;
#X connect 2 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 3 0 6 1;
#X connect 3 0 8 1;
#X connect 6 0 10 0;
#X connect 6 0 12 0;
#X connect 7 0 12 1;
#X connect 7 0 10 1;
#X connect 8 0 11 0;
#X connect 8 0 13 0;
#X connect 9 0 11 1;
#X connect 9 0 13 1;
#X connect 10 0 16 0;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 17 0;
#X connect 14 0 29 0;
#X connect 15 0 23 0;
#X connect 16 0 22 0;
#X connect 17 0 24 0;
#X connect 18 0 20 0;
#X connect 19 0 17 1;
#X connect 19 0 16 1;
#X connect 19 0 15 1;
#X connect 19 0 14 1;
#X connect 20 0 21 0;
#X connect 21 0 19 0;
#X connect 25 0 2 1;
#X connect 26 0 3 1;
#X connect 27 0 7 1;
#X connect 27 0 9 1;
#X connect 28 0 7 0;
#X connect 28 0 9 0;
#X connect 30 0 31 0;
#X connect 30 1 31 1;
#X connect 31 0 32 0;
#X connect 31 1 32 1;
#X connect 32 0 33 0;
#X connect 32 1 33 1;
#X connect 33 0 34 0;
#X connect 33 1 34 1;
#X connect 34 0 2 0;
#X connect 34 1 3 0;
#X restore 36 85 pd reverb;
#X floatatom 115 72 0 0 100 0 - - -;
#X obj 3 5 inlet~;
#X obj 256 56 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1400 1;
#X obj 318 55 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 12600 1;
#X obj 255 195 / 127;
#X obj 317 196 / 127;
#X text 317 6 feedback;
#X obj 409 8 notein 1;
#X obj 409 28 pack 0 0;
#X obj 436 75 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 436 94 s \$0-record;
#X obj 479 28 loadbang;
#X msg 479 48 0;
#X obj 35 108 *~;
#X obj 119 46 r \$0-feedback;
#X obj 147 108 r \$0-vol;
#X obj 255 217 s \$0-vol;
#X obj 356 218 s \$0-feedback;
#X obj 409 75 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 409 116 s \$0-bypass;
#X obj 35 62 *~;
#X obj 23 237 outlet~;
#X obj 63 20 r \$0-bypass;
#X text 6 262 just uses MSP G08.reverb;
#X text 5 283 set knob to max for infinimode;
#X obj 256 31 ctlin 14;
#X obj 318 30 ctlin 5;
#X obj 409 48 route 4 13;
#X obj 317 218 * 100;
#X msg 63 41 \$1 15;
#X obj 63 62 line~;
#X obj 4 142 *~;
#X obj 61 136 line~;
#X obj 68 108 line~;
#X msg 145 132 \$1 1;
#X obj 191 130 + -1;
#X obj 191 152 abs;
#X msg 188 176 \$1 1;
#X obj 569 65 loadbang;
#X msg 569 87 0;
#X obj 569 142 s \$0-bypass;
#X obj 569 109 s \$0-vol;
#X msg 639 90 80;
#X obj 639 112 s \$0-feedback;
#X text 253 6 wet/dry;
#X text 410 138 bypass input;
#X connect 0 0 14 0;
#X connect 1 0 0 1;
#X connect 2 0 32 0;
#X connect 2 0 21 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 17 0;
#X connect 6 0 29 0;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 9 0 28 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X connect 14 0 22 0;
#X connect 15 0 1 0;
#X connect 16 0 35 0;
#X connect 16 0 36 0;
#X connect 19 0 20 0;
#X connect 21 0 0 0;
#X connect 23 0 30 0;
#X connect 26 0 3 0;
#X connect 27 0 4 0;
#X connect 28 0 19 0;
#X connect 28 1 10 0;
#X connect 29 0 18 0;
#X connect 30 0 31 0;
#X connect 31 0 21 1;
#X connect 32 0 22 0;
#X connect 33 0 32 1;
#X connect 34 0 14 1;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 33 0;
#X connect 39 0 40 0;
#X connect 39 0 43 0;
#X connect 40 0 41 0;
#X connect 40 0 42 0;
#X connect 43 0 44 0;