From 20735f12c140e91faa23905886de3a57ba251f39 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Mon, 14 Jul 2008 11:22:39 +0000
Subject: cleaned up, generalized interface for directing output to an
 OSC-style address

svn path=/trunk/abstractions/senderfruit/; revision=10165
---
 controctopus/note-learner.pd | 153 +++++++++++++++++++++++--------------------
 1 file changed, 83 insertions(+), 70 deletions(-)

diff --git a/controctopus/note-learner.pd b/controctopus/note-learner.pd
index ea68dd7..97d7134 100644
--- a/controctopus/note-learner.pd
+++ b/controctopus/note-learner.pd
@@ -1,12 +1,12 @@
-#N canvas 62 463 1051 667 10;
+#N canvas 351 22 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 1 256;
+32 7 0 11 -154432 -1 -1 2 256;
 #X obj 102 276 nbx 2 14 0 127 0 0 \$0-noteNumber \$0-noteNumberLearn
-Note 32 7 0 11 -260624 -1 -1 36 256;
+Note 32 7 0 11 -260624 -1 -1 0 256;
 #X obj 442 406 outlet;
 #X obj 137 263 bng 13 250 50 0 \$0-learnOn empty empty 0 -6 0 8 -259541
 -1 -1;
@@ -21,11 +21,11 @@ Note 32 7 0 11 -260624 -1 -1 36 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 1;
+#X msg 733 461 2;
 #X obj 733 493 pack;
-#X msg 792 445 set \$1;
+#X msg 792 444 set \$1;
 #X obj 801 336 r \$0-noteNumber;
-#X obj 792 421 r \$0-padNumber;
+#X obj 792 420 r \$0-padNumber;
 #X obj 755 314 spigot;
 #X obj 724 62 polytouchin;
 #X obj 722 383 spigot;
@@ -72,20 +72,16 @@ Note 32 7 0 11 -260624 -1 -1 36 256;
 #X connect 12 0 3 0;
 #X connect 12 0 7 0;
 #X connect 16 0 2 0;
-#X restore 75 164 pd midiLearn;
+#X restore 80 164 pd midiLearn;
 #X obj 336 104 t a;
 #X obj 365 104 t a;
 #X obj 395 104 t a;
-#X obj 347 53 notein;
+#X obj 349 53 notein;
 #X text 351 17 Intercepts for looping back MIDI (e.g. from sft.schoen)
 ;
 #X obj 755 353 ==;
 #X obj 308 632 s;
-#X msg 323 610 symbol /sfs\$1/note/in;
-#X obj 323 587 r \$0-padNumber;
-#X obj 737 547 r \$0-padNumber;
-#X obj 722 590 s;
-#X msg 737 568 symbol /sfs\$1/polytouch/in;
+#X obj 722 610 s;
 #X obj 391 138 div 16;
 #X obj 391 198 ==;
 #X obj 406 176 r \$0devNo;
@@ -112,12 +108,10 @@ Note 32 7 0 11 -260624 -1 -1 36 256;
 #X obj 791 166 t a;
 #X obj 722 408 t a;
 #X obj 415 327 sel 0;
-#X obj 456 327 s \$0polyRelay;
-#X obj 625 383 r \$0polyRelay;
 #X text 532 345 Relay initial velocity;
 #X text 532 361 to polytouch to remove;
 #X text 532 377 delay;
-#X obj 230 54 nr sft.notein 3;
+#X obj 241 53 nr sft.notein 3;
 #X obj 814 62 nr sft.polytouchin 3;
 #X obj 388 438 prepent set;
 #X obj 388 460 s \$1\$2/GUIR;
@@ -151,31 +145,44 @@ Note 32 7 0 11 -260624 -1 -1 36 256;
 #X connect 10 2 11 0;
 #X connect 11 0 12 0;
 #X restore 358 349 pd padSelect;
+#X obj 501 627 s;
+#X obj 516 562 r \$0-padNumber;
+#X obj 516 583 list prepend \$3;
+#X msg 516 604 symbol \$1\$2/velocity/in;
+#X obj 456 327 s \$0velocity;
+#X obj 625 391 r \$0velocity;
+#X obj 501 542 r \$0velocity;
+#X obj 335 589 r \$0-padNumber;
+#X obj 335 610 list prepend \$3;
+#X msg 335 632 symbol \$1\$2/note/in;
+#X msg 737 588 symbol \$1\$2/polytouch/in;
+#X obj 737 567 list prepend \$3;
+#X obj 737 547 r \$0-padNumber;
 #X connect 0 0 3 0;
 #X connect 1 0 2 1;
-#X connect 1 0 67 0;
+#X connect 1 0 63 0;
 #X connect 2 0 6 0;
 #X connect 2 0 36 0;
-#X connect 2 0 75 0;
-#X connect 2 0 58 0;
-#X connect 3 0 78 0;
+#X connect 2 0 69 0;
+#X connect 2 0 54 0;
+#X connect 3 0 72 0;
 #X connect 3 1 1 0;
-#X connect 4 0 62 0;
-#X connect 5 0 61 0;
+#X connect 4 0 58 0;
+#X connect 5 0 57 0;
 #X connect 11 0 0 1;
-#X connect 12 0 78 1;
+#X connect 12 0 72 1;
 #X connect 13 0 0 0;
-#X connect 14 0 60 0;
+#X connect 14 0 56 0;
 #X connect 15 0 16 0;
-#X connect 16 0 59 0;
+#X connect 16 0 55 0;
 #X connect 17 0 15 0;
 #X connect 18 0 35 1;
 #X connect 19 0 17 0;
 #X connect 20 0 35 0;
-#X connect 21 0 63 0;
-#X connect 21 1 64 0;
-#X connect 21 2 65 0;
-#X connect 22 0 66 0;
+#X connect 21 0 59 0;
+#X connect 21 1 60 0;
+#X connect 21 2 61 0;
+#X connect 22 0 62 0;
 #X connect 23 0 15 0;
 #X connect 23 1 16 1;
 #X connect 25 0 26 0;
@@ -187,50 +194,56 @@ Note 32 7 0 11 -260624 -1 -1 36 256;
 #X connect 30 0 13 0;
 #X connect 30 0 29 0;
 #X connect 31 0 28 0;
-#X connect 32 0 46 0;
+#X connect 32 0 42 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 36 1;
-#X connect 38 0 37 0;
-#X connect 39 0 41 0;
-#X connect 41 0 40 1;
-#X connect 42 0 50 0;
-#X connect 43 0 13 1;
-#X connect 44 0 43 1;
-#X connect 45 0 47 0;
-#X connect 46 0 42 0;
-#X connect 46 1 45 0;
-#X connect 48 0 49 0;
-#X connect 49 0 47 0;
-#X connect 50 0 43 0;
-#X connect 51 0 57 0;
-#X connect 52 0 20 1;
-#X connect 53 0 52 1;
-#X connect 54 0 56 0;
-#X connect 55 0 51 0;
-#X connect 55 1 54 0;
-#X connect 57 0 52 0;
-#X connect 60 0 14 0;
-#X connect 61 0 5 0;
-#X connect 62 0 4 0;
-#X connect 63 0 27 0;
-#X connect 64 0 20 0;
-#X connect 65 0 55 0;
-#X connect 66 0 23 0;
-#X connect 66 0 40 0;
-#X connect 67 1 68 0;
-#X connect 69 0 66 0;
-#X connect 73 0 30 0;
-#X connect 73 1 31 0;
-#X connect 73 2 32 0;
-#X connect 74 0 63 0;
-#X connect 74 1 64 0;
-#X connect 74 2 65 0;
+#X connect 38 0 46 0;
+#X connect 39 0 13 1;
+#X connect 40 0 39 1;
+#X connect 41 0 43 0;
+#X connect 42 0 38 0;
+#X connect 42 1 41 0;
+#X connect 44 0 45 0;
+#X connect 45 0 43 0;
+#X connect 46 0 39 0;
+#X connect 47 0 53 0;
+#X connect 48 0 20 1;
+#X connect 49 0 48 1;
+#X connect 50 0 52 0;
+#X connect 51 0 47 0;
+#X connect 51 1 50 0;
+#X connect 53 0 48 0;
+#X connect 56 0 14 0;
+#X connect 57 0 5 0;
+#X connect 58 0 4 0;
+#X connect 59 0 27 0;
+#X connect 60 0 20 0;
+#X connect 61 0 51 0;
+#X connect 62 0 23 0;
+#X connect 62 0 37 0;
+#X connect 63 1 78 0;
+#X connect 67 0 30 0;
+#X connect 67 1 31 0;
+#X connect 67 2 32 0;
+#X connect 68 0 59 0;
+#X connect 68 1 60 0;
+#X connect 68 2 61 0;
+#X connect 69 0 70 0;
+#X connect 71 0 54 0;
+#X connect 71 0 36 0;
+#X connect 72 0 73 0;
+#X connect 73 0 2 0;
 #X connect 75 0 76 0;
-#X connect 77 0 58 0;
-#X connect 77 0 36 0;
-#X connect 78 0 79 0;
-#X connect 79 0 2 0;
+#X connect 76 0 77 0;
+#X connect 77 0 74 1;
+#X connect 79 0 62 0;
+#X connect 80 0 74 0;
+#X connect 81 0 82 0;
+#X connect 82 0 83 0;
+#X connect 83 0 36 1;
+#X connect 84 0 37 1;
+#X connect 85 0 84 0;
+#X connect 86 0 85 0;
 #X coords 0 -1 1 1 81 60 1 100 250;
-- 
cgit v1.2.1