102 lines
2.4 KiB
Plaintext
102 lines
2.4 KiB
Plaintext
#N canvas 505 109 1236 790 12;
|
|
#N canvas 1287 785 450 250 (subpatch) 0;
|
|
#X array scale 8 float 2;
|
|
#X coords 0 0 8 12 200 140 1 0 0;
|
|
#X restore 594 89 graph;
|
|
#X obj 201 564 noteout;
|
|
#X floatatom 273 555 5 0 0 0 - - -;
|
|
#X obj 255 299 + 2;
|
|
#X obj 217 271 t f f f;
|
|
#X obj 466 291 + 4;
|
|
#X obj 150 414 +;
|
|
#X obj 169 322 t f f;
|
|
#X obj 301 385 * 12;
|
|
#X obj 301 411 +;
|
|
#X obj 320 319 t f f;
|
|
#X obj 466 319 t f f;
|
|
#X obj 456 416 +;
|
|
#X obj 452 389 * 12;
|
|
#X obj 201 367 mod 7;
|
|
#X obj 301 360 div 7;
|
|
#X obj 352 364 mod 7;
|
|
#X obj 452 364 div 7;
|
|
#X obj 498 364 mod 7;
|
|
#X obj 83 36 grid;
|
|
#X obj 217 202 spigot;
|
|
#X msg 149 9 connect;
|
|
#X obj 201 459 + 60;
|
|
#X obj 256 174 < 7;
|
|
#X obj 20 18 r grid;
|
|
#X msg 9 97 set \$2 \$3 \$1;
|
|
#X obj 9 122 s grid;
|
|
#X text 235 485 root;
|
|
#X obj 182 154 t f f;
|
|
#X obj 201 392 getnote;
|
|
#X obj 352 389 getnote;
|
|
#X obj 498 389 getnote;
|
|
#X obj 150 390 div 7;
|
|
#X obj 594 233 v scale_length;
|
|
#X text 799 66 major/dorian/phrygian/lydian/mixolydian/minor/locrian
|
|
;
|
|
#X text 232 10 thingy for playing chords. TODO more scales \, chord
|
|
types \, inversions \, extensions \, chromatic notes \, the fun chord
|
|
stuff. Also better interface. Also less mess.;
|
|
#X obj 594 258 v mode;
|
|
#X msg 801 90 \; scale 0 2 2 1 2 2 2 1 \; scale_length 7 \; mode 0
|
|
;
|
|
#X msg 764 414 \; mode \$1;
|
|
#X floatatom 765 372 5 0 7 0 - - -;
|
|
#X obj 201 484 + 0;
|
|
#X obj 83 61 t a a a;
|
|
#X msg 173 66 \$1;
|
|
#X obj 173 91 s state;
|
|
#X obj 224 510 r state;
|
|
#X obj 224 535 * 127;
|
|
#X obj 291 109 print;
|
|
#X obj 115 119 unpack f f f;
|
|
#X connect 2 0 1 2;
|
|
#X connect 3 0 10 0;
|
|
#X connect 4 0 7 0;
|
|
#X connect 4 1 3 0;
|
|
#X connect 4 2 5 0;
|
|
#X connect 5 0 11 0;
|
|
#X connect 6 0 22 0;
|
|
#X connect 7 0 32 0;
|
|
#X connect 7 1 14 0;
|
|
#X connect 8 0 9 0;
|
|
#X connect 9 0 22 0;
|
|
#X connect 10 0 15 0;
|
|
#X connect 10 1 16 0;
|
|
#X connect 11 0 17 0;
|
|
#X connect 11 1 18 0;
|
|
#X connect 12 0 22 0;
|
|
#X connect 13 0 12 0;
|
|
#X connect 14 0 29 0;
|
|
#X connect 15 0 8 0;
|
|
#X connect 16 0 30 0;
|
|
#X connect 17 0 13 0;
|
|
#X connect 18 0 31 0;
|
|
#X connect 19 0 41 0;
|
|
#X connect 20 0 4 0;
|
|
#X connect 21 0 19 0;
|
|
#X connect 22 0 40 0;
|
|
#X connect 23 0 20 1;
|
|
#X connect 24 0 19 0;
|
|
#X connect 25 0 26 0;
|
|
#X connect 28 0 20 0;
|
|
#X connect 28 1 23 0;
|
|
#X connect 29 0 6 1;
|
|
#X connect 30 0 9 1;
|
|
#X connect 31 0 12 1;
|
|
#X connect 32 0 6 0;
|
|
#X connect 39 0 38 0;
|
|
#X connect 40 0 1 0;
|
|
#X connect 41 0 25 0;
|
|
#X connect 41 1 47 0;
|
|
#X connect 41 2 42 0;
|
|
#X connect 42 0 43 0;
|
|
#X connect 42 0 46 0;
|
|
#X connect 44 0 45 0;
|
|
#X connect 45 0 1 1;
|
|
#X connect 47 1 28 0;
|