From 6f03ce6f2bee8102babead9adc06b3551acac85c Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Fri, 8 Feb 2008 09:51:34 +0000
Subject: initial import from my personal svn

svn path=/trunk/abstractions/senderfruit/; revision=9380
---
 controctopus/note-learner.pd | 222 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 222 insertions(+)
 create mode 100644 controctopus/note-learner.pd

(limited to 'controctopus/note-learner.pd')

diff --git a/controctopus/note-learner.pd b/controctopus/note-learner.pd
new file mode 100644
index 0000000..0509556
--- /dev/null
+++ b/controctopus/note-learner.pd
@@ -0,0 +1,222 @@
+#N canvas 198 173 1083 643 10;
+#X obj 358 266 select;
+#X obj 388 327 f;
+#X msg 358 327 1;
+#X obj 358 359 pack;
+#X obj 358 297 t b b;
+#X msg 238 311 set \$1;
+#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;
+#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 375 outlet;
+#X obj 137 263 bng 13 250 50 0 \$0-learnOn empty empty 0 -6 0 8 -259541
+-1 -1;
+#X obj 103 265 bng 8 250 50 0 empty empty empty 0 -6 0 8 -1 -262085
+-1;
+#X obj 114 265 bng 8 250 50 0 empty empty empty 0 -6 0 8 -1 -262085
+-1;
+#X obj 125 265 bng 8 250 50 0 empty empty empty 0 -6 0 8 -1 -262085
+-1;
+#X obj 412 250 r \$0-noteNumber;
+#X obj 238 286 r \$0-padNumber;
+#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 obj 733 493 pack;
+#X msg 792 445 set \$1;
+#X obj 804 337 r \$0-noteNumber;
+#X obj 792 421 r \$0-padNumber;
+#X obj 758 314 spigot;
+#X obj 722 62 polytouchin;
+#X obj 722 383 spigot;
+#X obj 733 435 t b f;
+#X obj 41 470 sft.originator \$1 \$0;
+#X obj 405 457 list;
+#X obj 398 386 t b l;
+#X obj 405 480 list trim;
+#X obj 405 432 r \$1/bangr;
+#X obj 398 410 s \$1/bang;
+#X obj 227 434 s lastPad;
+#X obj 41 411 sft.instance lnote;
+#X obj 41 436 s \$0-padNumberR;
+#X obj 722 284 / 127;
+#X obj 404 302 / 127;
+#X obj 227 407 spigot;
+#X obj 264 382 r lastPadTgl;
+#N canvas 73 463 470 331 midiLearn 0;
+#X text 288 89 Route Number;
+#X obj 24 18 r \$0-learnOn;
+#X obj 230 119 spigot;
+#X obj 267 95 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 24 170 metro 250;
+#X obj 24 198 count 3;
+#X obj 24 227 route 0 1 2;
+#X obj 73 80 t b b;
+#X obj 24 145 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X msg 73 141 reset;
+#X text 337 62 Learn Time-Window;
+#X obj 230 141 s \$0-noteNumberLearn;
+#X obj 267 62 pipe 1000;
+#X obj 24 300 outlet;
+#X obj 48 280 outlet;
+#X obj 72 260 outlet;
+#X obj 230 14 inlet;
+#X connect 1 0 3 0;
+#X connect 1 0 8 0;
+#X connect 1 0 12 0;
+#X connect 2 0 11 0;
+#X connect 3 0 2 1;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 13 0;
+#X connect 6 1 14 0;
+#X connect 6 2 15 0;
+#X connect 7 0 9 0;
+#X connect 7 1 8 0;
+#X connect 8 0 4 0;
+#X connect 9 0 5 0;
+#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 obj 336 106 t a;
+#X obj 365 106 t a;
+#X obj 395 106 t a;
+#X obj 347 55 notein;
+#X text 351 17 Intercepts for looping back MIDI (e.g. from sft.schoen)
+;
+#X obj 758 353 ==;
+#X obj 358 592 s;
+#X msg 374 570 symbol /sfs\$1/note/in;
+#X obj 374 547 r \$0-padNumber;
+#X obj 738 547 r \$0-padNumber;
+#X obj 722 590 s;
+#X msg 738 568 symbol /sfs\$1/polytouch/in;
+#X obj 395 138 div 16;
+#X obj 395 198 ==;
+#X obj 411 176 r \$0devNo;
+#X obj 486 152 mod 16;
+#X obj 456 122 t f f;
+#X obj 486 172 s \$0channel;
+#X obj 579 134 loadbang;
+#X msg 579 156 1;
+#X obj 395 157 + 1;
+#X obj 795 224 div 16;
+#X obj 795 284 ==;
+#X obj 811 262 r \$0devNo;
+#X obj 886 238 mod 16;
+#X obj 856 208 t f f;
+#X obj 886 258 s \$0channel;
+#X obj 979 220 loadbang;
+#X msg 979 242 1;
+#X obj 795 243 + 1;
+#X obj 405 504 s \$1\$2/note;
+#X obj 733 522 s \$1\$2/tch;
+#X obj 42 316 sft.commun \$2-channel \$0;
+#X obj 42 334 sft.commun \$2-note \$0;
+#X obj 42 352 sft.commun \$2-pad \$0;
+#X obj 722 166 t a;
+#X obj 758 166 t a;
+#X obj 794 166 t a;
+#X obj 722 408 t a;
+#X obj 418 327 sel 0;
+#X obj 459 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 56 nr sft.notein 3;
+#X obj 814 62 nr sft.polytouchin 3;
+#X connect 0 0 4 0;
+#X connect 1 0 3 1;
+#X connect 1 0 79 0;
+#X connect 2 0 3 0;
+#X connect 2 0 37 0;
+#X connect 3 0 8 0;
+#X connect 3 0 28 0;
+#X connect 3 0 46 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 0;
+#X connect 5 0 2 0;
+#X connect 6 0 74 0;
+#X connect 7 0 73 0;
+#X connect 13 0 0 1;
+#X connect 14 0 5 0;
+#X connect 15 0 0 0;
+#X connect 16 0 72 0;
+#X connect 17 0 18 0;
+#X connect 18 0 71 0;
+#X connect 19 0 17 0;
+#X connect 20 0 45 1;
+#X connect 21 0 19 0;
+#X connect 22 0 45 0;
+#X connect 23 0 75 0;
+#X connect 23 1 76 0;
+#X connect 23 2 77 0;
+#X connect 24 0 78 0;
+#X connect 25 0 17 0;
+#X connect 25 1 18 1;
+#X connect 27 0 29 0;
+#X connect 28 0 31 0;
+#X connect 28 1 27 1;
+#X connect 29 0 70 0;
+#X connect 30 0 27 0;
+#X connect 33 0 34 0;
+#X connect 35 0 24 0;
+#X connect 36 0 1 1;
+#X connect 37 0 32 0;
+#X connect 38 0 37 1;
+#X connect 39 0 10 0;
+#X connect 39 1 11 0;
+#X connect 39 2 12 0;
+#X connect 40 0 15 0;
+#X connect 40 0 39 0;
+#X connect 41 0 36 0;
+#X connect 42 0 56 0;
+#X connect 43 0 40 0;
+#X connect 43 1 41 0;
+#X connect 43 2 42 0;
+#X connect 45 0 24 1;
+#X connect 47 0 46 1;
+#X connect 48 0 47 0;
+#X connect 49 0 51 0;
+#X connect 51 0 50 1;
+#X connect 52 0 60 0;
+#X connect 53 0 15 1;
+#X connect 54 0 53 1;
+#X connect 55 0 57 0;
+#X connect 56 0 52 0;
+#X connect 56 1 55 0;
+#X connect 58 0 59 0;
+#X connect 59 0 57 0;
+#X connect 60 0 53 0;
+#X connect 61 0 69 0;
+#X connect 62 0 22 1;
+#X connect 63 0 62 1;
+#X connect 64 0 66 0;
+#X connect 65 0 61 0;
+#X connect 65 1 64 0;
+#X connect 67 0 68 0;
+#X connect 68 0 66 0;
+#X connect 69 0 62 0;
+#X connect 72 0 16 0;
+#X connect 73 0 7 0;
+#X connect 74 0 6 0;
+#X connect 75 0 35 0;
+#X connect 76 0 22 0;
+#X connect 77 0 65 0;
+#X connect 78 0 25 0;
+#X connect 78 0 50 0;
+#X connect 79 1 80 0;
+#X connect 81 0 78 0;
+#X connect 85 0 40 0;
+#X connect 85 1 41 0;
+#X connect 85 2 42 0;
+#X connect 86 0 75 0;
+#X connect 86 1 76 0;
+#X connect 86 2 77 0;
+#X coords 0 -1 1 1 81 60 1 100 250;
-- 
cgit v1.2.1