#N canvas 235 128 486 336 10;
#X obj 24 57 inlet;
#X obj 24 149 outlet;
#X obj 24 118 tabread \$0-Scale;
#X obj 155 47 inlet;
#X obj 124 137 tabwrite \$0-Scale;
#X obj 236 46 inlet;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-Scale 20 float 0;
#X coords 0 100 19 0 20 14 1;
#X restore 325 138 graph;
#X obj 32 97 + -1;
#X text 152 18 load a scale into an array \,;
#X text 15 36 call scale by value;
#X text 32 169 midi pitch value out;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 4 1;
#X connect 7 0 2 0;
