#N canvas 69 44 1131 628 10;
#X obj 110 186 * 12;
#X obj 45 447 +;
#X obj 45 544 outlet;
#X obj 45 41 inlet;
#X obj 613 300 loadbang;
#X obj 580 35 inlet;
#X obj 45 500 + \$1;
#X text 41 18 major step;
#X obj 45 160 mod 7;
#X obj 110 160 div 7;
#N canvas 172 83 586 377 LICENSE-GPL 0;
#X text 57 88 This program is free software: you can redistribute it
and/or modify it under the terms of the GNU General Public License
as published by the Free Software Foundation \, either version 3 of
the License \, or (at your option) any later version.;
#X text 58 168 This program is distributed in the hope that it will
be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.;
#X text 57 261 You should have received a copy of the GNU General Public
License along with this program. If not \, see <http://www.gnu.org/licenses/>.
;
#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.;
#X text 60 325 See the file LICENSE.txt for the full license text.
;
#X restore 981 33 pd LICENSE-GPL;
#X obj 616 199 loadbang;
#X msg 613 323 0 0 2 3 5 7 9 11;
#X obj 616 410 loadbang;
#X msg 616 433 0 0 2 3 5 7 10 11;
#X obj 613 370 table \$0-harmonic 7;
#X obj 616 480 table \$0-melodic 7;
#X msg 616 222 0 0 2 3 5 7 9 10;
#X obj 616 456 s \$0-melodic;
#X obj 613 346 s \$0-harmonic;
#X obj 45 81 t a a a;
#X obj 616 270 table \$0-natural 7;
#X obj 616 245 s \$0-natural;
#X obj 45 385 tabread \$0-natural;
#X text 694 300 harmonic minor: raised 7th;
#X text 691 409 melodic minor: raised 6th and 7th;
#X text 693 195 natural minor: just like major 3 steps down;
#N canvas 253 195 688 511 auto 0;
#X obj 34 119 t f f;
#X obj 36 204 spigot;
#X obj 34 64 inlet;
#X obj 36 333 outlet;
#X obj 109 64 inlet;
#X text 26 30 scale steps;
#X text 253 67 auto mode will select the natural minor scale for any
descending interval and the harmonic or melodic mode for ascending
intervals.;
#X obj 69 305 outlet;
#X obj 36 243 select 0 1;
#X text 127 32 auto 0/1;
#X obj 36 149 >;
#X connect 0 0 10 1;
#X connect 0 1 10 0;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 4 0 1 1;
#X connect 8 0 3 0;
#X connect 8 1 7 0;
#X connect 10 0 1 0;
#X restore 172 149 pd auto;
#X text 580 12 base note \, auto 0/1 \, mode natural/harmonic/melodic
;
#X obj 261 429 loadbang;
#X obj 261 453 list append \$2;
#X obj 373 428 loadbang;
#X obj 373 452 f \$3;
#X symbolatom 172 322 20 0 0 0 - - -;
#X obj 261 481 s \$0-mode;
#X obj 373 476 s \$0-auto;
#X obj 218 66 r \$0-auto;
#X obj 580 135 s \$0-auto;
#X obj 628 110 s \$0-mode;
#X obj 676 85 s \$0-base;
#X obj 70 475 r \$0-base;
#N canvas 321 226 792 432 translate-mode 0;
#X obj 169 226 symbol \$0-harmonic;
#X obj 142 366 outlet;
#X obj 142 81 select 0 1 2;
#X obj 142 184 symbol \$0-natural;
#X obj 196 271 symbol \$0-melodic;
#X obj 142 20 inlet;
#X obj 316 67 list;
#X obj 316 88 select natural harmonic melodic;
#X obj 142 56 route float;
#X text 187 21 mode-selection by symbols or floats;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 2 1 0 0;
#X connect 2 2 4 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 7 1 0 0;
#X connect 7 2 4 0;
#X connect 8 0 2 0;
#X connect 8 1 6 0;
#X restore 172 237 pd translate-mode;
#X text 308 236 mode to tablename;
#X msg 172 176 0;
#X obj 268 151 t b a;
#X msg 101 351 set \$1;
#X msg 242 203 1;
#X msg 282 203 melodic;
#X obj 268 131 r \$0-mode;
#X text 264 408 Arguments;
#X text 347 201 tests;
#X obj 580 59 route auto mode float;
#X obj 245 101 select 0;
#X obj 245 175 list append \$2;
#X text 250 84 on auto off \, choose last mode again;
#X text 355 176 cache selected mode;
#X connect 0 0 1 1;
#X connect 1 0 6 0;
#X connect 3 0 20 0;
#X connect 4 0 12 0;
#X connect 5 0 51 0;
#X connect 6 0 2 0;
#X connect 8 0 23 0;
#X connect 9 0 0 0;
#X connect 11 0 17 0;
#X connect 12 0 19 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 17 0 22 0;
#X connect 20 0 8 0;
#X connect 20 1 9 0;
#X connect 20 2 27 0;
#X connect 23 0 1 0;
#X connect 27 0 43 0;
#X connect 27 1 53 0;
#X connect 29 0 30 0;
#X connect 30 0 34 0;
#X connect 31 0 32 0;
#X connect 32 0 35 0;
#X connect 36 0 52 0;
#X connect 36 0 27 1;
#X connect 40 0 6 1;
#X connect 41 0 33 0;
#X connect 41 0 45 0;
#X connect 43 0 41 0;
#X connect 44 0 53 0;
#X connect 44 1 53 1;
#X connect 45 0 23 0;
#X connect 46 0 41 0;
#X connect 47 0 41 0;
#X connect 48 0 44 0;
#X connect 51 0 37 0;
#X connect 51 1 38 0;
#X connect 51 2 39 0;
#X connect 52 0 53 0;
#X connect 53 0 41 0;
