#N canvas 0 0 450 300 10; #N canvas 0 0 170 363 voices 0; #X obj 17 0 road 36; #X obj 17 17 road 37; #X obj 17 34 road 38; #X obj 17 51 road 39; #X obj 17 68 road 40; #X obj 17 85 road 41; #X obj 17 102 road 42; #X obj 17 119 road 43; #X obj 17 136 road 44; #X obj 17 153 road 45; #X obj 17 170 road 46; #X obj 17 187 road 47; #X obj 17 204 road 48; #X obj 17 221 road 49; #X obj 17 238 road 50; #X obj 17 255 road 51; #X obj 17 272 road 52; #X obj 17 289 road 53; #X obj 17 306 road 54; #X obj 17 323 road 55; #X obj 17 340 road 56; #X obj 17 357 road 57; #X obj 17 374 road 58; #X obj 17 391 road 59; #X obj 17 408 road 60; #X obj 17 425 road 61; #X obj 17 442 road 62; #X obj 17 459 road 63; #X obj 17 476 road 64; #X obj 17 493 road 65; #X obj 17 510 road 66; #X obj 17 527 road 67; #X obj 17 544 road 68; #X obj 17 561 road 69; #X obj 17 578 road 70; #X obj 17 595 road 71; #X obj 17 612 road 72; #X obj 17 629 road 73; #X obj 17 646 road 74; #X obj 17 663 road 75; #X obj 17 680 road 76; #X obj 17 697 road 77; #X obj 17 714 road 78; #X obj 17 731 road 79; #X obj 17 748 road 80; #X obj 17 765 road 81; #X obj 17 782 road 82; #X obj 17 799 road 83; #X obj 17 816 road 84; #X obj 17 833 road 85; #X obj 17 850 road 86; #X obj 17 867 road 87; #X obj 17 884 road 88; #X obj 17 901 road 89; #X obj 17 918 road 90; #X obj 17 935 road 91; #X obj 17 952 road 92; #X obj 17 969 road 93; #X obj 17 986 road 94; #X obj 17 1003 road 95; #X obj 17 1020 road 96; #X restore 15 -18 pd voices; #N canvas 0 0 454 496 create 0; #X obj 88 108 until; #X obj 88 76 t f b; #X obj 88 139 f; #X obj 120 139 + 1; #X obj 86 306 s pd-voices; #X obj 87 167 t f f; #X msg 87 278 obj 17 \$1 road \$2; #X obj 70 206 * 17; #X obj 87 247 pack; #X obj 129 110 0; #X msg 223 157 clear; #X obj 110 207 + 36; #X msg 88 44 61; #X text 90 11 61 midi voices \, starting at midi-note 36; #X text 150 210 lowest midi-key; #X text 124 46 nr of midi-keys; #X text 85 381 then save and reload patch; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 1 9 0; #X connect 1 1 10 0; #X connect 2 0 3 0; #X connect 2 0 5 0; #X connect 3 0 2 1; #X connect 5 0 7 0; #X connect 5 1 11 0; #X connect 6 0 4 0; #X connect 7 0 8 0; #X connect 8 0 6 0; #X connect 9 0 2 1; #X connect 10 0 4 0; #X connect 11 0 8 1; #X connect 12 0 1 0; #X restore 15 5 pd create voices; #N canvas 44 93 559 407 midi 0; #X msg 37 360 \; voice-\$1 \$2; #X obj 37 113 notein; #X obj 280 141 ctlin 64; #X obj 245 85 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 245 108 * 127; #N canvas 0 0 457 359 release 0; #X msg 96 288 \; voice-\$1 \$2; #X obj 138 84 until; #X obj 138 10 inlet; #X obj 138 115 f; #X obj 164 114 + 1; #X obj 138 142 t f f; #X obj 59 171 tabread held; #X obj 138 35 t b b; #X obj 57 198 !=; #X obj 96 257 list prepend; #X obj 50 228 route 1; #X obj 138 62 61; #X obj 184 82 36; #X text 213 86 lowest midi-key; #X text 38 62 nr of midi-keys; #X connect 1 0 3 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 3 0 5 0; #X connect 4 0 3 1; #X connect 5 0 6 0; #X connect 5 1 9 1; #X connect 6 0 8 0; #X connect 7 0 11 0; #X connect 7 1 12 0; #X connect 8 0 10 0; #X connect 9 0 0 0; #X connect 10 1 9 0; #X connect 11 0 1 0; #X connect 12 0 3 1; #X restore 245 261 pd release; #X obj 37 252 route 0 127; #X obj 245 173 f; #X obj 37 145 pack; #X obj 37 170 t l l; #X obj 245 234 select 0; #X obj 68 287 stripnote; #X obj 68 312 pack; #X obj 245 60 select 32; #X obj 23 21 table held 128; #X obj 65 192 s held; #X obj 37 225 list prepend; #X obj 143 146 loadbang; #X obj 142 170 0; #X obj 244 16 key; #X obj 244 38 spigot; #X obj 278 15 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X text 301 17 open to use as sustain key; #X connect 1 0 8 0; #X connect 1 1 8 1; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 4 0 7 0; #X connect 6 0 0 0; #X connect 6 1 11 0; #X connect 7 0 10 0; #X connect 7 0 16 1; #X connect 8 0 9 0; #X connect 9 0 16 0; #X connect 9 1 15 0; #X connect 10 0 5 0; #X connect 11 0 12 0; #X connect 11 1 12 1; #X connect 12 0 0 0; #X connect 13 0 3 0; #X connect 16 0 6 0; #X connect 17 0 18 0; #X connect 18 0 16 1; #X connect 19 0 20 0; #X connect 20 0 13 0; #X connect 21 0 20 1; #X restore 15 -44 pd midi; #X obj 166 39 catch~ out; #X obj 165 117 *~; #X obj 221 86 dbtorms; #X obj 275 57 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 8000 1; #X floatatom 272 87 5 0 0 0 - - -; #X obj 167 144 dac~; #X obj 273 -10 loadbang; #X obj 272 12 80; #X connect 3 0 4 0; #X connect 4 0 8 0; #X connect 4 0 8 1; #X connect 5 0 4 1; #X connect 6 0 5 0; #X connect 6 0 7 0; #X connect 9 0 10 0; #X connect 10 0 6 0;