aboutsummaryrefslogtreecommitdiff
path: root/piano.pd
blob: 95ba987aecfbf79d3d5a5c3b5697e86bd05e69bf (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
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
#N canvas 426 113 1009 673 10;
#X obj 329 386 tabread \$0keys;
#X obj 325 445 pack;
#X obj 324 466 route 0;
#X obj 378 439 * 127;
#X obj 920 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -224695 -1
-1;
#X text 938 154 all reset;
#X obj 889 11 table \$0keys 256;
#X obj 285 613 pack s f;
#X obj 285 568 unpack;
#X msg 285 635 \; \$1 set \$2;
#X obj 607 456 swap;
#X obj 600 495 pack;
#N canvas 0 25 1006 673 mouse_receives 0;
#X obj 77 86 r \$0s49;
#X obj 143 86 r \$0s50;
#X obj 202 85 r \$0s51;
#X obj 275 83 r \$0s52;
#X obj 343 83 r \$0s53;
#X obj 403 86 r \$0s54;
#X obj 465 84 r \$0s55;
#X obj 526 84 r \$0s56;
#X obj 585 86 r \$0s57;
#X obj 650 88 r \$0s58;
#X obj 703 86 r \$0s59;
#X obj 754 88 r \$0s60;
#X obj 808 89 r \$0s61;
#X obj 859 89 r \$0s62;
#X obj 914 90 r \$0s63;
#X obj 961 92 r \$0s64;
#X obj 1019 95 r \$0s65;
#X obj 8 382 r \$0s66;
#X obj 72 383 r \$0s67;
#X obj 135 381 r \$0s68;
#X obj 187 384 r \$0s69;
#X obj 238 388 r \$0s70;
#X obj 293 387 r \$0s71;
#X obj 344 387 r \$0s72;
#X obj 400 386 r \$0s73;
#X obj 452 385 r \$0s74;
#X obj 503 385 r \$0s75;
#X obj 552 385 r \$0s76;
#X obj 601 382 r \$0s77;
#X obj 654 385 r \$0s78;
#X obj 702 386 r \$0s79;
#X obj 755 386 r \$0s80;
#X obj 809 387 r \$0s81;
#X obj 859 387 r \$0s82;
#X obj 909 387 r \$0s83;
#X obj 957 388 r \$0s84;
#X obj 5 86 r \$0s48;
#X obj 3 111 pack f 48;
#X obj 69 112 pack f 49;
#X obj 135 112 pack f 50;
#X obj 200 108 pack f 51;
#X obj 277 106 pack f 52;
#X obj 341 109 pack f 53;
#X obj 404 110 pack f 54;
#X obj 464 109 pack f 55;
#X obj 526 109 pack f 56;
#X obj 587 109 pack f 57;
#X obj 498 310 outlet;
#X obj 652 108 pack f 58;
#X obj 715 114 pack f 59;
#X obj 754 144 pack f 60;
#X obj 803 167 pack f 61;
#X obj 873 198 pack f 62;
#X obj 901 231 pack f 63;
#X obj 921 278 pack f 64;
#X obj 8 412 pack f 66;
#X obj 74 413 pack f 67;
#X obj 140 413 pack f 68;
#X obj 186 459 pack f 69;
#X obj 239 423 pack f 70;
#X obj 294 448 pack f 71;
#X obj 343 422 pack f 72;
#X obj 401 448 pack f 73;
#X obj 451 419 pack f 74;
#X obj 501 441 pack f 75;
#X obj 551 416 pack f 76;
#X obj 567 468 pack f 77;
#X obj 651 411 pack f 78;
#X obj 696 457 pack f 79;
#X obj 750 421 pack f 80;
#X obj 804 446 pack f 81;
#X obj 854 420 pack f 82;
#X obj 912 446 pack f 83;
#X obj 962 417 pack f 84;
#X obj 983 297 pack f 65;
#X connect 0 0 38 0;
#X connect 1 0 39 0;
#X connect 2 0 40 0;
#X connect 3 0 41 0;
#X connect 4 0 42 0;
#X connect 5 0 43 0;
#X connect 6 0 44 0;
#X connect 7 0 45 0;
#X connect 8 0 46 0;
#X connect 9 0 48 0;
#X connect 10 0 49 0;
#X connect 11 0 50 0;
#X connect 12 0 51 0;
#X connect 13 0 52 0;
#X connect 14 0 53 0;
#X connect 15 0 54 0;
#X connect 16 0 74 0;
#X connect 17 0 55 0;
#X connect 18 0 56 0;
#X connect 19 0 57 0;
#X connect 20 0 58 0;
#X connect 21 0 59 0;
#X connect 22 0 60 0;
#X connect 23 0 61 0;
#X connect 24 0 62 0;
#X connect 25 0 63 0;
#X connect 26 0 64 0;
#X connect 27 0 65 0;
#X connect 28 0 66 0;
#X connect 29 0 67 0;
#X connect 30 0 68 0;
#X connect 31 0 69 0;
#X connect 32 0 70 0;
#X connect 33 0 71 0;
#X connect 34 0 72 0;
#X connect 35 0 73 0;
#X connect 36 0 37 0;
#X connect 37 0 47 0;
#X connect 38 0 47 0;
#X connect 39 0 47 0;
#X connect 40 0 47 0;
#X connect 41 0 47 0;
#X connect 42 0 47 0;
#X connect 43 0 47 0;
#X connect 44 0 47 0;
#X connect 45 0 47 0;
#X connect 46 0 47 0;
#X connect 48 0 47 0;
#X connect 49 0 47 0;
#X connect 50 0 47 0;
#X connect 51 0 47 0;
#X connect 52 0 47 0;
#X connect 53 0 47 0;
#X connect 54 0 47 0;
#X connect 55 0 47 0;
#X connect 56 0 47 0;
#X connect 57 0 47 0;
#X connect 58 0 47 0;
#X connect 59 0 47 0;
#X connect 60 0 47 0;
#X connect 61 0 47 0;
#X connect 62 0 47 0;
#X connect 63 0 47 0;
#X connect 64 0 47 0;
#X connect 65 0 47 0;
#X connect 66 0 47 0;
#X connect 67 0 47 0;
#X connect 68 0 47 0;
#X connect 69 0 47 0;
#X connect 70 0 47 0;
#X connect 71 0 47 0;
#X connect 72 0 47 0;
#X connect 73 0 47 0;
#X connect 74 0 47 0;
#X restore 607 413 pd mouse_receives;
#X obj 329 363 swap;
#N canvas 673 209 355 563 keys 0;
#X obj 142 39 key;
#X obj 213 46 keyup;
#X msg 122 102 1 \$1;
#X msg 220 104 0 \$1;
#X obj 42 461 outlet;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X restore 329 175 pd keys;
#X obj 95 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 118 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 141 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 3 16 cnv 15 20 80 empty yellow empty 20 12 0 14 -224695 -224695
0;
#X obj 26 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 49 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 72 16 cnv 15 20 80 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 16 16 cnv 14 14 55 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 42 16 cnv 14 14 55 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 85 16 cnv 14 14 55 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 109 16 cnv 14 14 55 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 134 16 cnv 14 14 55 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 7 78 tgl 12 0 \$0s48 \$0r48mk empty 20 8 0 8 -262144 -1 -1 0
127;
#X obj 17 57 tgl 12 0 \$0s49 \$0r49mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 30 78 tgl 12 0 \$0s50 \$0r50mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 43 57 tgl 12 0 \$0s51 \$0r51mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 53 78 tgl 12 0 \$0s52 \$0r52mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 76 78 tgl 12 0 \$0s53 \$0r53mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 99 78 tgl 12 0 \$0s55 \$0r55mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 122 78 tgl 12 0 \$0s57 \$0r57mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 86 57 tgl 12 0 \$0s54 \$0r54mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 110 57 tgl 12 0 \$0s56 \$0r56mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 135 57 tgl 12 0 \$0s58 \$0r58mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 145 78 tgl 12 0 \$0s59 \$0r59mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 256 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 279 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 302 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 164 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 187 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 211 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 233 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 177 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 203 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 246 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 270 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 295 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 168 78 tgl 12 0 \$0s60 \$0r60mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 178 57 tgl 12 0 \$0s61 \$0r61mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 191 78 tgl 12 0 \$0s62 \$0r62mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 204 57 tgl 12 0 \$0s63 \$0r63mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 214 78 tgl 12 0 \$0s64 \$0r64mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 237 78 tgl 12 0 \$0s65 \$0r65mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 260 78 tgl 12 0 \$0s67 \$0r67mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 283 78 tgl 12 0 \$0s69 \$0r69mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 247 57 tgl 12 0 \$0s66 \$0r66mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 271 57 tgl 12 0 \$0s68 \$0r68mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 296 57 tgl 12 0 \$0s70 \$0r70mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 306 78 tgl 12 0 \$0s71 \$0r71mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 325 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 348 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 371 36 cnv 15 20 60 empty empty empty 20 12 0 14 -224695 -66577
0;
#X obj 338 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 364 36 cnv 14 14 35 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 329 78 tgl 12 0 \$0s72 \$0r72mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 339 57 tgl 12 0 \$0s73 \$0r73mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 352 78 tgl 12 0 \$0s74 \$0r74mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 365 57 tgl 12 0 \$0s75 \$0r75mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 375 78 tgl 12 0 \$0s76 \$0r76mk empty 20 8 0 8 -262144 -1 -1
0 127;
#X obj 424 698 outlet;
#X obj 343 13 bng 12 250 50 0 empty empty Panic 15 6 0 8 -258699 -1
-1;
#X obj 930 180 t b b;
#X obj 929 249 + 47;
#X obj 383 231 spigot \$1;
#X obj 281 13 tgl 12 0 empty empty Listen 15 6 0 8 -262144 -1 -1 1
1;
#X msg 1108 342 \; \$1 set 0;
#X obj 450 570 r \$0output;
#X obj 835 318 s \$0output;
#X msg 834 294 \$1 0;
#X obj 933 268 t f f;
#X obj 491 726 tabwrite \$0states;
#X obj 432 652 t l l l;
#X obj 497 681 swap;
#X obj 891 56 table \$0states 77;
#X obj 947 290 tabread \$0states;
#X obj 957 311 sel 1;
#X obj 1007 317 f;
#X obj 1006 346 t f f;
#X obj 490 702 > 0;
#X obj 924 226 tof/iterate;
#X obj 285 591 zexy/makesymbol \$0r%smk;
#X obj 1106 309 zexy/makesymbol \$0r%smk;
#X obj 468 102 f \$0;
#X msg 469 131 \; \$1keys 44 60 0 62 64 75 0 61 63 0 66 68 70 0 73
0 63 0 78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
77 0 79 0 0 0 0 55 52 51 64 0 54 56 72 58 0 61 59 57 74 76 60 65 49
67 71 53 62 50 69 48 60 0 62 64 75 0 61 63 0 66 68 70 0 73 0 63 0 78
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 77 0 79 0
0 0 0 55 52 51 64 0 54 56 72 58 0 61 59 57 74 76 60 65 49 67 71 53
62 50 69 48;
#X obj 465 74 loadbang;
#X obj 418 102 f \$1;
#X msg 918 199 30;
#X obj 416 14 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 8 0;
#X connect 2 1 85 0;
#X connect 3 0 1 1;
#X connect 4 0 75 0;
#X connect 7 0 9 0;
#X connect 8 0 94 0;
#X connect 8 1 7 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 85 0;
#X connect 12 0 10 0;
#X connect 13 0 0 0;
#X connect 13 1 3 0;
#X connect 14 0 77 0;
#X connect 74 0 4 0;
#X connect 75 0 100 0;
#X connect 76 0 83 0;
#X connect 77 0 13 0;
#X connect 78 0 77 1;
#X connect 80 0 85 0;
#X connect 82 0 81 0;
#X connect 83 0 88 0;
#X connect 83 1 90 1;
#X connect 85 0 73 0;
#X connect 85 2 86 0;
#X connect 86 0 92 0;
#X connect 86 1 84 1;
#X connect 88 0 89 0;
#X connect 89 0 90 0;
#X connect 90 0 91 0;
#X connect 91 0 82 0;
#X connect 91 1 95 0;
#X connect 92 0 84 0;
#X connect 93 0 76 0;
#X connect 94 0 7 0;
#X connect 95 0 79 0;
#X connect 96 0 97 0;
#X connect 98 0 96 0;
#X connect 98 0 99 0;
#X connect 99 0 78 0;
#X connect 100 0 93 0;
#X connect 101 0 78 0;
#X coords 0 -1 1 1 394 100 1 0 0;