path: root/touchosc-bridge.pd

#N canvas 286 217 791 541 10;
#X obj 342 238 cnv 15 221 32 empty empty empty 20 12 0 14 -257985 -66577
0;
#X text 350 247 CHANGE PUBLISHED SERVICE HERE --->;
#X obj 45 178 udpreceive 8000;
#X text 17 56 8000 is the default input port \, you can change this
with the second creation parameter.;
#X obj 18 86 loadbang;
#X obj 18 128 sel 0;
#X msg 45 151 port \$1;
#X text 59 13 touchosc-bridge layout-file [ inport outport ];
#X obj 168 136 loadbang;
#X obj 168 178 sel 0;
#X msg 275 399 connect \$1 \$2;
#X obj 45 207 unpackOSC;
#X obj 168 157 f \$3;
#X obj 18 107 f \$2;
#X obj 275 446 udpsend;
#X obj 45 250 tomidi \$1;
#X obj 45 271 outlet;
#X text 38 291 MIDI output;
#X obj 259 139 inlet;
#X text 406 288 MIDI input;
#X obj 400 309 toosc \$1;
#X obj 400 331 list prepend send;
#X obj 400 352 list trim;
#X obj 400 373 packOSC;
#X text 165 99 9000 is the default output port \, you can change this
with the third creation parameter.;
#X obj 275 378 pack s 9000;
#X obj 259 176 route connect disconnect;
#X msg 329 216 disconnect;
#X obj 259 216 unpack s f;
#X obj 275 425 t a a;
#X text 268 158 handle connect messages;
#X text 16 34 This patch requires the cyclone and mrpeach externals.
;
#X symbolatom 465 51 25 0 0 0 - #0-select #0-resolve, f 25;
#X obj 571 271 route connect;
#X obj 571 292 unpack s f;
#X symbolatom 465 71 17 0 0 0 - #0-addr #0-addr-change, f 17;
#X floatatom 592 71 7 0 0 0 - #0-port #0-port-change, f 7;
#X obj 698 300 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 465 32 tgl 15 0 \$0-oscbrowser empty browse 17 7 0 10 -262144
-1 -1 0 1;
#X obj 571 221 metro 500;
#X text 568 176 OSC browser;
#X obj 483 208 t s b;
#X obj 485 287 inlet;
#X text 473 266 OSC input;
#X obj 45 228 t a a;
#X obj 123 250 outlet;
#X text 116 270 OSC output;
#X obj 132 381 route from;
#X obj 132 402 unpack f f f f f;
#X obj 132 423 sprintf %d.%d.%d.%d;
#X obj 275 472 == 0;
#X obj 132 446 spigot 1;
#X obj 275 493 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 27 347 Autodetect the ip address of the client to connect to
on the output side.;
#X obj 383 495 print touchosc-bridge;
#X obj 383 452 route connect;
#X text 341 512 print the client we're connected to;
#X obj 383 473 sprintf connecting to %s:%d;
#X obj 571 198 r \$0-oscbrowser;
#X obj 658 131 r \$0-resolve;
#X obj 571 313 s \$0-addr;
#X obj 628 334 s \$0-port;
#X obj 280 318 r \$0-port-change;
#X obj 259 245 s \$0-addr;
#X obj 221 285 s \$0-port;
#X msg 168 199 9000;
#X obj 438 145 r \$0-addr-change;
#X obj 132 488 s \$0-addr;
#X obj 658 176 sel none;
#X obj 685 15 loadbang;
#X obj 132 467 symbol;
#X obj 438 166 symbol;
#X obj 438 187 sel none;
#X msg 685 36 none;
#X obj 635 105 s \$0-addr;
#X obj 698 105 s \$0-select;
#X obj 658 155 symbol;
#X obj 571 248 oscbrowser "pd-touchosc" 8000;
#X obj 703 205 list trim;
#X obj 560 382 r \$0-next;
#X obj 626 382 r \$0-prev;
#N canvas 179 447 489 332 picker 0;
#X obj 22 21 inlet;
#X obj 88 22 inlet;
#X obj 88 116 f;
#X obj 88 48 list;
#X obj 88 94 list length;
#X obj 22 100 +;
#X obj 22 156 min;
#X msg 88 158 0;
#X obj 37 74 f 1;
#X obj 22 207 t f f;
#X obj 88 69 t a a;
#X obj 82 270 symbol;
#X obj 115 224 zl nth 1;
#X obj 82 186 t b b f;
#X obj 115 250 symbol;
#X obj 82 292 outlet;
#X text 162 20 This picks the next or previous element in the list.
;
#X text 163 34 Left inlet is relative index (+1 or -1).;
#X text 163 48 Right inlet is the list of elements to pick.;
#X obj 22 177 max 1;
#X obj 88 137 t b f;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 20 0;
#X connect 3 0 10 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 19 0;
#X connect 7 0 5 0;
#X connect 8 0 5 1;
#X connect 9 0 13 0;
#X connect 9 1 8 0;
#X connect 10 0 4 0;
#X connect 10 1 12 0;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 13 1 12 0;
#X connect 13 2 12 1;
#X connect 14 0 11 1;
#X connect 19 0 9 0;
#X connect 20 0 7 0;
#X connect 20 1 6 1;
#X restore 595 450 pd picker;
#X msg 626 403 -1;
#X msg 560 403 1;
#X obj 595 471 s \$0-select;
#X obj 550 32 bng 15 250 50 0 \$0-next empty next 17 7 0 10 -262144
-1 -1;
#X obj 597 32 bng 15 250 50 0 \$0-prev empty prev 17 7 0 10 -262144
-1 -1;
#X obj 685 57 t a a;
#X obj 724 81 symbol;
#X obj 665 81 symbol;
#X connect 2 0 11 0;
#X connect 2 1 47 0;
#X connect 4 0 13 0;
#X connect 5 1 6 0;
#X connect 6 0 2 0;
#X connect 8 0 12 0;
#X connect 9 0 65 0;
#X connect 9 1 64 0;
#X connect 10 0 29 0;
#X connect 11 0 44 0;
#X connect 12 0 9 0;
#X connect 13 0 5 0;
#X connect 14 0 50 0;
#X connect 15 0 16 0;
#X connect 18 0 26 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 14 0;
#X connect 25 0 10 0;
#X connect 26 0 28 0;
#X connect 26 1 27 0;
#X connect 26 2 20 0;
#X connect 27 0 14 0;
#X connect 28 0 63 0;
#X connect 28 1 64 0;
#X connect 29 0 14 0;
#X connect 29 1 55 0;
#X connect 33 0 34 0;
#X connect 33 1 37 0;
#X connect 33 1 81 1;
#X connect 34 0 60 0;
#X connect 34 1 61 0;
#X connect 39 0 77 0;
#X connect 41 0 25 0;
#X connect 41 1 27 0;
#X connect 42 0 21 0;
#X connect 44 0 15 0;
#X connect 44 1 45 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 48 1 49 1;
#X connect 48 2 49 2;
#X connect 48 3 49 3;
#X connect 49 0 51 0;
#X connect 50 0 52 0;
#X connect 51 0 70 0;
#X connect 52 0 51 1;
#X connect 55 0 57 0;
#X connect 57 0 54 0;
#X connect 58 0 39 0;
#X connect 59 0 76 0;
#X connect 62 0 25 1;
#X connect 65 0 64 0;
#X connect 66 0 71 0;
#X connect 68 1 78 0;
#X connect 69 0 73 0;
#X connect 70 0 67 0;
#X connect 71 0 72 0;
#X connect 72 1 41 0;
#X connect 73 0 87 0;
#X connect 76 0 68 0;
#X connect 77 0 33 0;
#X connect 78 0 77 0;
#X connect 79 0 83 0;
#X connect 80 0 82 0;
#X connect 81 0 84 0;
#X connect 82 0 81 0;
#X connect 83 0 81 0;
#X connect 87 0 89 0;
#X connect 87 1 88 0;
#X connect 88 0 75 0;
#X connect 89 0 74 0;
#X coords 0 -1 1 1 186 76 1 457 14;