patches/lib/harmony/mode.pd

#N canvas 227 86 762 336 16;
#X obj 110 46 inlet;
#X obj 110 218 pick;
#X obj 200 48 loadbang;
#X obj 112 166 %;
#X obj 225 210 list length;
#X obj 122 281 outlet;
#X text 323 51 ionian is major;
#X text 319 25 aeolian is minor;
#X msg 205 157 ionian_(major) - dorian - phrygian lydian - mixolydian
- aeolian_(minor) - locrian;
#X obj 109 102 moses 0;
#X obj 40 105 + 11;
#X connect 0 0 9 0;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 8 0 1 1;
#X connect 8 0 4 0;
#X connect 9 0 10 0;
#X connect 9 1 3 0;
#X connect 10 0 9 0;