#N canvas 586 31 748 400 10; #X declare -lib mrpeach; #X obj -37 10 import mrpeach; #N canvas 226 283 450 300 UDPSEND 0; #X obj 48 214 udpsend; #X msg 198 140 connect localhost 7000; #X msg 75 151 disconnect; #X obj 45 247 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 61 80 t b a b; #X msg 100 103 [; #X msg 61 103 ]; #X obj 61 126 packOSC; #X obj 61 50 inlet; #X obj 167 46 vradio 15 1 0 2 empty empty empty 0 -8 0 10 -262144 -1 -1 0; #X text 232 90 remote; #X text 232 105 local; #X obj 259 38 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 376 79 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 4 0 6 0; #X connect 4 1 7 0; #X connect 4 2 5 0; #X connect 5 0 7 0; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 4 0; #X connect 9 0 1 0; #X connect 12 0 1 0; #X connect 13 0 1 0; #X restore 162 325 pd UDPSEND; #X msg 13 235 send /sub/decrPage 1; #X obj 506 230 notein; #X floatatom 477 302 5 0 0 0 - - -; #X floatatom 526 300 5 0 0 0 - - -; #X floatatom 568 297 5 0 0 0 - - -; #X text 473 212 MIDI test input; #X text 465 327 Note Velocity Channel; #X msg 273 232 send /sub/incrPage 1; #X obj 172 51 notein 1; #X obj 273 187 select 1; #X text -30 53 comment; #X text -35 33 comment; #X text 190 4 comment; #X obj 13 192 sel 1; #X obj 13 150 expr if ($f1 == 52 && $f2 == 127 \, 1 \, 0); #X obj 158 113 t b f; #X obj 387 117 t b f; #X obj 273 150 expr if ($f1 == 53 && $f2 == 127 \, 1 \, 0); #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 1 5 0; #X connect 3 2 6 0; #X connect 9 0 1 0; #X connect 10 0 16 0; #X connect 10 0 19 0; #X connect 10 1 17 0; #X connect 10 1 18 0; #X connect 11 0 9 0; #X connect 15 0 2 0; #X connect 16 0 15 0; #X connect 17 0 16 0; #X connect 17 1 16 1; #X connect 18 0 19 0; #X connect 18 1 19 1; #X connect 19 0 11 0;