From 37d975c6840d568581af991905854d55dd2a55bd Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Thu, 20 Nov 2008 11:19:46 +0000 Subject: added support for mmmap, removed declare/import, lots of tidying svn path=/trunk/abstractions/sfruit/; revision=10371 --- controctopus/cc-learner.pd | 279 +++++++++++-------- controctopus/midi-tentacle-multi.pd | 32 +-- controctopus/midi-tentacle.pd | 38 +-- controctopus/note-learner.pd | 526 +++++++++++++++++++----------------- 4 files changed, 477 insertions(+), 398 deletions(-) diff --git a/controctopus/cc-learner.pd b/controctopus/cc-learner.pd index 9e2a883..0f13eb3 100644 --- a/controctopus/cc-learner.pd +++ b/controctopus/cc-learner.pd @@ -1,145 +1,188 @@ -#N canvas 730 32 629 668 10; -#X obj 60 46 nbx 3 14 0 127 0 1 \$0-ccNumber \$0-ccNumberLearn CC 42 -8 0 11 -194624 -1 -1 1 256; -#X obj 63 64 bng 13 250 50 0 \$0-learnOn \$0nullR empty 0 -6 0 8 -259541 --1 -1; -#X obj 353 200 r \$0-ccNumber; -#X obj 81 67 bng 8 250 50 0 empty \$0lite1 empty 0 -6 0 8 -1 -262085 +#N canvas 62 131 629 668 10; +#X obj 60 46 nbx 3 14 0 127 0 1 \$0.cc.s \$0.cc.r CC 42 8 0 11 -194624 +-1 -1 1 256; +#X obj 63 64 bng 13 250 50 0 \$0.learn-on \$0.nullR empty 0 -6 0 8 +-259541 -1 -1; +#X obj 330 208 r \$0.cc.v; +#X obj 81 67 bng 8 250 50 0 empty \$0.lite1 empty 0 -6 0 8 -1 -262085 -1; -#X obj 92 67 bng 8 250 50 0 empty \$0lite2 empty 0 -6 0 8 -1 -262085 +#X obj 92 67 bng 8 250 50 0 empty \$0.lite2 empty 0 -6 0 8 -1 -262085 -1; -#X obj 103 67 bng 8 250 50 0 empty \$0lite3 empty 0 -6 0 8 -1 -262085 +#X obj 103 67 bng 8 250 50 0 empty \$0.lite3 empty 0 -6 0 8 -1 -262085 -1; -#X obj 300 -1 ctlin; -#X obj 60 81 nbx 2 14 1 64 0 0 \$0devNo \$1/devNo Dev 32 8 0 11 -110565 --1 -1 1 256; +#X obj 268 49 ctlin; +#X obj 60 81 nbx 2 14 1 64 0 0 \$0.device-number.s \$0.device-number.r +Dev 32 8 0 11 -110565 -1 -1 1 256; #X obj 315 181 spigot; -#X obj 300 257 spigot; +#X obj 268 267 spigot; #X obj 268 181 / 127; -#N canvas 0 22 458 308 midiLearn 0; -#X obj 217 143 inlet; -#X obj 162 38 r \$0-learnOn; -#X obj 217 177 spigot; -#X obj 74 188 metro 250; -#X obj 58 221 count 3; -#X obj 29 126 t b b; -#X msg 29 189 reset; -#X obj 217 199 s \$0-ccNumberLearn; -#X obj 162 75 pipe 1000; -#X msg 255 74 1; -#X msg 274 118 0; -#X msg 74 150 0; -#X msg 106 150 1; -#X obj 58 251 sel 0 1 2; -#X obj 58 281 s \$0lite1; -#X obj 138 281 s \$0lite2; -#X obj 218 281 s \$0lite3; -#X connect 0 0 2 0; -#X connect 1 0 8 0; -#X connect 1 0 9 0; -#X connect 1 0 12 0; -#X connect 2 0 7 0; -#X connect 3 0 4 0; -#X connect 4 0 13 0; -#X connect 5 0 6 0; -#X connect 5 1 11 0; -#X connect 6 0 4 0; -#X connect 8 0 5 0; -#X connect 8 0 10 0; -#X connect 9 0 2 1; -#X connect 10 0 2 1; -#X connect 11 0 3 0; -#X connect 12 0 3 0; -#X connect 13 0 14 0; -#X connect 13 1 15 0; -#X connect 13 2 16 0; -#X restore 178 180 pd midiLearn; -#X obj 337 229 ==; -#X obj 352 101 div 16; -#X obj 352 161 ==; -#X obj 368 139 r \$0devNo; -#X obj 443 115 mod 16; -#X obj 413 85 t f f; +#X obj 315 237 ==; #X obj 349 566 list append; #X obj 333 611 s; -#X obj 443 135 s \$0channel; -#X msg 224 287 set \$1; -#X obj 300 365 s \$0data; -#X obj 210 467 r \$0data; -#X obj 333 431 r \$0data; -#X obj 493 17 loadbang; -#X msg 493 39 1; +#X msg 294 292 set \$1; +#X obj 268 367 s \$0.data; +#X obj 210 467 r \$0.data; +#X obj 333 431 r \$0.data; +#X obj 32 231 loadbang; +#X msg 32 253 1; #X obj 391 544 t b f; -#X obj 391 522 r \$0channel; -#X obj 352 120 + 1; +#X obj 391 522 r \$0.channel; #X obj 349 500 list append \$2; #X obj 10 570 r \$1/getControls; #X obj 10 620 s \$1/controlsList; #X obj 10 594 list append \$2; -#X obj 224 307 s \$1\$2/GUIR; +#X obj 294 312 s \$1\$2/GUIR; #X obj 210 567 s \$1\$2; -#X obj 224 338 r \$1\$2/GUI; +#X obj 294 343 r \$1\$2/GUI; #X msg 349 587 symbol \$1\$2/Ch\$3; #X obj 349 478 list append \$1; #X text 208 594 Omni; #X obj 10 492 r \$1/setChannel; -#X obj 10 517 s \$0channel; +#X obj 10 517 s \$0.channel; #X obj 51 31 cnv 12 75 12 empty empty \$2 2 7 0 11 -83692 -262144 0 ; #X obj 315 98 t a; #X obj 268 98 t a; -#X obj 352 69 t a; -#X obj 198 1 r sft.ctlin; -#X obj 198 28 unpack f f f; -#X obj 493 65 s \$0channel; +#X obj 348 99 t a; +#X obj 32 279 s \$0.channel; #X obj 222 493 outlet; #X obj 51 98 cnv 10 75 10 empty empty \$1 1 6 0 8 -66577 -171136 0 ; -#X obj 32 129 sssadie/sssad-lg \$2-cc \$0; -#X obj 32 151 sssadie/sssad-lg \$2-device \$0; -#X connect 0 0 51 1; -#X connect 2 0 12 1; -#X connect 6 0 44 0; -#X connect 6 1 43 0; -#X connect 6 2 45 0; -#X connect 7 0 52 1; -#X connect 8 0 12 0; -#X connect 9 0 21 0; -#X connect 9 0 22 0; +#X obj 308 49 nr PDCTLIN 3; +#X obj 32 304 r \$1/devNo; +#X obj 32 329 s \$0.device-number.r; +#N canvas 0 22 450 300 sssad 0; +#X obj 43 89 sssadie/sssadiez \$1 \$2 cc 0 1024 \$0 round; +#X obj 43 109 sssadie/sssadiez \$1 \$2 device-number 0 1024 \$0 round +; +#X restore 26 198 pd sssad; +#N canvas 0 22 458 308 midi-learn 0; +#X obj 217 143 inlet; +#X obj 162 38 r \$0.learn-on; +#X obj 217 177 spigot; +#X obj 74 188 metro 250; +#X obj 29 126 t b b; +#X obj 217 199 s \$0.cc.r; +#X obj 162 75 pipe 1000; +#X msg 255 74 1; +#X msg 274 118 0; +#X msg 74 150 0; +#X msg 106 150 1; +#X obj 58 251 sel 0 1 2; +#X obj 58 281 s \$0.lite1; +#X obj 138 281 s \$0.lite2; +#X obj 218 281 s \$0.lite3; +#X msg 29 189 0; +#X obj 58 221 f; +#X obj 85 221 + 1; +#X obj 112 221 mod 3; +#X connect 0 0 2 0; +#X connect 1 0 6 0; +#X connect 1 0 7 0; +#X connect 1 0 10 0; +#X connect 2 0 5 0; +#X connect 3 0 16 0; +#X connect 4 0 15 0; +#X connect 4 1 9 0; +#X connect 6 0 4 0; +#X connect 6 0 8 0; +#X connect 7 0 2 1; +#X connect 8 0 2 1; +#X connect 9 0 3 0; +#X connect 10 0 3 0; +#X connect 11 0 12 0; +#X connect 11 1 13 0; +#X connect 11 2 14 0; +#X connect 15 0 16 1; +#X connect 16 0 11 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 17 0 16 1; +#X connect 18 0 17 1; +#X restore 366 133 pd midi-learn; +#N canvas 872 119 244 290 parse-channel 0; +#X obj 55 34 inlet; +#X obj 55 241 outlet; +#X obj 55 137 div 16; +#X obj 55 197 ==; +#X obj 71 175 r \$0.device-number; +#X obj 82 88 mod 16; +#X obj 55 67 t f f; +#X obj 82 108 s \$0.channel; +#X obj 55 156 + 1; +#X connect 0 0 6 0; +#X connect 2 0 8 0; +#X connect 3 0 1 0; +#X connect 4 0 3 1; +#X connect 5 0 7 0; +#X connect 6 0 2 0; +#X connect 6 1 5 0; +#X connect 8 0 3 0; +#X restore 348 156 pd parse-channel; +#N canvas 833 52 478 437 midi-sensory 0; +#X obj 73 159 spigot; +#X obj 73 100 r \$0.data; +#X obj 106 134 r MMMAP_SENSING?; +#X obj 219 61 keycommand ¬ MMMAP_SENSING? 1; +#X obj 219 86 keycommand Escape MMMAP_SENSING? 0; +#X obj 73 204 list append \$2; +#X obj 73 181 t b b; +#X msg 110 181 0; +#X obj 139 181 s MMMAP_SENSING?; +#X obj 73 231 s \$1.sensed; +#X obj 77 288 r MMMAP_SENSING?; +#X obj 137 372 s \$1\$2/GUIR; +#X msg 137 348 color \$1 -1 -1; +#X obj 77 313 list-idx-list 0 15; +#X obj 198 288 r \$1\$2.assigning?; +#X obj 198 313 list-idx-list 0 19; +#X connect 0 0 6 0; +#X connect 1 0 0 0; +#X connect 2 0 0 1; +#X connect 5 0 9 0; +#X connect 6 0 5 0; +#X connect 6 1 7 0; +#X connect 7 0 8 0; +#X connect 10 0 13 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; +#X connect 14 0 15 0; +#X connect 15 0 12 0; +#X restore 485 392 pd midi-sensory; +#X text 195 15 cc-learner /unit /control; +#X connect 2 0 11 1; +#X connect 6 0 36 0; +#X connect 6 1 35 0; +#X connect 6 2 37 0; +#X connect 8 0 11 0; +#X connect 9 0 14 0; +#X connect 9 0 15 0; #X connect 10 0 9 0; -#X connect 12 0 9 1; -#X connect 13 0 29 0; -#X connect 14 0 8 1; -#X connect 15 0 14 1; -#X connect 16 0 20 0; +#X connect 11 0 9 1; +#X connect 12 0 29 0; +#X connect 14 0 26 0; +#X connect 16 0 27 0; +#X connect 16 0 39 0; #X connect 17 0 13 0; -#X connect 17 1 16 0; -#X connect 18 0 37 0; -#X connect 21 0 34 0; -#X connect 23 0 35 0; -#X connect 23 0 49 0; -#X connect 24 0 19 0; -#X connect 25 0 26 0; -#X connect 26 0 48 0; -#X connect 27 0 38 0; -#X connect 27 1 18 1; -#X connect 28 0 27 0; -#X connect 29 0 14 0; -#X connect 30 0 18 0; -#X connect 31 0 33 0; -#X connect 33 0 32 0; -#X connect 36 0 22 0; -#X connect 37 0 19 1; -#X connect 38 0 30 0; -#X connect 40 0 41 0; -#X connect 43 0 11 0; -#X connect 43 0 8 0; -#X connect 44 0 10 0; -#X connect 45 0 17 0; -#X connect 46 0 47 0; -#X connect 47 0 44 0; -#X connect 47 1 43 0; -#X connect 47 2 45 0; -#X connect 51 0 0 0; -#X connect 52 0 7 0; +#X connect 18 0 19 0; +#X connect 19 0 38 0; +#X connect 20 0 30 0; +#X connect 20 1 12 1; +#X connect 21 0 20 0; +#X connect 22 0 12 0; +#X connect 23 0 25 0; +#X connect 25 0 24 0; +#X connect 28 0 15 0; +#X connect 29 0 13 1; +#X connect 30 0 22 0; +#X connect 32 0 33 0; +#X connect 35 0 45 0; +#X connect 35 0 8 0; +#X connect 36 0 10 0; +#X connect 37 0 46 0; +#X connect 41 0 36 0; +#X connect 41 1 35 0; +#X connect 41 2 37 0; +#X connect 42 0 43 0; +#X connect 46 0 8 1; #X coords 0 -1 1 1 77 79 2 50 30; diff --git a/controctopus/midi-tentacle-multi.pd b/controctopus/midi-tentacle-multi.pd index 3ee186e..2b5086a 100644 --- a/controctopus/midi-tentacle-multi.pd +++ b/controctopus/midi-tentacle-multi.pd @@ -120,22 +120,22 @@ #X connect 23 0 22 0; #X restore 31 315 pd listops; #N canvas 935 166 242 368 16channelOuts 0; -#X obj 18 23 rchannel-multi \$0 \$1 \$2 \$3 \$4 1; -#X obj 18 43 rchannel-multi \$0 \$1 \$2 \$3 \$4 2; -#X obj 18 63 rchannel-multi \$0 \$1 \$2 \$3 \$4 3; -#X obj 18 83 rchannel-multi \$0 \$1 \$2 \$3 \$4 4; -#X obj 18 103 rchannel-multi \$0 \$1 \$2 \$3 \$4 5; -#X obj 18 123 rchannel-multi \$0 \$1 \$2 \$3 \$4 6; -#X obj 18 143 rchannel-multi \$0 \$1 \$2 \$3 \$4 7; -#X obj 18 163 rchannel-multi \$0 \$1 \$2 \$3 \$4 8; -#X obj 18 183 rchannel-multi \$0 \$1 \$2 \$3 \$4 9; -#X obj 18 203 rchannel-multi \$0 \$1 \$2 \$3 \$4 10; -#X obj 18 223 rchannel-multi \$0 \$1 \$2 \$3 \$4 11; -#X obj 18 263 rchannel-multi \$0 \$1 \$2 \$3 \$4 13; -#X obj 18 283 rchannel-multi \$0 \$1 \$2 \$3 \$4 14; -#X obj 18 303 rchannel-multi \$0 \$1 \$2 \$3 \$4 15; -#X obj 18 323 rchannel-multi \$0 \$1 \$2 \$3 \$4 16; -#X obj 18 243 rchannel-multi \$0 \$1 \$2 \$3 \$4 12; +#X obj 18 23 rchannel-multi \$0 \$1 \$2 \$3 1; +#X obj 18 43 rchannel-multi \$0 \$1 \$2 \$3 2; +#X obj 18 63 rchannel-multi \$0 \$1 \$2 \$3 3; +#X obj 18 83 rchannel-multi \$0 \$1 \$2 \$3 4; +#X obj 18 103 rchannel-multi \$0 \$1 \$2 \$3 5; +#X obj 18 123 rchannel-multi \$0 \$1 \$2 \$3 6; +#X obj 18 143 rchannel-multi \$0 \$1 \$2 \$3 7; +#X obj 18 163 rchannel-multi \$0 \$1 \$2 \$3 8; +#X obj 18 183 rchannel-multi \$0 \$1 \$2 \$3 9; +#X obj 18 203 rchannel-multi \$0 \$1 \$2 \$3 10; +#X obj 18 223 rchannel-multi \$0 \$1 \$2 \$3 11; +#X obj 18 263 rchannel-multi \$0 \$1 \$2 \$3 13; +#X obj 18 283 rchannel-multi \$0 \$1 \$2 \$3 14; +#X obj 18 303 rchannel-multi \$0 \$1 \$2 \$3 15; +#X obj 18 323 rchannel-multi \$0 \$1 \$2 \$3 16; +#X obj 18 243 rchannel-multi \$0 \$1 \$2 \$3 12; #X restore 31 293 pd 16channelOuts; #X obj 166 61 list-extend; #X obj 189 405 r \$0getParams; diff --git a/controctopus/midi-tentacle.pd b/controctopus/midi-tentacle.pd index f25d02c..3e6f67f 100644 --- a/controctopus/midi-tentacle.pd +++ b/controctopus/midi-tentacle.pd @@ -1,13 +1,14 @@ #N canvas 228 148 514 657 10; + #X obj 141 161 cnv 15 158 78 empty empty \$1\$2->\$3 4 14 0 10 -86277 -260097 0; #X obj 145 188 popup 150 25 #ee0000 No-Destination press 'get' to load parameters; #X obj 65 126 r \$0popup; #X obj 157 216 hradio 10 1 0 8 \$0chRow1 \$0chRow1R empty 0 -8 0 10 --166441 -166441 -166441 2; +-166441 -166441 -166441 0; #X obj 157 226 hradio 10 1 0 8 \$0chRow2 \$0chRow2R empty 0 -8 0 10 --166441 -166441 -166441 5; +-166441 -166441 -166441 0; #X obj 240 219 cnv 15 37 15 empty \$0channelDisp Omni 2 7 0 10 -66577 -260818 0; #N canvas 259 247 434 288 init 0; @@ -132,22 +133,22 @@ parameters; 7 -249808 -1 -262144; #X obj 31 527 r \$0getParams; #N canvas 713 160 242 368 16channelOuts 0; -#X obj 18 23 rchannel \$0 \$1 \$2 \$3 \$4 1; -#X obj 18 43 rchannel \$0 \$1 \$2 \$3 \$4 2; -#X obj 18 63 rchannel \$0 \$1 \$2 \$3 \$4 3; -#X obj 18 83 rchannel \$0 \$1 \$2 \$3 \$4 4; -#X obj 18 103 rchannel \$0 \$1 \$2 \$3 \$4 5; -#X obj 18 123 rchannel \$0 \$1 \$2 \$3 \$4 6; -#X obj 18 143 rchannel \$0 \$1 \$2 \$3 \$4 7; -#X obj 18 163 rchannel \$0 \$1 \$2 \$3 \$4 8; -#X obj 18 183 rchannel \$0 \$1 \$2 \$3 \$4 9; -#X obj 18 203 rchannel \$0 \$1 \$2 \$3 \$4 10; -#X obj 18 223 rchannel \$0 \$1 \$2 \$3 \$4 11; -#X obj 18 263 rchannel \$0 \$1 \$2 \$3 \$4 13; -#X obj 18 283 rchannel \$0 \$1 \$2 \$3 \$4 14; -#X obj 18 303 rchannel \$0 \$1 \$2 \$3 \$4 15; -#X obj 18 323 rchannel \$0 \$1 \$2 \$3 \$4 16; -#X obj 18 243 rchannel \$0 \$1 \$2 \$3 \$4 12; +#X obj 18 23 rchannel \$0 \$1 \$2 \$3 1; +#X obj 18 43 rchannel \$0 \$1 \$2 \$3 2; +#X obj 18 63 rchannel \$0 \$1 \$2 \$3 3; +#X obj 18 83 rchannel \$0 \$1 \$2 \$3 4; +#X obj 18 103 rchannel \$0 \$1 \$2 \$3 5; +#X obj 18 123 rchannel \$0 \$1 \$2 \$3 6; +#X obj 18 143 rchannel \$0 \$1 \$2 \$3 7; +#X obj 18 163 rchannel \$0 \$1 \$2 \$3 8; +#X obj 18 183 rchannel \$0 \$1 \$2 \$3 9; +#X obj 18 203 rchannel \$0 \$1 \$2 \$3 10; +#X obj 18 223 rchannel \$0 \$1 \$2 \$3 11; +#X obj 18 263 rchannel \$0 \$1 \$2 \$3 13; +#X obj 18 283 rchannel \$0 \$1 \$2 \$3 14; +#X obj 18 303 rchannel \$0 \$1 \$2 \$3 15; +#X obj 18 323 rchannel \$0 \$1 \$2 \$3 16; +#X obj 18 243 rchannel \$0 \$1 \$2 \$3 12; #X restore 31 293 pd 16channelOuts; #X obj 241 64 r \$1/clearParams; #X obj 145 220 hradio 12 1 0 1 \$0chRow0 \$0chRow0R empty 0 -8 0 10 @@ -268,6 +269,7 @@ parameters; #X connect 7 0 6 1; #X restore 134 293 pd omniOut; #X obj 65 152 popup-fix; +#X text 159 328 [midi-tentacle /controller /control /system-name]; #X connect 1 0 31 1; #X connect 1 1 7 0; #X connect 2 0 31 0; diff --git a/controctopus/note-learner.pd b/controctopus/note-learner.pd index 69ca14d..10921f1 100644 --- a/controctopus/note-learner.pd +++ b/controctopus/note-learner.pd @@ -1,285 +1,319 @@ -#N canvas 377 506 1051 667 10; -#X declare -lib nsend -lib list-abs -lib creb; -#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; -#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; -#X obj 137 263 bng 13 250 50 0 \$0-learnOn empty empty 0 -6 0 8 -259541 +#N canvas 311 44 1053 650 10; + + + + + + + + + + + + + + + + +#X obj 336 251 select; +#X obj 363 337 f; +#X obj 336 506 pack; +#X obj 336 277 t b b; +#X obj 102 293 nbx 2 14 1 128 0 0 \$0.pad.s \$0.pad.r Pad 32 7 0 11 +-154432 -1 -1 1 256; +#X obj 102 276 nbx 2 14 0 127 0 0 \$0.note.s \$0.note.r Note 32 7 0 +11 -260624 -1 -1 0 256; +#X obj 420 523 outlet; +#X obj 137 263 bng 13 250 50 0 \$0.learn-on 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 +#X obj 103 265 bng 8 250 50 0 empty \$0.lite1 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 +#X obj 114 265 bng 8 250 50 0 empty \$0.lite2 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 +#X obj 125 265 bng 8 250 50 0 empty \$0.lite3 empty 0 -6 0 8 -1 -262085 -1; -#X obj 412 249 r \$0-noteNumber; -#X obj 267 327 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 65; -#X obj 733 493 pack; -#X msg 792 444 set \$1; -#X obj 801 336 r \$0-noteNumber; -#X obj 792 420 r \$0-padNumber; -#X obj 755 314 spigot; -#X obj 724 62 polytouchin; -#X obj 722 383 spigot; -#X obj 733 435 t b f; +#X obj 369 231 r \$0.note.v; +#X obj 351 308 r \$0.pad.v; +#X obj 336 209 spigot; +#X obj 152 263 nbx 2 13 1 64 0 0 \$0.device-number.s \$0.device-number.r +empty 0 -6 0 10 -110565 -1 -1 1 256; +#X obj 801 256 r \$0.note.v; +#X obj 755 234 spigot; +#X obj 722 112 polytouchin; +#X obj 722 303 spigot; #X obj 41 411 instance lnote; -#X obj 41 436 s \$0-padNumberR; -#X obj 722 284 / 127; -#X obj 400 297 / 127; -#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 722 204 / 127; +#X obj 378 278 / 127; +#N canvas 73 463 404 329 midi-learn 0; +#X text 238 89 Route Number; +#X obj 24 18 r \$0.learn-on; +#X obj 180 119 spigot; +#X obj 217 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 text 287 62 Learn Time-Window; +#X obj 180 141 s \$0.note-r; +#X obj 217 62 pipe 1000; +#X obj 180 14 inlet; +#X obj 24 197 f 0; +#X obj 51 197 + 1; +#X obj 77 197 mod \$1; +#X msg 73 141 0; +#X obj 24 281 s \$0.lite1; +#X obj 104 281 s \$0.lite2; +#X obj 184 281 s \$0.lite3; #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 1 0 7 0; +#X connect 1 0 10 0; +#X connect 2 0 9 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 80 164 pd midiLearn; +#X connect 4 0 12 0; +#X connect 5 0 16 0; +#X connect 5 1 17 0; +#X connect 5 2 18 0; +#X connect 6 0 15 0; +#X connect 6 1 7 0; +#X connect 7 0 4 0; +#X connect 10 0 3 0; +#X connect 10 0 6 0; +#X connect 11 0 2 0; +#X connect 12 0 13 0; +#X connect 12 0 5 0; +#X connect 13 0 14 0; +#X connect 14 0 12 1; +#X connect 15 0 12 1; +#X restore 241 104 pd midi-learn; #X obj 336 104 t a; #X obj 365 104 t a; #X obj 395 104 t a; #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 722 610 s; -#X obj 391 138 div 16; -#X obj 391 198 ==; -#X obj 406 176 r \$0devNo; -#X obj 483 151 mod 16; -#X obj 456 121 t f f; -#X obj 483 171 s \$0channel; -#X obj 576 132 loadbang; -#X msg 576 154 1; -#X obj 391 157 + 1; -#X obj 788 224 div 16; -#X obj 788 284 ==; -#X obj 804 262 r \$0devNo; -#X obj 880 238 mod 16; -#X obj 853 207 t f f; -#X obj 880 258 s \$0channel; -#X obj 788 243 + 1; -#X obj 358 549 s \$1\$2/note; -#X obj 733 522 s \$1\$2/tch; +#X obj 755 273 ==; +#X obj 27 18 loadbang; +#X msg 27 40 1; +#X obj 336 583 s \$1\$2/note; #X obj 722 166 t a; #X obj 755 166 t a; -#X obj 791 166 t a; -#X obj 722 408 t a; -#X obj 415 327 sel 0; -#X text 532 345 Relay initial velocity; -#X text 532 361 to polytouch to remove; -#X text 532 377 delay; -#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; -#X obj 388 487 r \$1\$2/GUI; -#X obj 358 327 f; -#N canvas 0 22 447 370 padSelect 0; +#X obj 788 166 t a; +#X obj 393 337 sel 0; +#X text 850 296 Relay initial velocity; +#X text 850 312 to polytouch to remove; +#X text 850 328 delay; +#X obj 336 337 f; +#N canvas 0 22 447 370 pad-select 0; #X obj 80 39 inlet; #X obj 99 141 spigot 1; -#X obj 235 99 r padSelect; #X obj 99 277 outlet; #X obj 126 234 s lastPad; #X obj 126 207 spigot; #X obj 159 183 r lastPadTgl; #X obj 235 124 == 0; -#X obj 80 112 s padSelect; #X msg 80 91 0; #X obj 80 68 t a a a; #X obj 168 68 spigot; #X obj 168 89 s lastPad; -#X connect 0 0 10 0; -#X connect 1 0 5 0; -#X connect 1 0 3 0; -#X connect 2 0 7 0; -#X connect 2 0 11 1; -#X connect 5 0 4 0; -#X connect 6 0 5 1; -#X connect 7 0 1 1; +#X obj 80 112 s padSelect; +#X obj 235 99 r padSelect; +#X connect 0 0 8 0; +#X connect 1 0 4 0; +#X connect 1 0 2 0; +#X connect 4 0 3 0; +#X connect 5 0 4 1; +#X connect 6 0 1 1; +#X connect 7 0 11 0; +#X connect 8 0 7 0; +#X connect 8 1 1 0; +#X connect 8 2 9 0; +#X connect 9 0 10 0; +#X connect 12 0 6 0; +#X connect 12 0 9 1; +#X restore 336 456 pd pad-select; +#X obj 420 358 s \$0.velocity; +#X obj 767 303 r \$0.velocity; +#X obj 336 400 s \$0.note; +#X obj 363 379 s \$0.trigger; +#X obj 27 86 r \$1/solo; +#X obj 27 108 sel 0; +#X obj 54 132 sel \$2; +#X msg 27 166 1; +#X obj 27 196 s \$0.solo?; +#X msg 87 166 0; +#X obj 336 142 ifspigot \$0.solo? t 1; +#X obj 736 16 import-disabled nsend list-abs; +#X obj 27 63 s \$0.channel; +#N canvas 0 22 265 307 parse-channel 0; +#X obj 76 35 inlet; +#X obj 76 254 outlet; +#X obj 76 155 div 16; +#X obj 76 221 ==; +#X obj 91 199 r \$0.device-number.v; +#X obj 103 102 mod 16; +#X obj 76 72 t f f; +#X obj 103 122 s \$0.channel; +#X obj 76 174 + 1; +#X connect 0 0 6 0; +#X connect 2 0 8 0; +#X connect 3 0 1 0; +#X connect 4 0 3 1; +#X connect 5 0 7 0; +#X connect 6 0 2 0; +#X connect 6 1 5 0; +#X connect 8 0 3 0; +#X restore 395 169 pd parse-channel; +#X obj 396 54 nr PDNOTEIN 3; +#X obj 814 112 nr PDPOLYTOUCHIN 3; +#N canvas 0 22 265 307 parse-channel 0; +#X obj 76 35 inlet; +#X obj 76 254 outlet; +#X obj 76 155 div 16; +#X obj 76 221 ==; +#X obj 91 199 r \$0.device-number.v; +#X obj 103 102 mod 16; +#X obj 76 72 t f f; +#X obj 103 122 s \$0.channel; +#X obj 76 174 + 1; +#X connect 0 0 6 0; +#X connect 2 0 8 0; +#X connect 3 0 1 0; +#X connect 4 0 3 1; +#X connect 5 0 7 0; +#X connect 6 0 2 0; +#X connect 6 1 5 0; +#X connect 8 0 3 0; +#X restore 788 197 pd parse-channel; +#N canvas 282 148 271 319 send-polytouch 0; +#X msg 51 116 1; +#X obj 51 148 pack; +#X msg 110 99 set \$1; +#X obj 110 75 r \$0.pad.v; +#X obj 51 90 t b f; +#X obj 40 265 s; +#X obj 51 177 s \$1\$2/polytouch; +#X msg 55 243 symbol \$1\$2/polytouch/in; +#X obj 55 222 list prepend \$3; +#X obj 55 202 r \$0.pad.v; +#X obj 40 63 inlet; +#X connect 0 0 1 0; +#X connect 1 0 6 0; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X connect 4 0 0 0; +#X connect 4 1 1 1; +#X connect 7 0 5 1; +#X connect 8 0 7 0; #X connect 9 0 8 0; -#X connect 10 0 9 0; -#X connect 10 1 1 0; -#X connect 10 2 11 0; -#X connect 11 0 12 0; -#X restore 358 349 pd padSelect; -#X obj 191 627 s; -#X obj 206 562 r \$0-padNumber; -#X obj 206 583 list prepend \$3; -#X msg 206 604 symbol \$1\$2/velocity/in; -#X obj 456 327 s \$0velocity; -#X obj 625 391 r \$0velocity; -#X obj 191 542 r \$0velocity; -#X msg 737 588 symbol \$1\$2/polytouch/in; -#X obj 737 567 list prepend \$3; -#X obj 737 547 r \$0-padNumber; -#X obj 268 354 s \$0note; -#X obj 385 369 s \$0trigger; -#X obj 51 627 s; -#X obj 66 562 r \$0-padNumber; -#X obj 66 583 list prepend \$3; -#X msg 66 604 symbol \$1\$2/note/in; -#X obj 51 542 r \$0note; -#X obj 507 516 r \$0trigger; -#X obj 507 627 s; -#X obj 522 562 r \$0-padNumber; -#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 text 762 34 creb for [count] \, TODO remove; -#X obj 736 16 import nsend list-abs creb; +#X connect 10 0 4 0; +#X connect 10 0 5 0; +#X restore 722 334 pd send-polytouch; +#N canvas 0 22 625 312 group-style-sends 0; +#X obj 221 237 s; +#X obj 236 172 r \$0.pad.v; +#X obj 236 193 list prepend \$3; +#X msg 236 214 symbol \$1\$2/velocity/in; +#X obj 221 132 r \$0.velocity; +#X obj 61 237 s; +#X obj 76 172 r \$0.pad.v; +#X obj 76 193 list prepend \$3; +#X msg 76 214 symbol \$1\$2/note/in; +#X obj 61 132 r \$0.note; +#X obj 412 132 r \$0.trigger; +#X obj 412 243 s; +#X obj 427 178 r \$0.pad.v; +#X obj 427 199 list prepend \$3; +#X msg 427 220 symbol \$1\$2/trigger/in; +#X obj 412 154 != 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 0 1; +#X connect 4 0 0 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 5 1; +#X connect 9 0 5 0; +#X connect 10 0 15 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 11 1; +#X connect 15 0 11 0; +#X restore 451 457 pd group-style-sends; +#N canvas 0 22 220 213 gui-relay 0; +#X obj 56 77 prepent set; +#X obj 56 99 s \$1\$2/GUIR; +#X obj 56 126 r \$1\$2/GUI; +#X obj 56 49 inlet; +#X obj 56 157 outlet; +#X connect 0 0 1 0; +#X connect 2 0 4 0; +#X connect 3 0 0 0; +#X restore 372 547 pd gui-relay; +#X obj 357 485 r \$0.trigger; +#X obj 336 428 r \$0.note; +#X obj 132 19 r \$1/devNo; +#X obj 132 46 s \$0.device-number.r; +#X obj 41 436 s \$0.pad.r; +#X obj 66 533 sssadie/sssadiez \$1 \$2 channel 0 256 \$0; +#X obj 66 553 sssadie/sssadiez \$1 \$2 note 0 256 \$0; +#X obj 66 573 sssadie/sssadiez \$1 \$2 pad 0 256 \$0; #X connect 0 0 3 0; -#X connect 1 0 2 1; -#X connect 1 0 58 0; -#X connect 1 0 80 0; +#X connect 1 0 35 0; +#X connect 1 0 44 0; #X connect 2 0 6 0; -#X connect 2 0 64 0; -#X connect 2 0 52 0; -#X connect 3 0 67 0; +#X connect 2 0 31 0; +#X connect 2 0 60 0; +#X connect 3 0 39 0; #X connect 3 1 1 0; -#X connect 4 0 99 1; -#X connect 5 0 100 1; #X connect 11 0 0 1; -#X connect 12 0 67 1; +#X connect 12 0 39 1; #X connect 13 0 0 0; -#X connect 14 0 101 1; -#X connect 15 0 16 0; -#X connect 16 0 53 0; -#X connect 17 0 15 0; -#X connect 18 0 34 1; -#X connect 19 0 17 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 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 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 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 connect 15 0 28 1; +#X connect 16 0 28 0; +#X connect 17 0 32 0; +#X connect 17 1 33 0; +#X connect 17 2 34 0; +#X connect 18 0 58 0; +#X connect 19 0 65 0; +#X connect 20 0 18 0; +#X connect 21 0 1 1; +#X connect 23 0 22 0; +#X connect 23 0 51 0; +#X connect 24 0 21 0; +#X connect 25 0 54 0; +#X connect 26 0 23 0; +#X connect 26 1 24 0; +#X connect 26 2 25 0; +#X connect 28 0 18 1; +#X connect 29 0 30 0; +#X connect 30 0 53 0; +#X connect 32 0 20 0; +#X connect 33 0 16 0; +#X connect 34 0 57 0; +#X connect 35 1 41 0; +#X connect 39 0 43 0; +#X connect 40 0 2 0; +#X connect 42 0 58 0; +#X connect 45 0 46 0; +#X connect 46 0 48 0; +#X connect 46 1 47 0; +#X connect 47 0 48 0; +#X connect 47 1 50 0; +#X connect 48 0 49 0; +#X connect 50 0 49 0; +#X connect 51 0 13 0; +#X connect 54 0 13 1; +#X connect 55 0 23 0; +#X connect 55 1 24 0; +#X connect 55 2 25 0; +#X connect 56 0 32 0; +#X connect 56 1 33 0; +#X connect 56 2 34 0; +#X connect 57 0 16 1; +#X connect 60 0 31 0; +#X connect 61 0 2 1; +#X connect 62 0 40 0; +#X connect 63 0 64 0; #X coords 0 -1 1 1 81 60 1 100 250; -- cgit v1.2.1