add [musicmouse] and [scaledegree]

Author: michaelpace

musicmouse.pd

@@ -0,0 +1,66 @@
+#N canvas 121 159 918 572 12;
+#X obj 128 107 f;
+#X obj 388 107 f;
+#X obj 128 131 scaled 0 1 32 97;
+#X obj 128 155 i;
+#X obj 128 203 t f f;
+#X obj 160 227 / 12;
+#X floatatom 276 281 5 0 0 0 - - - 0;
+#X obj 128 227 % 12;
+#X floatatom 128 299 5 0 0 0 - - - 0;
+#X obj 160 251 i;
+#X floatatom 312 208 5 0 0 0 - - - 0;
+#X obj 128 346 unpack f f f f;
+#X obj 276 304 * 12;
+#X obj 128 370 +;
+#X obj 160 370 +;
+#X obj 191 370 +;
+#X floatatom 276 328 5 0 0 0 - - - 0;
+#X floatatom 128 251 5 0 0 0 - - - 0;
+#X obj 388 131 scaled 0 1 32 97;
+#X obj 388 155 i;
+#X floatatom 572 208 5 0 0 0 - - - 0;
+#X floatatom 75 370 5 0 0 0 - - - 0;
+#X obj 128 76 inlet;
+#X obj 388 69 inlet;
+#X obj 128 394 outlet;
+#X obj 180 394 outlet;
+#X obj 231 394 outlet;
+#X obj 388 394 outlet;
+#X obj 128 179 quantizedmode \$1;
+#X obj 388 179 quantizedmode \$1;
+#X obj 128 322 chord \$1;
+#X obj 128 275 scaledegree \$1;
+#X connect 0 0 2 0;
+#X connect 1 0 18 0;
+#X connect 2 0 3 0;
+#X connect 3 0 28 0;
+#X connect 4 0 7 0;
+#X connect 4 1 5 0;
+#X connect 5 0 9 0;
+#X connect 6 0 12 0;
+#X connect 7 0 17 0;
+#X connect 8 0 30 0;
+#X connect 9 0 6 0;
+#X connect 11 0 13 0;
+#X connect 11 0 21 0;
+#X connect 11 1 14 0;
+#X connect 11 2 15 0;
+#X connect 12 0 16 0;
+#X connect 13 0 24 0;
+#X connect 14 0 25 0;
+#X connect 15 0 26 0;
+#X connect 16 0 15 1;
+#X connect 16 0 14 1;
+#X connect 16 0 13 1;
+#X connect 17 0 31 0;
+#X connect 18 0 19 0;
+#X connect 19 0 29 0;
+#X connect 22 0 0 0;
+#X connect 23 0 1 0;
+#X connect 28 0 4 0;
+#X connect 28 0 10 0;
+#X connect 29 0 20 0;
+#X connect 29 0 27 0;
+#X connect 30 0 11 0;
+#X connect 31 0 8 0;

scaledegree.pd

@@ -0,0 +1,82 @@
+#N canvas 92 130 1389 440 12;
+#X msg 192 133 0 2 4 5 7 9 11;
+#X msg 315 133 0 2 3 5 7 9 10;
+#X msg 439 133 0 1 3 5 7 8 10;
+#X msg 562 133 0 2 4 6 7 9 11;
+#X msg 686 133 0 2 4 5 7 9 10;
+#X msg 809 133 0 2 3 5 7 8 10;
+#X msg 933 133 0 1 3 5 6 8 10;
+#X obj 1177 133 print INVALID MODE;
+#X obj 192 85 symbol \$1;
+#X obj 192 61 loadbang;
+#X msg 1051 133 0 2 3 5 7 8 11;
+#X obj 192 109 sel ionian dorian phrygian lydian mixolydian aeolian
+locrian harmonicminor, f 141;
+#X obj 192 157 unpack f f f f f f f;
+#X obj 143 11 inlet;
+#X obj 143 169 i;
+#X obj 143 193 % 12;
+#X obj 143 217 sel;
+#X obj 171 241 sel;
+#X obj 199 265 sel;
+#X obj 227 289 sel;
+#X obj 255 313 sel;
+#X obj 283 337 sel;
+#X obj 311 361 sel;
+#X msg 143 385 1;
+#X msg 171 385 2;
+#X msg 199 385 3;
+#X msg 227 385 4;
+#X msg 255 385 5;
+#X msg 283 385 6;
+#X msg 311 385 7;
+#X obj 143 409 outlet;
+#X connect 0 0 12 0;
+#X connect 1 0 12 0;
+#X connect 2 0 12 0;
+#X connect 3 0 12 0;
+#X connect 4 0 12 0;
+#X connect 5 0 12 0;
+#X connect 6 0 12 0;
+#X connect 8 0 11 0;
+#X connect 9 0 8 0;
+#X connect 10 0 12 0;
+#X connect 11 0 0 0;
+#X connect 11 1 1 0;
+#X connect 11 2 2 0;
+#X connect 11 3 3 0;
+#X connect 11 4 4 0;
+#X connect 11 5 5 0;
+#X connect 11 6 6 0;
+#X connect 11 7 10 0;
+#X connect 11 8 7 0;
+#X connect 12 0 16 1;
+#X connect 12 1 17 1;
+#X connect 12 2 18 1;
+#X connect 12 3 19 1;
+#X connect 12 4 20 1;
+#X connect 12 5 21 1;
+#X connect 12 6 22 1;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 16 0 23 0;
+#X connect 16 1 17 0;
+#X connect 17 0 24 0;
+#X connect 17 1 18 0;
+#X connect 18 0 25 0;
+#X connect 18 1 19 0;
+#X connect 19 0 26 0;
+#X connect 19 1 20 0;
+#X connect 20 0 27 0;
+#X connect 20 1 21 0;
+#X connect 21 0 28 0;
+#X connect 21 1 22 0;
+#X connect 22 0 29 0;
+#X connect 23 0 30 0;
+#X connect 24 0 30 0;
+#X connect 25 0 30 0;
+#X connect 26 0 30 0;
+#X connect 27 0 30 0;
+#X connect 28 0 30 0;
+#X connect 29 0 30 0;