#N canvas 0 0 530 469 10; #X obj 110 79 notein; #X obj 110 110 stripnote; #X obj 110 143 t b f; #X obj 137 170 tabread midinotes; #X obj 291 45 loadbang; #X msg 291 74 \; midinotes const 0; #N canvas 0 0 450 300 (subpatch) 0; #X array midinotes 100 float 0; #X coords 0 1 99 -1 200 140 1; #X restore 290 280 graph; #X obj 110 199 f; #X obj 110 228 + 1; #X obj 110 258 tabwrite midinotes; #X obj 27 72 random 30; #X obj 27 16 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 59 16 stop; #X text 96 18 for testing; #X obj 109 346 tabread midinotes; #X floatatom 109 312 5 0 0 0 - - -; #X floatatom 109 377 5 0 0 0 - - -; #X text 149 311 read note number; #X text 28 311 type >>>>>> \; note number \; and press \; enter; #X obj 27 44 metro 100; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 1 0 2 0; #X connect 2 0 7 0; #X connect 2 1 3 0; #X connect 2 1 9 1; #X connect 3 0 7 1; #X connect 4 0 5 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 10 0 2 0; #X connect 11 0 19 0; #X connect 12 0 19 0; #X connect 14 0 16 0; #X connect 15 0 14 0; #X connect 19 0 10 0;