-
Notifications
You must be signed in to change notification settings - Fork 13
/
multimode.mmb.pd
254 lines (254 loc) · 5.6 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
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
#N canvas 575 94 827 682 10;
#X obj 101 85 inlet frequency;
#X obj 201 85 inlet Q/BW/slope;
#N canvas 0 22 486 394 pack.input 0;
#X obj 54 46 inlet;
#X obj 124 46 inlet;
#X obj 54 173 expr 6.28319*$f1/$f2;
#X obj 253 72 r \$0-sample.rate;
#X obj 54 330 outlet;
#X obj 54 139 clip 0 22050;
#X obj 123 113 / 2;
#X obj 82 263 max 5.96046e-08;
#X obj 54 299 pack f f;
#X connect 0 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 5 2;
#X connect 7 0 8 1;
#X connect 8 0 4 0;
#X restore 101 156 pd pack.input;
#X obj 101 127 f;
#N canvas 0 22 519 369 divide.by.a0 0;
#X msg 144 72 \$2 \$3 \$4 \$5 \$6 \$1;
#X obj 144 101 unpack f f f f f f;
#X obj 144 208 /;
#X obj 174 208 /;
#X obj 204 208 /;
#X obj 234 208 /;
#X obj 264 208 /;
#X obj 144 255 pack f f f f f;
#X obj 156 296 outlet;
#X obj 145 37 inlet;
#X obj 144 154 * -1;
#X obj 174 174 * -1;
#X connect 0 0 1 0;
#X connect 1 0 10 0;
#X connect 1 1 11 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 6 1;
#X connect 1 5 5 1;
#X connect 1 5 4 1;
#X connect 1 5 3 1;
#X connect 1 5 2 1;
#X connect 2 0 7 0;
#X connect 3 0 7 1;
#X connect 4 0 7 2;
#X connect 5 0 7 3;
#X connect 6 0 7 4;
#X connect 7 0 8 0;
#X connect 9 0 0 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X restore 101 487 pd divide.by.a0;
#X obj 101 527 outlet;
#N canvas 0 33 666 385 multimode 0;
#X msg 318 132 \$1;
#X obj 318 152 cos;
#X text 287 297 a0 a1 a2 b0 b1 b2;
#X obj 184 297 pack f f f f f f;
#X obj 204 240 * -2;
#X obj 99 129 expr sin($f1)/(2*$f2);
#X msg 99 99 \$1 \$2;
#X msg 126 193 1 \$1;
#X obj 126 219 -;
#X obj 99 250 + 1;
#N canvas 139 239 636 514 resonant 0;
#X obj 91 108 inlet;
#X obj 191 108 inlet;
#X msg 191 140 \$2;
#X obj 141 175 * 1;
#X obj 141 206 t f b f;
#X obj 180 229 * -1;
#X obj 141 314 * 0;
#X obj 280 314 * 0;
#X obj 136 423 outlet;
#X obj 286 423 outlet;
#X obj 461 108 inlet;
#X obj 446 259 unpack f f f;
#X obj 141 399 +;
#X obj 206 423 outlet;
#X obj 280 399 +;
#X obj 275 115 r \$0-mode;
#X obj 275 210 expr sin($f1);
#X obj 275 177 *;
#X obj 323 150 r \$0-pi;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 2 5 0;
#X connect 5 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 11 1 13 0;
#X connect 11 2 14 1;
#X connect 12 0 8 0;
#X connect 14 0 9 0;
#X connect 15 0 17 0;
#X connect 16 0 7 1;
#X connect 16 0 6 1;
#X connect 17 0 16 0;
#X connect 18 0 17 1;
#X restore 311 241 pd resonant;
#X obj 99 58 t l l l;
#N canvas 645 22 795 568 lowpass 0;
#X obj 169 89 inlet;
#X msg 169 123 1 \$1;
#X obj 169 150 -;
#X obj 140 211 / 2;
#X obj 140 342 t f f;
#X obj 150 420 pack f f f;
#X obj 169 174 t f f;
#X obj 152 451 outlet;
#X obj 140 315 * 1;
#X obj 214 317 * 1;
#X obj 321 116 r \$0-mode;
#X obj 443 129 r \$0-pi;
#X obj 321 200 expr cos($f1);
#X obj 321 175 *;
#X obj 321 138 clip 0 0.5;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 4 1 5 2;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X connect 6 1 9 0;
#X connect 8 0 4 0;
#X connect 9 0 5 1;
#X connect 10 0 14 0;
#X connect 11 0 13 1;
#X connect 12 0 9 1;
#X connect 12 0 8 1;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X restore 435 181 pd lowpass;
#X obj 99 164 t f f f;
#N canvas 521 22 747 637 highpass 0;
#X obj 144 92 inlet;
#X obj 324 92 inlet;
#X obj 137 207 / 2;
#X obj 148 140 + 1;
#X obj 190 205 * -1;
#X obj 148 169 t f f;
#X obj 190 328 * 0;
#X obj 137 328 * 0;
#X obj 137 369 t f f;
#X obj 326 381 unpack f f f;
#X obj 139 449 + 0;
#X obj 229 447 + 0;
#X obj 170 452 + 0;
#X obj 139 480 pack f f f;
#X obj 139 515 outlet;
#X obj 234 159 r \$0-mode;
#X obj 233 248 *;
#X obj 343 205 r \$0-pi;
#X obj 234 271 expr cos($f1);
#X obj 234 179 clip 0.5 1;
#X msg 234 201 1 \$1;
#X obj 234 224 -;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 2 0 7 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 2 0;
#X connect 5 1 4 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 8 1 11 0;
#X connect 9 0 10 1;
#X connect 9 1 12 1;
#X connect 9 2 11 1;
#X connect 10 0 13 0;
#X connect 11 0 13 2;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 16 1;
#X connect 18 0 6 1;
#X connect 18 0 7 1;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 16 0;
#X restore 372 213 pd highpass;
#X obj 366 173 t f f;
#X obj 99 24 inlet;
#X obj 184 327 outlet;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 0 15 0;
#X connect 3 0 17 0;
#X connect 4 0 3 1;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 3 2;
#X connect 9 0 3 0;
#X connect 10 0 3 3;
#X connect 10 1 3 4;
#X connect 10 2 3 5;
#X connect 11 0 6 0;
#X connect 11 1 0 0;
#X connect 11 2 10 1;
#X connect 12 0 14 1;
#X connect 13 0 9 0;
#X connect 13 1 7 0;
#X connect 13 2 10 0;
#X connect 14 0 10 2;
#X connect 15 0 14 0;
#X connect 15 1 12 0;
#X connect 16 0 11 0;
#X restore 101 216 pd multimode;
#X obj 313 85 inlet;
#X obj 427 79 loadbang;
#X obj 474 130 samplerate~;
#X obj 474 153 s \$0-sample.rate;
#X obj 328 318 s \$0-mode;
#X msg 389 163 0;
#X obj 315 158 clip 0 1;
#X msg 437 198 1;
#X obj 437 220 atan;
#X obj 437 242 * 4;
#X obj 426 103 t b b b;
#X obj 436 268 s \$0-pi;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X connect 7 0 13 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 12 0;
#X connect 17 1 14 0;
#X connect 17 2 9 0;