HTequi/blob-CN/main.pd

#N canvas 373 429 1307 586 12;
#X obj 44 325 s toOSCTop;
#N canvas 811 99 951 572 OSCin 0;
#X floatatom 464 101 3 0 0 0 - - -;
#X floatatom 491 101 3 0 0 0 - - -;
#X floatatom 518 101 3 0 0 0 - - -;
#X obj 464 75 unpack 0 0 0 0 0;
#X msg 97 30 status;
#X floatatom 389 76 9 0 0 0 - - -;
#X floatatom 388 101 9 0 0 0 - - -;
#X text 254 53 bytes received:;
#X text 224 77 total bytes received:;
#X obj 162 444 spigot;
#X obj 201 424 tgl 15 0 empty empty enable_print: -77 8 0 10 -4034
-1 -1 0 1;
#X obj 162 469 print received;
#X obj 390 50 route received total from multicast;
#X msg 108 69 port 9998;
#X obj 98 313 route /analog/0;
#X obj 97 125 mrpeach/unpackOSC;
#X obj 87 373 vsl 15 128 0 1024 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 314 352 list prepend set;
#X obj 314 377 list trim;
#X msg 314 402 /X_top_OSC/state 6;
#X obj 288 438 route /X_top_OSC/step;
#X floatatom 307 484 14 0 0 0 - - -;
#X obj 97 103 mrpeach/udpreceive 9000;
#X obj 220 157 print;
#X obj 506 285 mrpeach/udpreceive 9977 239.200.200.200;
#X obj 755 483 outlet;
#X obj 128 169 s OSCin;
#X floatatom 543 101 5 0 0 0 - - -;
#X connect 3 0 0 0;
#X connect 3 1 1 0;
#X connect 3 2 2 0;
#X connect 3 3 27 0;
#X connect 4 0 22 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 12 0 5 0;
#X connect 12 1 6 0;
#X connect 12 2 3 0;
#X connect 13 0 22 0;
#X connect 14 0 16 0;
#X connect 14 1 17 0;
#X connect 14 1 20 0;
#X connect 14 1 9 0;
#X connect 15 0 14 0;
#X connect 15 0 26 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 25 0;
#X connect 20 0 21 0;
#X connect 22 0 15 0;
#X connect 22 1 12 0;
#X restore 1007 251 pd OSCin;
#X msg 1007 276 /X_top_OSC/state 6;
#N canvas -240 463 1920 987 OSCtop 0;
#X msg 79 60 disconnect;
#X obj 167 304 tgl 15 0 empty empty connected 20 7 0 8 -24198 -241291
-1 1 1;
#X text 243 78 <--disconnect before connecting to another address;
#X obj 168 246 mrpeach/udpsend;
#X obj 325 228 mrpeach/packOSC;
#X obj 325 184 r toOSCTop;
#X msg 168 97 connect 192.168.1.105 8000;
#X obj 175 68 loadbang;
#X connect 0 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X coords 0 -1 1 1 85 22 1 100 300;
#X restore 1010 205 pd OSCtop;
#X obj 287 46 extra/stepper /X_top;
#X msg 71 83 /pill_trap \$1;
#X obj 73 35 hsl 128 15 0 200 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 70 55 f;
#X floatatom 26 31 5 0 0 0 - - -;
#X obj 70 117 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 67 138 i;
#X msg 67 162 /peristaltic \$1;
#X msg 55 262 /feeder2/barrel_home;
#X msg 45 292 /feeder1/barrel_home;
#X msg 136 207 /feeder2/pill;
#X msg 33 222 /feeder1/pill;
#X obj 597 47 extra/stepper /Y_top;
#N canvas 1 62 981 300 low 0;
#X msg 34 91 /X_top/stop;
#X msg 47 116 /X_top/emergencyStop;
#X msg 24 61 sendtyped /X_top/move i \$1;
#X msg 57 146 /X_top/home 0;
#X msg 50 265 /X_top/home 1;
#X msg 36 24 /_top/enable 1;
#X floatatom 402 145 5 0 0 0 - - -;
#X msg 466 139 10000;
#X msg 463 174 -10000;
#X msg 277 131 /A_low/move \$1;
#X floatatom 412 95 5 0 0 0 - - -;
#X msg 476 89 10000;
#X msg 473 124 -10000;
#X msg 287 81 /B_low/move \$1;
#X floatatom 557 209 5 0 0 0 - - -;
#X msg 458 211 10000;
#X msg 455 246 -10000;
#X msg 242 213 /TrBr_low/move \$1;
#X floatatom 328 182 5 0 0 0 - - -;
#X msg 176 178 /LevBr_low/move \$1;
#X obj 30 216 s toOSClow;
#X msg 392 176 1000;
#X msg 389 211 -1000;
#X obj 607 100 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 615 134 i;
#X obj 776 117 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 784 151 i;
#X msg 760 191 /brush \$1;
#X msg 618 240 /crusher \$1;
#X obj 622 217 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 591 174 /filling \$1;
#X connect 0 0 20 0;
#X connect 1 0 20 0;
#X connect 2 0 20 0;
#X connect 3 0 20 0;
#X connect 4 0 20 0;
#X connect 5 0 20 0;
#X connect 6 0 9 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 9 0 20 0;
#X connect 10 0 13 0;
#X connect 11 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 20 0;
#X connect 14 0 17 0;
#X connect 15 0 17 0;
#X connect 16 0 17 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 19 0;
#X connect 22 0 19 0;
#X connect 23 0 24 0;
#X connect 24 0 30 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 20 0;
#X connect 28 0 20 0;
#X connect 29 0 28 0;
#X connect 30 0 20 0;
#X restore 189 351 pd low;
#X obj 236 424 vradio 15 1 0 5 empty empty Action 0 -8 0 10 -262144
-1 -1 0;
#X text 687 388 1 goto feed position;
#X text 687 438 3 go to random position on half selected screen;
#X text 687 501 2 Go back to feed position;
#X text 687 411 2 get a pill ---------------------------------------->
;
#X text 1092 410 1 ask for pill \, feeder tries tp deliver;
#X text 1094 430 2 if succeeded \, finish \, else ask a pill again
(up to 5 times;
#X text 1094 450 3 if no pill delivered after 5 tries \, goto next
barrel position and retry getting a pill;
#X text 1094 487 4 if no pill after 5 tries on barrel position \, stop
all;
#X text 687 467 4 leave the pill;
#X text 256 421 go home;
#X text 255 436 goto feedPos;
#X text 255 465 goto randomPos;
#X text 255 481 put the pill;
#X text 256 450 get a pill;
#X obj 235 382 r setmode;
#X obj 236 504 s mode;
#N canvas 504 144 441 768 goHome+feed 0;
#X obj 42 9 r mode;
#X obj 42 34 route 0;
#X obj 44 625 spigot;
#X obj 128 255 route 1;
#X obj 128 229 spigot;
#X obj 169 203 == 0;
#X obj 45 389 r OSCin;
#X obj 128 103 s toOSCTop;
#X obj 128 359 s toOSCTop;
#X msg 128 78 /Y_top/home 0 \, /X_top/home 0;
#X obj 45 414 route /Y_top_OSC/step;
#X msg 14 81 0;
#X obj 273 217 print;
#X obj 95 164 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 128 148 r OSCin;
#X obj 128 173 route /Y_top_OSC/limitLow;
#X msg 128 284 /Y_top/moveTo 23000;
#X msg 44 725 \; setmode 2;
#X obj 45 509 == 23000;
#X obj 128 309 t a b;
#X msg 164 334 1;
#X obj 45 594 route 1;
#X msg 98 699 0;
#X obj 44 675 t b b;
#X obj 45 482 spigot;
#X obj 86 456 == 0;
#X obj 45 556 &&;
#X obj 159 606 route 1;
#X obj 159 580 spigot;
#X obj 200 554 == 0;
#X obj 159 499 r OSCin;
#X obj 159 524 route /X_top_OSC/limitLow;
#X obj 159 631 t b f;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 0 0 25 0;
#X connect 0 0 29 0;
#X connect 1 0 9 0;
#X connect 1 0 11 0;
#X connect 2 0 23 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 4 1;
#X connect 6 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 24 0;
#X connect 11 0 13 0;
#X connect 11 0 26 1;
#X connect 14 0 15 0;
#X connect 15 0 4 0;
#X connect 16 0 19 0;
#X connect 18 0 26 0;
#X connect 19 0 8 0;
#X connect 19 1 20 0;
#X connect 20 0 2 1;
#X connect 21 0 2 0;
#X connect 22 0 2 1;
#X connect 23 0 17 0;
#X connect 23 1 22 0;
#X connect 24 0 18 0;
#X connect 25 0 24 1;
#X connect 26 0 21 0;
#X connect 27 0 32 0;
#X connect 28 0 27 0;
#X connect 29 0 28 1;
#X connect 30 0 31 0;
#X connect 31 0 28 0;
#X connect 32 0 26 0;
#X connect 32 1 26 1;
#X restore 404 423 pd goHome+feed;
#N canvas 1 62 654 300 getPill 0;
#X obj 71 19 r mode;
#X obj 71 54 route 2;
#X msg 93 97 \; toOSCTop /feeder1/pill;
#X obj 319 25 r /feeder1/pill/done;
#X obj 319 50 route 1 0;
#X msg 379 98 \; toOSCTop /feeder1/pill;
#X obj 68 157 delay 5000;
#X obj 71 79 bang;
#X msg 68 182 \; setmode 3;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 7 0;
#X connect 3 0 4 0;
#X connect 4 1 5 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X restore 404 449 pd getPill;
#N canvas 1 62 499 650 gotoRandom 0;
#X obj 90 33 r mode;
#X obj 90 58 route 3;
#X obj 90 83 t b b;
#X obj 90 108 random 100;
#X obj 198 106 random 50;
#X text 201 12 X 165000 ... 300000 width 135000;
#X text 201 32 Y 14000 ... 31000 width 17000;
#X obj 90 158 * 135000;
#X obj 90 183 + 165000;
#X obj 90 133 / 100;
#X obj 198 136 / 50;
#X obj 198 161 * 17000;
#X obj 198 186 + 14000;
#X obj 45 339 r OSCin;
#X obj 45 419 == 23000;
#X obj 151 423 == 23000;
#X obj 45 394 route /X_top_OSC/step /Y_top_OSC/step;
#X obj 81 507 &&;
#X obj 151 448 t b f;
#X obj 81 532 route 1;
#X floatatom 127 296 10 0 0 0 - - -;
#X floatatom 205 329 5 0 0 0 - - -;
#X obj 321 324 pack f f;
#X msg 321 349 going to \$1 \$2;
#X obj 321 374 print randomTo;
#X msg 90 210 \; toOSCTop /X_top/moveTo \$1;
#X msg 200 250 \; toOSCTop /Y_top/moveTo \$1;
#X obj 83 443 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 178 483 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 81 557 \; setmode 4;
#X obj 45 366 spigot;
#X obj 98 344 == 3;
#X connect 0 0 1 0;
#X connect 0 0 31 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 25 0;
#X connect 8 0 14 1;
#X connect 8 0 20 0;
#X connect 8 0 22 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 26 0;
#X connect 12 0 15 1;
#X connect 12 0 21 0;
#X connect 12 0 22 1;
#X connect 13 0 30 0;
#X connect 14 0 17 0;
#X connect 14 0 27 0;
#X connect 15 0 18 0;
#X connect 15 0 28 0;
#X connect 16 0 14 0;
#X connect 16 1 15 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 18 1 17 1;
#X connect 19 0 29 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 30 0 16 0;
#X connect 31 0 30 1;
#X restore 399 476 pd gotoRandom;
#N canvas 1 62 450 423 dropPill 0;
#X obj 78 22 r mode;
#X obj 78 72 t b b;
#X obj 231 224 hsl 128 15 0 200 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 228 244 f;
#X obj 193 133 delay 2000;
#X msg 229 272 \; toOSCTop /pill_trap \$1;
#X obj 78 47 route 4;
#X msg 266 111 150 2000;
#X msg 193 158 0 2000;
#X floatatom 171 277 5 0 0 0 - - -;
#X obj 231 185 line 0 5;
#X msg 64 276 \; setmode 0;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 1 1 7 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 4 0 11 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 10 0;
#X connect 10 0 2 0;
#X restore 398 506 pd dropPill;
#X obj 34 359 loadbang;
#X msg 34 414 \; toOSCTop /X_top_OSC/move 1 \; toOSCTop /Y_top_OSC/move
1 \; setmode 0;
#X obj 34 384 delay 30000;
#X floatatom 120 142 5 0 0 0 - - -;
#X msg 212 93 124;
#X msg 226 124 0;
#X connect 1 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 9 0 42 0;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 12 0 0 0;
#X connect 13 0 0 0;
#X connect 14 0 0 0;
#X connect 15 0 0 0;
#X connect 18 0 34 0;
#X connect 33 0 18 0;
#X connect 39 0 41 0;
#X connect 41 0 40 0;
#X connect 43 0 9 0;
#X connect 44 0 9 0;