-
Notifications
You must be signed in to change notification settings - Fork 0
/
Drum-Player.pd
298 lines (298 loc) · 7.96 KB
/
Drum-Player.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
297
298
#N canvas 123 131 1082 473 12;
#X declare -lib tof;
#X declare -lib cyclone;
#X declare -lib ggee;
#X declare -lib zexy;
#X declare -lib iemlib;
#X declare -lib easyflow;
#X declare -path lib;
#X obj 10 8 cnv 15 200 450 empty empty empty 20 12 0 14 -204800 -66577
0;
#N canvas 802 190 362 245 libraries 0;
#X obj 29 52 declare -lib tof;
#X obj 29 79 declare -lib cyclone;
#X text 28 22 Dependencies:;
#X obj 29 106 declare -lib ggee;
#X obj 29 133 declare -lib zexy;
#X obj 29 160 declare -lib iemlib;
#X obj 29 187 declare -lib easyflow;
#X obj 210 52 declare -path lib;
#X restore 29 426 pd libraries;
#X text 28 372 Do not delete:;
#X text 32 23 Drum Player v0.1 \; Copyright (c) 2021 \; David Kettle
;
#X obj 31 274 load-state \$0;
#X obj 77 274 save-state \$0;
#X obj 124 274 clear-state \$0;
#X obj 33 95 nbx 5 20 1 16 0 0 \$0-channel-s \$0-channel-r Channel
0 -8 0 10 -257985 -1 -1 10 256;
#N canvas 577 163 821 565 init 0;
#X obj 20 22 loadbang;
#X obj 20 152 ins \$0 0 0;
#X obj 20 177 ins \$0 0 1;
#X obj 20 202 ins \$0 0 2;
#X obj 20 227 ins \$0 0 3;
#X obj 20 252 ins \$0 0 4;
#X obj 20 277 ins \$0 0 5;
#X obj 20 302 ins \$0 0 6;
#X obj 20 327 ins \$0 0 7;
#X obj 20 352 ins \$0 0 8;
#X obj 20 377 ins \$0 0 9;
#X obj 20 402 ins \$0 0 10;
#X obj 20 427 ins \$0 0 11;
#X obj 20 452 ins \$0 0 12;
#X obj 20 477 ins \$0 0 13;
#X obj 20 502 ins \$0 0 14;
#X obj 20 527 ins \$0 0 15;
#X obj 120 152 ins \$0 0 16;
#X obj 120 177 ins \$0 0 17;
#X obj 120 202 ins \$0 0 18;
#X obj 120 227 ins \$0 0 19;
#X obj 120 252 ins \$0 0 20;
#X obj 120 277 ins \$0 0 21;
#X obj 120 302 ins \$0 0 22;
#X obj 120 327 ins \$0 0 23;
#X obj 120 352 ins \$0 0 24;
#X obj 120 377 ins \$0 0 25;
#X obj 120 402 ins \$0 0 26;
#X obj 120 427 ins \$0 0 27;
#X obj 120 452 ins \$0 0 28;
#X obj 120 477 ins \$0 0 29;
#X obj 120 502 ins \$0 0 30;
#X obj 120 527 ins \$0 0 31;
#X obj 220 152 ins \$0 1 0;
#X obj 220 177 ins \$0 1 1;
#X obj 220 202 ins \$0 1 2;
#X obj 220 227 ins \$0 1 3;
#X obj 220 252 ins \$0 1 4;
#X obj 220 277 ins \$0 1 5;
#X obj 220 302 ins \$0 1 6;
#X obj 220 327 ins \$0 1 7;
#X obj 220 352 ins \$0 1 8;
#X obj 220 377 ins \$0 1 9;
#X obj 220 402 ins \$0 1 10;
#X obj 220 427 ins \$0 1 11;
#X obj 220 452 ins \$0 1 12;
#X obj 220 477 ins \$0 1 13;
#X obj 220 502 ins \$0 1 14;
#X obj 220 527 ins \$0 1 15;
#X obj 320 152 ins \$0 1 16;
#X obj 320 177 ins \$0 1 17;
#X obj 320 202 ins \$0 1 18;
#X obj 320 227 ins \$0 1 19;
#X obj 320 252 ins \$0 1 20;
#X obj 320 277 ins \$0 1 21;
#X obj 320 302 ins \$0 1 22;
#X obj 320 327 ins \$0 1 23;
#X obj 320 352 ins \$0 1 24;
#X obj 320 377 ins \$0 1 25;
#X obj 320 402 ins \$0 1 26;
#X obj 320 427 ins \$0 1 27;
#X obj 320 452 ins \$0 1 28;
#X obj 320 477 ins \$0 1 29;
#X obj 320 502 ins \$0 1 30;
#X obj 320 527 ins \$0 1 31;
#X obj 420 152 ins \$0 2 0;
#X obj 420 177 ins \$0 2 1;
#X obj 420 202 ins \$0 2 2;
#X obj 420 227 ins \$0 2 3;
#X obj 420 252 ins \$0 2 4;
#X obj 420 277 ins \$0 2 5;
#X obj 420 302 ins \$0 2 6;
#X obj 420 327 ins \$0 2 7;
#X obj 420 352 ins \$0 2 8;
#X obj 420 377 ins \$0 2 9;
#X obj 420 402 ins \$0 2 10;
#X obj 420 427 ins \$0 2 11;
#X obj 420 452 ins \$0 2 12;
#X obj 420 477 ins \$0 2 13;
#X obj 420 502 ins \$0 2 14;
#X obj 420 527 ins \$0 2 15;
#X obj 520 152 ins \$0 2 16;
#X obj 520 177 ins \$0 2 17;
#X obj 520 202 ins \$0 2 18;
#X obj 520 227 ins \$0 2 19;
#X obj 520 252 ins \$0 2 20;
#X obj 520 277 ins \$0 2 21;
#X obj 520 302 ins \$0 2 22;
#X obj 520 327 ins \$0 2 23;
#X obj 520 352 ins \$0 2 24;
#X obj 520 377 ins \$0 2 25;
#X obj 520 402 ins \$0 2 26;
#X obj 520 427 ins \$0 2 27;
#X obj 520 452 ins \$0 2 28;
#X obj 520 477 ins \$0 2 29;
#X obj 520 502 ins \$0 2 30;
#X obj 520 527 ins \$0 2 31;
#X obj 620 152 ins \$0 3 0;
#X obj 620 177 ins \$0 3 1;
#X obj 620 202 ins \$0 3 2;
#X obj 620 227 ins \$0 3 3;
#X obj 620 252 ins \$0 3 4;
#X obj 620 277 ins \$0 3 5;
#X obj 620 302 ins \$0 3 6;
#X obj 620 327 ins \$0 3 7;
#X obj 620 352 ins \$0 3 8;
#X obj 620 377 ins \$0 3 9;
#X obj 620 402 ins \$0 3 10;
#X obj 620 427 ins \$0 3 11;
#X obj 620 452 ins \$0 3 12;
#X obj 620 477 ins \$0 3 13;
#X obj 620 502 ins \$0 3 14;
#X obj 620 527 ins \$0 3 15;
#X obj 720 152 ins \$0 3 16;
#X obj 720 177 ins \$0 3 17;
#X obj 720 202 ins \$0 3 18;
#X obj 720 227 ins \$0 3 19;
#X obj 720 252 ins \$0 3 20;
#X obj 720 277 ins \$0 3 21;
#X obj 720 302 ins \$0 3 22;
#X obj 720 327 ins \$0 3 23;
#X obj 720 352 ins \$0 3 24;
#X obj 720 377 ins \$0 3 25;
#X obj 720 402 ins \$0 3 26;
#X obj 720 427 ins \$0 3 27;
#X obj 720 452 ins \$0 3 28;
#X obj 720 477 ins \$0 3 29;
#X obj 720 502 ins \$0 3 30;
#X obj 720 527 ins \$0 3 31;
#X obj 20 88 send \$0-clear-s;
#X obj 151 88 send \$0-bank-r;
#X obj 151 21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 268 87 symbol None;
#X obj 268 113 send \$0-loaded-r;
#X connect 0 0 129 0;
#X connect 0 0 130 0;
#X connect 0 0 132 0;
#X connect 131 0 130 0;
#X connect 131 0 129 0;
#X connect 131 0 132 0;
#X connect 132 0 133 0;
#X restore 128 398 pd init;
#X obj 220 9 bank \$0;
#X obj 30 128 load-bank \$0;
#N canvas 82 405 450 300 msg-log 0;
#X obj 59 87 unpack s s;
#X obj 27 242 print Log;
#X obj 27 160 time XXXXXXXXXXX;
#X obj 27 209 cyclone/sprintf [%02d:%02d:%02d.%03d] %s %s;
#X obj 27 56 t b a;
#X obj 83 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 27 18 receive \$0-msg-log-r;
#X connect 0 0 3 4;
#X connect 0 1 3 5;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 2 2 3 2;
#X connect 2 3 3 3;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 1 0 0;
#X connect 6 0 4 0;
#X connect 6 0 5 0;
#X restore 29 398 pd msg-log;
#X symbolatom 31 330 22 0 0 0 - #0-loaded-r #0-loaded-s;
#X obj 30 218 gain \$0;
#X obj 122 83 meter~ \$0;
#N canvas 180 56 415 669 MIDI 0;
#X obj 36 26 notein;
#X floatatom 55 77 0 0 0 0 - - -;
#X floatatom 36 50 0 0 0 0 - - -;
#X floatatom 75 50 0 0 0 0 - - -;
#X obj 194 26 receive \$0-channel-s;
#X floatatom 194 50 0 0 0 0 - - -;
#X obj 176 82 ==;
#X obj 176 110 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 108 132 / 128;
#X obj 76 344 % 32;
#X obj 56 372 / 32;
#X obj 36 425 f \$0;
#X obj 36 258 t f f;
#X obj 36 230 spigot;
#X obj 96 398 f;
#X obj 311 303 float \$0;
#X obj 311 276 loadbang;
#X floatatom 311 330 5 0 0 0 - - -;
#X obj 284 278 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 56 398 int;
#X obj 36 583 pack f f f f;
#X msg 36 613 \; midi-\$1-\$2-\$3-r \$4;
#X obj 177 425 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 36 291 t b f f b;
#X obj 36 555 spigot;
#X obj 55 104 select 0;
#X msg 163 363 bang;
#X obj 169 168 pack f f f;
#X obj 169 243 print notein;
#X msg 163 391 1;
#X msg 194 391 0;
#X obj 169 217 spigot;
#X obj 208 195 tgl 15 0 empty empty debug 17 7 0 10 -257985 -1 -1 0
1;
#X obj 244 406 pack f f f;
#X obj 244 330 t f f;
#X obj 281 355 / 32;
#X obj 281 381 int;
#X obj 117 555 *;
#X obj 244 475 r gain-\$0-value;
#X obj 244 355 % 32;
#X msg 244 431 \; gain-\$3-\$2-\$1-get bang;
#X obj 244 503 unpack f f;
#X connect 0 0 2 0;
#X connect 0 0 27 0;
#X connect 0 1 1 0;
#X connect 0 1 27 1;
#X connect 0 2 3 0;
#X connect 0 2 27 2;
#X connect 1 0 25 0;
#X connect 2 0 13 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 13 1;
#X connect 8 0 26 0;
#X connect 8 0 14 1;
#X connect 9 0 20 2;
#X connect 10 0 19 0;
#X connect 11 0 24 0;
#X connect 12 0 23 0;
#X connect 12 1 34 0;
#X connect 13 0 12 0;
#X connect 14 0 37 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 16 0 30 0;
#X connect 17 0 33 2;
#X connect 18 0 15 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 22 0 24 1;
#X connect 23 0 11 0;
#X connect 23 1 10 0;
#X connect 23 2 9 0;
#X connect 23 3 14 0;
#X connect 24 0 20 0;
#X connect 25 0 30 0;
#X connect 25 1 8 0;
#X connect 26 0 29 0;
#X connect 27 0 31 0;
#X connect 29 0 22 0;
#X connect 30 0 22 0;
#X connect 31 0 28 0;
#X connect 32 0 31 1;
#X connect 33 0 40 0;
#X connect 34 0 39 0;
#X connect 34 1 35 0;
#X connect 35 0 36 0;
#X connect 36 0 33 1;
#X connect 37 0 20 3;
#X connect 38 0 41 0;
#X connect 39 0 33 0;
#X connect 41 1 37 1;
#X restore 128 426 pd MIDI;