-
Notifications
You must be signed in to change notification settings - Fork 13
/
multimode.mmb~.pd
213 lines (213 loc) · 5.14 KB
/
multimode.mmb~.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
#N canvas 359 22 835 622 10;
#X obj 116 91 inlet~ frequency;
#X obj 220 91 inlet~ Q/BW/slope;
#N canvas 743 89 561 411 pack.input 0;
#X obj 88 67 inlet~;
#X obj 178 67 inlet~;
#X obj 178 221 send~ \$0-q;
#X obj 88 194 send~ \$0-frequency;
#X obj 151 306 outlet~;
#X text 196 278 a little order forcing for patching cleanliness;
#X obj 214 104 r \$0-sample.rate;
#X obj 88 134 expr~ 6.28319*$v1/$f2;
#X text 226 135 radian frequency;
#X obj 178 169 max~ 5.96046e-08;
#X obj 398 67 inlet~;
#X obj 398 92 clip~ 0 1;
#X obj 398 146 send~ \$0-mode;
#X connect 0 0 7 0;
#X connect 1 0 9 0;
#X connect 6 0 7 1;
#X connect 7 0 3 0;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X restore 121 153 pd pack.input;
#N canvas 557 88 883 540 lowpass 0;
#X obj 88 68 inlet~;
#X obj 88 384 outlet~;
#X obj 90 258 /~ 2;
#X obj 142 159 sig~ 1;
#X obj 142 185 -~;
#X obj 90 287 throw~ \$0-b0;
#X obj 175 287 throw~ \$0-b1;
#X obj 113 313 throw~ \$0-b2;
#X obj 157 119 receive~ \$0-cos.omega;
#X obj 344 97 receive~ \$0-mode;
#X obj 90 235 *~;
#X obj 175 237 *~;
#X obj 344 185 cos~;
#X obj 344 128 clip~ 0 0.5;
#X obj 344 154 *~ 0.5;
#X connect 2 0 5 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 4 0 11 0;
#X connect 8 0 4 1;
#X connect 9 0 13 0;
#X connect 10 0 2 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 12 0 10 1;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X restore 121 216 pd lowpass;
#N canvas 502 62 883 540 highpass 0;
#X obj 88 68 inlet~;
#X obj 88 384 outlet~;
#X obj 90 268 /~ 2;
#X obj 90 297 throw~ \$0-b0;
#X obj 175 297 throw~ \$0-b1;
#X obj 113 323 throw~ \$0-b2;
#X obj 142 184 +~ 1;
#X obj 175 266 *~ -1;
#X obj 359 97 receive~ \$0-mode;
#X obj 157 119 receive~ \$0-cos.omega;
#X obj 90 242 *~;
#X obj 175 242 *~;
#X obj 359 129 clip~ 0.5 1;
#X obj 340 160 -~;
#X obj 311 128 sig~ 1;
#X obj 340 204 cos~;
#X obj 340 181 *~ 0.5;
#X connect 2 0 3 0;
#X connect 2 0 5 0;
#X connect 6 0 10 0;
#X connect 6 0 11 0;
#X connect 7 0 4 0;
#X connect 8 0 12 0;
#X connect 9 0 6 0;
#X connect 10 0 2 0;
#X connect 11 0 7 0;
#X connect 12 0 13 1;
#X connect 13 0 16 0;
#X connect 14 0 13 0;
#X connect 15 0 11 1;
#X connect 15 0 10 1;
#X connect 16 0 15 0;
#X restore 121 246 pd highpass;
#N canvas 217 175 883 540 resonant 0;
#X obj 88 68 inlet~;
#X obj 88 384 outlet~;
#X obj 231 44 receive~ \$0-frequency;
#X obj 366 82 receive~ \$0-q;
#X obj 239 287 throw~ \$0-b0;
#X obj 324 287 throw~ \$0-b1;
#X obj 262 343 throw~ \$0-b2;
#X obj 231 94 expr~ sin($v1);
#X obj 262 318 *~ -1;
#X obj 324 256 sig~ 0;
#X text 373 381 constant skirt gain \, peak gain = q;
#X obj 237 174 expr~ $v1/(2*$v2);
#X obj 239 208 *~;
#X obj 239 246 *~;
#X obj 417 114 receive~ \$0-mode;
#X obj 416 147 *~ 0.5;
#X obj 416 167 -~ 0.25;
#X obj 416 189 cos~;
#X connect 2 0 7 0;
#X connect 3 0 11 1;
#X connect 3 0 12 1;
#X connect 7 0 11 0;
#X connect 8 0 6 0;
#X connect 9 0 5 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 13 0 8 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 13 1;
#X restore 121 276 pd resonant;
#N canvas 0 22 749 338 unpack.coeff 0;
#X obj 58 58 inlet~;
#X obj 92 231 /~;
#X obj 522 102 catch~ \$0-a0;
#X obj 92 279 outlet~;
#X obj 172 231 /~;
#X obj 172 279 outlet~;
#X obj 252 102 catch~ \$0-b0;
#X obj 252 231 /~;
#X obj 252 279 outlet~;
#X obj 332 231 /~;
#X obj 332 279 outlet~;
#X obj 412 231 /~;
#X obj 412 279 outlet~;
#X obj 92 102 catch~ \$0-a1;
#X obj 172 102 catch~ \$0-a2;
#X obj 332 102 catch~ \$0-b1;
#X obj 412 102 catch~ \$0-b2;
#X obj 92 165 *~ -1;
#X obj 172 166 *~ -1;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 2 0 4 1;
#X connect 2 0 7 1;
#X connect 2 0 9 1;
#X connect 2 0 11 1;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 13 0 17 0;
#X connect 14 0 18 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 17 0 1 0;
#X connect 18 0 4 0;
#X restore 121 483 pd unpack.coeff;
#X obj 121 523 outlet~ a1;
#X obj 191 523 outlet~ a2;
#X obj 261 523 outlet~ b0;
#X obj 331 523 outlet~ b1;
#X obj 401 523 outlet~ b2;
#N canvas 557 88 883 540 poles 0;
#X obj 88 68 inlet~;
#X obj 88 384 outlet~;
#X obj 157 69 receive~ \$0-frequency;
#X obj 528 74 receive~ \$0-q;
#X obj 399 166 expr~ sin($v1)/(2*$v2);
#X text 538 166 alpha;
#X obj 399 224 +~ 1;
#X obj 479 230 sig~ 1;
#X obj 479 256 -~;
#X obj 324 255 *~ -2;
#X obj 157 119 expr~ cos($v1);
#X obj 324 278 throw~ \$0-a1;
#X obj 399 250 throw~ \$0-a0;
#X obj 479 283 throw~ \$0-a2;
#X obj 142 215 send~ \$0-cos.omega;
#X connect 2 0 4 0;
#X connect 2 0 10 0;
#X connect 3 0 4 1;
#X connect 4 0 6 0;
#X connect 4 0 8 1;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 10 0 14 0;
#X restore 121 176 pd poles;
#X obj 340 91 inlet~ mode;
#X obj 470 196 loadbang;
#X obj 470 224 samplerate~;
#X obj 470 247 s \$0-sample.rate;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 12 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 6 2 9 0;
#X connect 6 3 10 0;
#X connect 6 4 11 0;
#X connect 12 0 3 0;
#X connect 13 0 2 2;
#X connect 14 0 15 0;
#X connect 15 0 16 0;