-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdksd4~.pd
296 lines (296 loc) · 6.89 KB
/
dksd4~.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
#N canvas 158 103 1646 1084 12;
#X obj 146 435 noise~;
#X obj 697 463 switch~;
#X msg 657 422 1;
#X obj 393 284 random 101;
#X obj 373 590 expr ($f1/800) + 0.875;
#X obj 146 455 expr~ if ($v1 == 0 \, 0 \, (if ($v1 < 0 \, -1 \, 1)))
;
#X obj 146 476 *~ 0.5;
#X text 695 479 audio computation on/off;
#X text 149 416 noise impulse;
#N canvas 8 378 1318 721 dksd4-drumhead 0;
#X obj 123 205 vline~;
#X obj 195 254 *~;
#X obj 547 653 *~ 0.7;
#X obj 97 392 vcf~ 30;
#X obj 576 456 vcf~ 30;
#X obj 740 452 vcf~ 30;
#X obj 336 451 vcf~ 15;
#X obj 166 340 +~ 150;
#X obj 581 495 *~ 15;
#X obj 724 495 *~ 3;
#X obj 390 381 +~ 305;
#X obj 593 347 +~ 490;
#X obj 750 348 +~ 700;
#X obj 346 493 *~ 30;
#X obj 107 450 *~ 25;
#X text 246 342 drum head;
#X obj 500 114 inlet~;
#X obj 106 34 inlet;
#X obj 102 97 + 5;
#X obj 102 72 / 200;
#X text 566 110 noise;
#X obj 669 114 inlet;
#X text 719 112 freq;
#X obj 469 245 * 2.033;
#X obj 624 241 * 3.266;
#X obj 770 234 * 4.667;
#X obj 1093 460 inlet;
#X obj 547 692 outlet~;
#X text 1143 462 volume;
#X obj 102 122 pack 0 65, f 20;
#X obj 855 12 inlet;
#X text 915 21 length;
#X obj 272 76 * 0.8667;
#N canvas 556 299 884 557 dksd4-dh-nfilt 0;
#X obj 313 323 *~;
#X obj 350 186 vline~;
#X obj 338 226 *~;
#X obj 318 276 *~;
#X obj 190 219 lop~ 1200;
#X obj 185 152 inlet~;
#X text 243 155 noise;
#X obj 313 348 outlet~;
#X obj 352 77 inlet;
#X text 406 74 rand num trig impulse;
#X obj 352 102 pack 0 30;
#X obj 633 43 inlet;
#X text 677 65 length;
#X obj 633 68 * 0.4;
#X msg 341 149 \$1 3 0 \, 0 \$2 3;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 0 0;
#X connect 4 0 0 1;
#X connect 5 0 4 0;
#X connect 8 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 13 0;
#X connect 13 0 10 1;
#X connect 14 0 1 0;
#X restore 353 173 pd dksd4-dh-nfilt;
#X text 162 36 rand num trig freqs;
#X msg 114 173 \$1 3 0 \, 0 \$2 3;
#X obj 368 95 inlet;
#X text 367 69 rand num trig impulse, f 51;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 1 0 7 0;
#X connect 1 0 10 0;
#X connect 1 0 11 0;
#X connect 1 0 12 0;
#X connect 2 0 27 0;
#X connect 3 0 14 0;
#X connect 4 0 8 0;
#X connect 5 0 9 0;
#X connect 6 0 13 0;
#X connect 7 0 3 1;
#X connect 8 0 2 0;
#X connect 9 0 2 0;
#X connect 10 0 6 1;
#X connect 11 0 4 1;
#X connect 12 0 5 1;
#X connect 13 0 2 0;
#X connect 14 0 2 0;
#X connect 16 0 33 0;
#X connect 17 0 19 0;
#X connect 18 0 29 0;
#X connect 19 0 18 0;
#X connect 21 0 23 0;
#X connect 21 0 7 1;
#X connect 21 0 24 0;
#X connect 21 0 25 0;
#X connect 23 0 10 1;
#X connect 24 0 11 1;
#X connect 25 0 12 1;
#X connect 26 0 2 1;
#X connect 29 0 35 0;
#X connect 30 0 32 0;
#X connect 30 0 33 2;
#X connect 32 0 29 1;
#X connect 33 0 3 0;
#X connect 33 0 6 0;
#X connect 33 0 4 0;
#X connect 33 0 5 0;
#X connect 35 0 0 0;
#X connect 36 0 33 1;
#X restore 243 706 pd dksd4-drumhead;
#X obj 407 121 f \$1;
#X obj 407 146 moses 1;
#X msg 407 171 100;
#N canvas 190 403 1240 717 dksd4-snares 0;
#X obj 45 22 inlet;
#X obj 80 239 vline~;
#X obj 84 270 *~;
#X obj 662 257 vline~;
#X obj 579 348 *~;
#X obj 101 318 *~;
#X obj 524 415 *~;
#X obj 399 200 lop~ 1000;
#X obj 495 260 hip~ 950;
#X obj 455 157 + 900;
#X obj 540 211 * 0.95;
#X obj 184 318 expr ($f1/500) + 0.4;
#X obj 100 374 *~ 0.7;
#X obj 122 594 *~ 0.5;
#X obj 506 15 inlet~;
#X text 564 13 noise;
#X obj 123 128 * 0.6667;
#X obj 87 160 pack 0 50;
#X obj 115 649 outlet~;
#X obj 758 105 * 0.4667;
#X obj 679 158 pack 0 35;
#X obj 868 8 inlet;
#X text 924 14 length;
#X obj 1053 494 inlet;
#X text 1105 491 volume;
#X msg 679 199 \$1 3 0 \, 0 \$2 3;
#X msg 88 204 \$1 3 0 \, 0 \$2 3;
#X text 99 25 rand num trig env;
#X obj 52 62 t f f, f 20;
#X obj 287 19 inlet;
#X text 335 20 rand num trig freq;
#X obj 658 16 inlet;
#X text 711 17 lopass, f 60;
#X connect 0 0 28 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 6 1;
#X connect 5 0 12 0;
#X connect 6 0 13 0;
#X connect 7 0 8 0;
#X connect 7 0 5 1;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 9 0 7 1;
#X connect 10 0 8 1;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 18 0;
#X connect 14 0 7 0;
#X connect 16 0 17 1;
#X connect 17 0 26 0;
#X connect 19 0 20 1;
#X connect 20 0 25 0;
#X connect 21 0 19 0;
#X connect 21 0 16 0;
#X connect 23 0 13 1;
#X connect 25 0 3 0;
#X connect 26 0 1 0;
#X connect 28 0 17 0;
#X connect 28 0 20 0;
#X connect 28 1 11 0;
#X connect 29 0 9 0;
#X connect 31 0 9 1;
#X restore 560 768 pd dksd4-snares, f 83;
#X obj 404 329 t f f;
#X obj 684 328 del, f 16;
#X obj 396 214 t b f b f b, f 46;
#X msg 709 283 stop;
#X msg 723 416 0;
#X obj 358 21 inlet;
#X text 273 114 trigger;
#X obj 645 97 moses 1;
#X msg 643 126 150;
#X obj 641 160 f;
#X text 870 61 lowpass;
#X obj 820 86 f \$3;
#X obj 820 111 moses 1;
#X msg 820 136 900;
#X obj 845 218 f;
#X obj 655 70 f \$2;
#X obj 924 8 loadbang;
#X obj 967 115 inlet;
#X obj 954 218 clip 0 1;
#X obj 1150 121 inlet;
#X obj 1139 229 clip 0 1;
#X msg 979 172 0.7;
#X msg 1161 173 0.5;
#X text 9 44 adapted to abstraction format from;
#X text 7 205 outlets:signal;
#X text 10 93 (original credits: sg 2008);
#X text 9 18 dksd4~ - snare drum synth;
#X text 12 68 snare2.pd of ichabod from pdpatchrepo;
#X text 713 74 tone;
#X text 1024 118 tonevol;
#X text 1203 123 snaresvol;
#X text 1382 22 derek kwan 2017;
#X text 1384 69 gpl v 3;
#X text 1383 47 pdkvabs;
#X obj 500 12 inlet;
#X text -2 241 args:dur(ms)/tone(Hz)/lowpass(Hz);
#X obj 509 36 route dur tone lop tonevol snarevol, f 100;
#X text 4 156 inlets: trig/vol \, messages;
#X text 496 119 durms);
#X obj 358 45 route bang float;
#X obj 511 859 *~ 1;
#X obj 511 883 outlet~;
#X obj 395 79 t b f, f 20;
#X msg 345 73 1;
#X connect 0 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 14 0;
#X connect 4 0 9 1;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 9 2;
#X connect 6 0 13 2;
#X connect 9 0 54 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 16 0;
#X connect 12 0 16 0;
#X connect 13 0 54 0;
#X connect 14 0 4 0;
#X connect 14 1 9 0;
#X connect 14 1 13 1;
#X connect 15 0 18 0;
#X connect 16 0 3 0;
#X connect 16 1 13 4;
#X connect 16 1 9 4;
#X connect 16 2 15 0;
#X connect 16 2 2 0;
#X connect 16 3 15 1;
#X connect 16 4 17 0;
#X connect 17 0 15 0;
#X connect 18 0 1 0;
#X connect 19 0 53 0;
#X connect 21 0 22 0;
#X connect 21 1 23 0;
#X connect 22 0 23 0;
#X connect 23 0 9 3;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 28 0;
#X connect 27 0 28 0;
#X connect 28 0 13 3;
#X connect 29 0 21 0;
#X connect 30 0 29 0;
#X connect 30 0 25 0;
#X connect 30 0 35 0;
#X connect 30 0 36 0;
#X connect 31 0 32 0;
#X connect 32 0 9 5;
#X connect 33 0 34 0;
#X connect 34 0 13 5;
#X connect 35 0 32 0;
#X connect 36 0 34 0;
#X connect 48 0 50 0;
#X connect 50 0 10 1;
#X connect 50 1 21 0;
#X connect 50 2 26 0;
#X connect 50 3 32 0;
#X connect 50 4 34 0;
#X connect 53 0 57 0;
#X connect 53 1 56 0;
#X connect 54 0 55 0;
#X connect 56 0 10 0;
#X connect 56 1 54 1;
#X connect 57 0 56 0;