1 files changed, 373 insertions, 0 deletions
diff --git a/piano.pd b/piano.pd
new file mode 100644
index 0000000..1ded1ee
--- /dev/null
+++ b/piano.pd
@@ -0,0 +1,373 @@
+#N canvas 430 89 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 1;
+#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 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 coords 0 -1 1 1 394 100 1 0 0;