/mctl/mctl-examples.pd

 1#N canvas 325 86 1047 487 10;
 2#X floatatom 285 108 5 0 0 0 - - -;
 3#X floatatom 322 108 5 0 0 0 - - -;
 4#X obj 285 74 mctl-ctlin \$0;
 5#X obj 13 156 mctl-exclusive \$0 65 66 67;
 6#X obj 19 77 mctl-group \$0 10 11 12;
 7#X obj 19 99 print mctl-group;
 8#X floatatom 19 245 5 0 0 0 - - -;
 9#X obj 14 216 mctl-inlet \$0 10 11 12 65;
10#X obj 19 20 mctl-singlestation \$0;
11#X obj 422 73 mctl-inoutstation \$0-inout /tmp/midirouting.txt;
12#X obj 275 326 mctl-nbx;
13#X floatatom 170 302 5 0 0 0 - - -;
14#X obj 12 300 mctl-nonzerosend \$0 10 65;
15#X floatatom 31 460 5 0 0 0 - - -;
16#X obj 34 411 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
17-1 -1 12700 1;
18#X floatatom 153 426 5 0 0 0 - - -;
19#X obj 32 433 mctl-scalefrom 0 1;
20#X obj 191 429 mctl-scaleto 0 1;
21#X floatatom 193 452 5 0 0 0 - - -;
22#X floatatom 192 410 5 0 1 0 - - -;
23#X obj 347 426 mctl-spigot \$0 65;
24#X floatatom 347 400 5 0 0 0 - - -;
25#X floatatom 348 448 5 0 0 0 - - -;
26#X floatatom 445 452 5 0 0 0 - - -;
27#X obj 425 163 r OUT;
28#X obj 425 182 print OUT;
29#X obj 514 163 r IN;
30#X obj 515 181 print IN;
31#X obj 579 199 s OUT;
32#X msg 579 179 group param \$1;
33#X floatatom 581 162 5 0 0 0 - - -;
34#X msg 910 48 init;
35#X obj 910 86 s \$0-inout-INOUT;
36#X obj 421 11 mctl-inoutbridge \$0-inout 10 -1 -1 -1 -1 group param
37mctl-scalefrom 0 1 mctl-scaleto 0 1;
38#X floatatom 822 363 5 0 0 0 - - -;
39#X obj 750 399 sig~;
40#X obj 750 419 env~;
41#X floatatom 750 438 5 0 0 0 - - -;
42#X obj 750 294 inout.master group \$0;
43#X obj 750 377 inout.cell param \$0;
44#X text 18 1 Taking care of internal midi logic;
45#X text 418 -7 Routing midi to inout messages;
46#X obj 910 7 loadbang;
47#X obj 910 27 delay 1000;
48#X text 421 141 Global send and receive;
49#X text 16 56 Convenient multi-param grouping;
50#X text 13 137 Make a group of params mutually exclusive;
51#X text 12 196 Ctlin on steroids;
52#X text 13 279 Toggle zero/nonzero with 2nd cc;
53#X text 30 389 Simple scaling to/from 0-127;
54#X text 344 383 Pass message through when cc > 0;
55#X text 423 54 Dynamic creation of inoutbridges;
56#X text 751 276 Inout master abstraction;
57#X text 747 343 inout parameter cell w sssad-l state saving;
58#X text 271 308 Simple throwaway gui with midi learn;
59#X text 278 234 A set of midi helper abstractions. Johannes Burstrom
602009;
61#X obj 634 375 inout.cells \$0 sdfa as;
62#X obj 627 271 r \$0-IN;
63#X obj 627 294 route param;
64#X obj 629 318 print LOCAL_IN;
65#X connect 2 0 0 0;
66#X connect 2 1 1 0;
67#X connect 4 0 5 0;
68#X connect 7 0 6 0;
69#X connect 11 0 12 1;
70#X connect 14 0 15 0;
71#X connect 14 0 16 0;
72#X connect 16 0 13 0;
73#X connect 17 0 18 0;
74#X connect 19 0 17 0;
75#X connect 20 0 22 0;
76#X connect 20 1 23 0;
77#X connect 21 0 20 0;
78#X connect 24 0 25 0;
79#X connect 26 0 27 0;
80#X connect 29 0 28 0;
81#X connect 30 0 29 0;
82#X connect 31 0 32 0;
83#X connect 34 0 39 0;
84#X connect 35 0 36 0;
85#X connect 36 0 37 0;
86#X connect 39 0 35 0;
87#X connect 39 1 34 0;
88#X connect 42 0 43 0;
89#X connect 43 0 31 0;
90#X connect 57 0 58 0;
91#X connect 58 0 59 0;