mode.pd

#N canvas 123 200 1223 340 12;
#X obj 12 35 inlet;
#X msg 12 113 0 2 4 5 7 9 11;
#X obj 12 307 outlet;
#X msg 135 113 0 2 3 5 7 9 10;
#X msg 259 113 0 1 3 5 7 8 10;
#X msg 382 113 0 2 4 6 7 9 11;
#X msg 506 113 0 2 4 5 7 9 10;
#X msg 629 113 0 2 3 5 7 8 10;
#X msg 753 113 0 1 3 5 6 8 10;
#X obj 12 65 symbol \$1;
#X text 11 12 \$1 mode;
#X obj 63 36 loadbang;
#X msg 871 113 0 2 3 5 7 8 11;
#X obj 12 89 sel ionian dorian phrygian lydian mixolydian aeolian locrian
harmonicminor chromatic, f 159;
#X msg 994 117 0 1 2 3 4 5 6 7 8 9 10 11;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 13 0;
#X connect 11 0 9 0;
#X connect 12 0 2 0;
#X connect 13 0 1 0;
#X connect 13 1 3 0;
#X connect 13 2 4 0;
#X connect 13 3 5 0;
#X connect 13 4 6 0;
#X connect 13 5 7 0;
#X connect 13 6 8 0;
#X connect 13 7 12 0;
#X connect 13 8 14 0;
#X connect 13 9 14 0;
#X connect 14 0 2 0;