blob: ae4dc9181587fe0dec9d1ea08a2f5f638325b127 (
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
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
|
#N canvas 104 88 455 402 10;
#N canvas 444 467 701 290 bell1 0;
#X obj 257 206 clip~ -0.9 0.9;
#N canvas 0 0 350 192 envelopes 0;
#X obj 238 82 / 9;
#X obj 187 82 / 7;
#X obj 71 85 * 0.9;
#X msg 120 58 600;
#X obj 135 83 / 2;
#X obj 12 85 * 1.2;
#X obj 120 33 inlet;
#X obj 12 136 outlet;
#X obj 71 133 outlet;
#X obj 135 132 outlet;
#X obj 187 132 outlet;
#X obj 238 132 outlet;
#X text 98 10 envelope ratios;
#X connect 0 0 11 0;
#X connect 1 0 10 0;
#X connect 2 0 8 0;
#X connect 3 0 0 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X restore 251 50 pd envelopes;
#N canvas 0 0 406 316 part_fund+sub 0;
#X obj 156 54 osc~;
#X obj 71 78 osc~;
#X text 6 112 suboctave hum;
#X text 129 105 fundamental;
#X obj 71 52 * 0.5001;
#X obj 197 258 *~;
#X obj 214 179 line~;
#X obj 71 172 *~ 0.1;
#X msg 216 136 1 \, 0 \$1;
#X obj 157 221 *~ 0.02;
#X obj 259 12 inlet;
#X obj 198 289 outlet~;
#X obj 93 10 r \$0-fundamental1;
#X connect 0 0 9 0;
#X connect 1 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 11 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 6 0;
#X connect 9 0 5 0;
#X connect 10 0 8 0;
#X connect 12 0 4 0;
#X connect 12 0 0 0;
#X restore 21 116 pd part_fund+sub;
#N canvas 0 0 327 465 part 0;
#X obj 21 163 osc~;
#X obj 154 165 osc~;
#X obj 79 169 osc~;
#X text 147 192 Nominal;
#X obj 80 140 * 4.8;
#X text 82 192 "Quint";
#X obj 154 140 * 1.5;
#X obj 160 368 *~;
#X obj 226 277 line~;
#X obj 46 269 *~ 0.2;
#X obj 95 268 *~ 0.5;
#X obj 146 268 *~ 0.1;
#X obj 21 140 * 2.002;
#X obj 133 97 * 2;
#X text 8 194 Octave;
#X msg 228 234 1 \, 0 \$1;
#X obj 95 302 *~ 0.04;
#X obj 246 38 inlet;
#X obj 160 396 outlet~;
#X text 79 11 primary overtones;
#X obj 65 38 r \$0-fundamental1;
#X connect 0 0 9 0;
#X connect 1 0 11 0;
#X connect 2 0 10 0;
#X connect 4 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 18 0;
#X connect 8 0 7 1;
#X connect 9 0 16 0;
#X connect 10 0 16 0;
#X connect 11 0 16 0;
#X connect 12 0 0 0;
#X connect 13 0 4 0;
#X connect 13 0 6 0;
#X connect 15 0 8 0;
#X connect 16 0 7 0;
#X connect 17 0 15 0;
#X connect 20 0 12 0;
#X connect 20 0 13 0;
#X restore 145 116 pd part primaries;
#N canvas 0 0 289 383 secondaries 0;
#X obj 80 104 osc~;
#X text 19 142 12th overtone;
#X obj 80 79 * 11;
#X obj 151 110 osc~;
#X obj 151 85 * 1.714;
#X text 149 142 12/7;
#X obj 13 105 osc~;
#X obj 13 80 * 1.6666;
#X obj 109 314 *~;
#X obj 173 223 line~;
#X obj 173 255 *~;
#X msg 173 196 1 \, 0 \$1;
#X obj 99 53 * 1.5;
#X obj 172 280 *~;
#X obj 72 254 *~ 0.2;
#X obj 72 210 *~ 0.2;
#X obj 23 210 *~ 0.1;
#X obj 118 209 *~ 0.1;
#X text 203 262 cubic;
#X obj 238 18 inlet;
#X obj 109 347 outlet~;
#X obj 80 19 r \$0-fundamental1;
#X connect 0 0 15 0;
#X connect 2 0 0 0;
#X connect 3 0 17 0;
#X connect 4 0 3 0;
#X connect 6 0 16 0;
#X connect 7 0 6 0;
#X connect 8 0 20 0;
#X connect 9 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 10 0 13 1;
#X connect 11 0 9 0;
#X connect 12 0 4 0;
#X connect 12 0 7 0;
#X connect 13 0 8 1;
#X connect 14 0 8 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 19 0 11 0;
#X connect 21 0 2 0;
#X connect 21 0 12 0;
#X restore 275 116 pd secondaries;
#N canvas 0 0 389 416 circulars 0;
#X obj 145 106 osc~;
#X obj 40 103 osc~;
#X text 109 140 1st circular;
#X text 1 139 60 degree mode;
#X obj 40 80 * 3;
#X obj 145 82 * 6.242;
#X text 25 155 "Tierce";
#X obj 218 105 osc~;
#X obj 218 81 * 12.483;
#X text 220 142 2nd circular;
#X obj 162 325 *~;
#X obj 228 234 line~;
#X obj 227 263 *~;
#X obj 146 237 *~ 0.05;
#X obj 81 189 *~ 0.1;
#X text 262 267 square;
#X msg 228 209 1 \, 0 \$1;
#X obj 313 16 inlet;
#X obj 161 362 outlet~;
#X obj 34 19 r \$0-fundamental1;
#X connect 0 0 13 0;
#X connect 1 0 14 0;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 10 0 18 0;
#X connect 11 0 12 1;
#X connect 11 0 12 0;
#X connect 12 0 10 1;
#X connect 13 0 10 0;
#X connect 14 0 13 0;
#X connect 16 0 11 0;
#X connect 17 0 16 0;
#X connect 19 0 4 0;
#X connect 19 0 5 0;
#X connect 19 0 8 0;
#X restore 384 116 pd circulars;
#N canvas 0 0 357 436 strike 0;
#X obj 107 284 *~ 0.03;
#X obj 67 129 osc~;
#X obj 67 105 * 16;
#X obj 108 129 osc~;
#X obj 108 105 * 24;
#X text 92 72 strikes;
#X obj 144 129 noise~;
#X obj 140 347 *~;
#X obj 205 264 line~;
#X obj 204 288 *~;
#X obj 204 312 *~;
#X text 244 304 cubic;
#X msg 205 242 1 \, 0 \$1;
#X obj 228 25 inlet;
#X obj 140 375 outlet~;
#X obj 77 23 r \$0-fundamental1;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 14 0;
#X connect 8 0 9 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 7 1;
#X connect 12 0 8 0;
#X connect 13 0 12 0;
#X connect 15 0 2 0;
#X connect 15 0 4 0;
#X restore 479 116 pd strike;
#N canvas 0 0 327 216 bodyresonance 0;
#X obj 96 151 delwrite~ \$0-body 400;
#X obj 96 50 clip~ -0.2 0.5;
#X obj 96 123 *~ 0.4;
#X obj 10 87 bp~ 1243 12;
#X obj 95 87 bp~ 287 12;
#X obj 179 87 bp~ 431 12;
#X obj 95 30 delread~ \$0-body 59;
#X obj 57 151 *~ 4;
#X obj 57 191 outlet~;
#X obj 250 29 inlet~;
#X text 91 6 body resonance;
#X connect 1 0 3 0;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 9 0 0 0;
#X restore 479 152 pd bodyresonance;
#X obj 258 227 hip~ 10;
#X obj 257 254 outlet~;
#X obj 251 23 inlet;
#X obj 23 29 s \$0-fundamental1;
#X obj 23 6 inlet;
#X obj 256 183 *~ 0.9;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 2 0 13 0;
#X connect 3 0 13 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 6 0 13 0;
#X connect 7 0 0 0;
#X connect 8 0 9 0;
#X connect 10 0 1 0;
#X connect 12 0 11 0;
#X connect 13 0 0 0;
#X restore 72 224 pd bell1;
#X obj 60 21 inlet;
#X obj 73 304 outlet~;
#X obj 74 196 t b f;
#X obj 79 168 mtof;
#X obj 60 105 f 80;
#X obj 60 52 route bang;
#X obj 76 263 *~;
#X obj 160 248 line~;
#X msg 162 214 \$1 5;
#X obj 168 146 / 127;
#X obj 122 84 ./noteSplit;
#X connect 0 0 7 0;
#X connect 1 0 6 0;
#X connect 3 0 0 1;
#X connect 3 1 0 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 1 11 0;
#X connect 7 0 2 0;
#X connect 8 0 7 1;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 4 0;
#X connect 11 1 10 0;
|
