soloing function for note-learner

svn path=/trunk/abstractions/senderfruit/; revision=10269

1 files changed, 106 insertions, 88 deletions

diff --git a/controctopus/note-learner.pd b/controctopus/note-learner.pd
index 75179f9..2b7a77b 100644
--- a/controctopus/note-learner.pd
+++ b/controctopus/note-learner.pd
@@ -1,10 +1,10 @@
-#N canvas 351 22 1051 667 10;
+#N canvas 339 313 1051 667 10;
 #X obj 358 266 select;
 #X obj 385 327 f;
 #X obj 358 389 pack;
 #X obj 358 297 t b b;
 #X obj 102 293 nbx 2 14 1 128 0 0 \$0-padNumber \$0-padNumberR Pad
-32 7 0 11 -154432 -1 -1 65 256;
+32 7 0 11 -154432 -1 -1 1 256;
 #X obj 102 276 nbx 2 14 0 127 0 0 \$0-noteNumber \$0-noteNumberLearn
 Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 442 406 outlet;
@@ -21,7 +21,7 @@ Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 358 229 spigot;
 #X obj 152 263 nbx 2 13 1 64 0 0 \$0devNo \$1/devNo empty 0 -6 0 10
 -110565 -1 -1 1 256;
-#X msg 733 461 65;
+#X msg 733 461 1;
 #X obj 733 493 pack;
 #X msg 792 444 set \$1;
 #X obj 801 336 r \$0-noteNumber;
@@ -30,7 +30,6 @@ Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 724 62 polytouchin;
 #X obj 722 383 spigot;
 #X obj 733 435 t b f;
-#X obj 41 470 originator-p \$1 \$0;
 #X obj 41 411 instance lnote;
 #X obj 41 436 s \$0-padNumberR;
 #X obj 722 284 / 127;
@@ -99,9 +98,6 @@ Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 788 243 + 1;
 #X obj 358 549 s \$1\$2/note;
 #X obj 733 522 s \$1\$2/tch;
-#X obj 42 316 commun-c \$2-channel \$0;
-#X obj 42 334 commun-c \$2-note \$0;
-#X obj 42 352 commun-c \$2-pad \$0;
 #X obj 722 166 t a;
 #X obj 755 166 t a;
 #X obj 791 166 t a;
@@ -167,98 +163,120 @@ Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 522 583 list prepend \$3;
 #X msg 522 604 symbol \$1\$2/trigger/in;
 #X obj 507 538 != 0;
+#X obj 942 505 r \$1/solo;
+#X obj 942 527 sel 0;
+#X obj 969 551 sel \$2;
+#X msg 942 585 1;
+#X obj 942 615 s \$0.solo?;
+#X msg 1002 585 0;
+#X obj 229 162 ifspigot \$0.solo? t 1;
+#X obj 43 354 sssadie/sssad-lg \$1 \$2/pad;
+#X obj 43 335 sssadie/sssad-lg \$1 \$2/note;
+#X obj 43 316 sssadie/sssad-lg \$1 \$2/channel;
+#X floatatom 352 192 5 0 0 0 - - -;
+#X obj 1002 524 print;
 #X connect 0 0 3 0;
 #X connect 1 0 2 1;
-#X connect 1 0 62 0;
-#X connect 1 0 84 0;
+#X connect 1 0 58 0;
+#X connect 1 0 80 0;
 #X connect 2 0 6 0;
-#X connect 2 0 68 0;
-#X connect 2 0 53 0;
-#X connect 3 0 71 0;
+#X connect 2 0 64 0;
+#X connect 2 0 52 0;
+#X connect 3 0 67 0;
 #X connect 3 1 1 0;
-#X connect 4 0 57 0;
-#X connect 5 0 56 0;
+#X connect 4 0 99 1;
+#X connect 5 0 100 1;
 #X connect 11 0 0 1;
-#X connect 12 0 71 1;
+#X connect 12 0 67 1;
 #X connect 13 0 0 0;
-#X connect 14 0 55 0;
+#X connect 14 0 101 1;
 #X connect 15 0 16 0;
-#X connect 16 0 54 0;
+#X connect 16 0 53 0;
 #X connect 17 0 15 0;
-#X connect 18 0 35 1;
+#X connect 18 0 34 1;
 #X connect 19 0 17 0;
-#X connect 20 0 35 0;
-#X connect 21 0 58 0;
-#X connect 21 1 59 0;
-#X connect 21 2 60 0;
-#X connect 22 0 61 0;
+#X connect 20 0 34 0;
+#X connect 21 0 54 0;
+#X connect 21 1 55 0;
+#X connect 21 2 56 0;
+#X connect 22 0 57 0;
 #X connect 23 0 15 0;
 #X connect 23 1 16 1;
-#X connect 25 0 26 0;
-#X connect 27 0 22 0;
-#X connect 28 0 1 1;
-#X connect 29 0 8 0;
-#X connect 29 1 9 0;
-#X connect 29 2 10 0;
-#X connect 30 0 13 0;
-#X connect 30 0 29 0;
-#X connect 31 0 28 0;
-#X connect 32 0 41 0;
-#X connect 33 0 30 0;
-#X connect 33 1 31 0;
-#X connect 33 2 32 0;
-#X connect 35 0 22 1;
-#X connect 37 0 45 0;
-#X connect 38 0 13 1;
-#X connect 39 0 38 1;
-#X connect 40 0 42 0;
-#X connect 41 0 37 0;
-#X connect 41 1 40 0;
-#X connect 43 0 44 0;
-#X connect 44 0 42 0;
-#X connect 45 0 38 0;
-#X connect 46 0 52 0;
-#X connect 47 0 20 1;
-#X connect 48 0 47 1;
-#X connect 49 0 51 0;
-#X connect 50 0 46 0;
-#X connect 50 1 49 0;
-#X connect 52 0 47 0;
-#X connect 55 0 14 0;
-#X connect 56 0 5 0;
-#X connect 57 0 4 0;
-#X connect 58 0 27 0;
-#X connect 59 0 20 0;
-#X connect 60 0 50 0;
-#X connect 61 0 23 0;
-#X connect 61 0 36 0;
-#X connect 62 1 77 0;
-#X connect 66 0 30 0;
-#X connect 66 1 31 0;
-#X connect 66 2 32 0;
-#X connect 67 0 58 0;
-#X connect 67 1 59 0;
-#X connect 67 2 60 0;
-#X connect 68 0 69 0;
-#X connect 70 0 53 0;
+#X connect 24 0 25 0;
+#X connect 26 0 22 0;
+#X connect 27 0 1 1;
+#X connect 28 0 8 0;
+#X connect 28 1 9 0;
+#X connect 28 2 10 0;
+#X connect 29 0 28 0;
+#X connect 29 0 98 0;
+#X connect 30 0 27 0;
+#X connect 31 0 40 0;
+#X connect 32 0 29 0;
+#X connect 32 1 30 0;
+#X connect 32 2 31 0;
+#X connect 34 0 22 1;
+#X connect 36 0 44 0;
+#X connect 37 0 13 1;
+#X connect 38 0 37 1;
+#X connect 39 0 41 0;
+#X connect 40 0 36 0;
+#X connect 40 1 39 0;
+#X connect 42 0 43 0;
+#X connect 43 0 41 0;
+#X connect 44 0 37 0;
+#X connect 45 0 51 0;
+#X connect 46 0 20 1;
+#X connect 47 0 46 1;
+#X connect 48 0 50 0;
+#X connect 49 0 45 0;
+#X connect 49 1 48 0;
+#X connect 51 0 46 0;
+#X connect 54 0 26 0;
+#X connect 55 0 20 0;
+#X connect 56 0 49 0;
+#X connect 57 0 23 0;
+#X connect 57 0 35 0;
+#X connect 58 1 73 0;
+#X connect 62 0 29 0;
+#X connect 62 1 30 0;
+#X connect 62 2 31 0;
+#X connect 63 0 54 0;
+#X connect 63 1 55 0;
+#X connect 63 2 56 0;
+#X connect 64 0 65 0;
+#X connect 66 0 52 0;
+#X connect 67 0 68 0;
+#X connect 67 0 79 0;
+#X connect 68 0 2 0;
+#X connect 70 0 71 0;
 #X connect 71 0 72 0;
-#X connect 71 0 83 0;
-#X connect 72 0 2 0;
-#X connect 74 0 75 0;
-#X connect 75 0 76 0;
-#X connect 76 0 73 1;
-#X connect 78 0 61 0;
-#X connect 79 0 73 0;
-#X connect 80 0 36 1;
-#X connect 81 0 80 0;
-#X connect 82 0 81 0;
-#X connect 86 0 87 0;
-#X connect 87 0 88 0;
-#X connect 88 0 85 1;
-#X connect 89 0 85 0;
-#X connect 90 0 95 0;
+#X connect 72 0 69 1;
+#X connect 74 0 57 0;
+#X connect 75 0 69 0;
+#X connect 76 0 35 1;
+#X connect 77 0 76 0;
+#X connect 78 0 77 0;
+#X connect 82 0 83 0;
+#X connect 83 0 84 0;
+#X connect 84 0 81 1;
+#X connect 85 0 81 0;
+#X connect 86 0 91 0;
+#X connect 88 0 89 0;
+#X connect 89 0 90 0;
+#X connect 90 0 87 1;
+#X connect 91 0 87 0;
 #X connect 92 0 93 0;
-#X connect 93 0 94 0;
-#X connect 94 0 91 1;
-#X connect 95 0 91 0;
+#X connect 92 0 103 0;
+#X connect 93 0 95 0;
+#X connect 93 1 94 0;
+#X connect 94 0 95 0;
+#X connect 94 1 97 0;
+#X connect 95 0 96 0;
+#X connect 97 0 96 0;
+#X connect 98 0 13 0;
+#X connect 98 1 102 0;
+#X connect 99 0 4 0;
+#X connect 100 0 5 0;
+#X connect 101 0 14 0;
 #X coords 0 -1 1 1 81 60 1 100 250;