LedMatrix/makeartdmx.pd

#N canvas 106 147 1309 889 10;
#X msg 234 830 65 114 116 45 78 101 116 0 0 80 0 14 0 0 0 0 2 0;
#X obj 854 177 unpack f f;
#X obj 877 388 f;
#X obj 854 229 t f f;
#X obj 893 253 <= 511;
#X obj 854 281 spigot;
#X obj 508 679 array define \$0-dmx 512;
#X obj 643 778 array define \$0-header 18;
#X obj 877 411 array set \$0-dmx;
#X obj 431 780 array set \$0-header 15;
#X obj 212 613 array set \$0-header 14;
#X msg 508 626 const \$1;
#X obj 735 542 array get \$0-dmx;
#X obj 258 137 loadbang;
#X obj 588 543 array get \$0-header;
#X obj 588 587 list append;
#X obj 382 18 inlet;
#X obj 234 855 array set \$0-header 0;
#X text 20 42 (c) 2015 Marian Weger;
#X obj 476 194 t b f;
#X obj 854 316 t b b f;
#X obj 611 426 int;
#X obj 611 404 / 256;
#X obj 660 404 mod 256;
#X obj 611 314 clip 2 65534;
#X obj 611 263 spigot;
#X obj 661 263 spigot;
#X obj 711 183 mod 2;
#X obj 711 205 t f f;
#X obj 711 227 == 0;
#X obj 749 227 != 0;
#X obj 661 285 + 1;
#X obj 611 449 array set \$0-header 16;
#X obj 660 426 array set \$0-header 17;
#X obj 834 711 outlet ArtDMX;
#X obj 949 510 b;
#X obj 588 505 t b b;
#X obj 1102 574 array get \$0-dmx;
#X obj 949 574 array get \$0-header;
#X obj 949 618 list append;
#X obj 949 536 t b b;
#X obj 949 644 print [Art-Net message];
#X obj 1012 252 array get \$0-dmx;
#X obj 1012 280 print [DMX Data];
#X obj 258 164 t b b;
#X obj 431 645 f \$1;
#X obj 1012 220 b;
#X obj 673 367 array size \$0-dmx;
#X obj 611 141 t f f f;
#X obj 611 336 t f f f;
#X obj 854 199 int;
#X obj 921 199 int;
#X obj 611 119 int;
#X obj 295 483 int;
#X obj 431 667 int;
#X msg 327 249 0;
#X obj 508 587 int;
#X obj 865 40 b;
#X obj 865 72 array get \$0-header;
#X obj 865 100 print [Art-Net ArtDMX header];
#X obj 431 697 clip 0 127;
#X obj 295 513 clip 0 15;
#X obj 212 483 int;
#X obj 212 513 clip 0 15;
#X text 20 22 makeartdmx (<net> <subnet> <universe> <length>);
#X obj 212 461 f \$2;
#X obj 295 461 f \$3;
#X obj 611 97 f \$4;
#X obj 212 535 * 16;
#X obj 212 587 +;
#X obj 295 535 t b f;
#X obj 382 44 route universe net float bang length print printdmx printheader
subnet frame;
#X obj 711 102 array set \$0-dmx;
#X obj 682 81 t b a;
#X connect 0 0 17 0;
#X connect 1 0 50 0;
#X connect 1 1 51 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 5 1;
#X connect 5 0 20 0;
#X connect 11 0 6 0;
#X connect 12 0 15 1;
#X connect 13 0 44 0;
#X connect 14 0 15 0;
#X connect 15 0 34 0;
#X connect 16 0 71 0;
#X connect 19 0 36 0;
#X connect 19 1 56 0;
#X connect 20 0 36 0;
#X connect 20 1 2 0;
#X connect 20 2 8 1;
#X connect 21 0 32 0;
#X connect 22 0 21 0;
#X connect 23 0 33 0;
#X connect 24 0 49 0;
#X connect 25 0 24 0;
#X connect 26 0 31 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 1 30 0;
#X connect 29 0 25 1;
#X connect 30 0 26 1;
#X connect 31 0 24 0;
#X connect 35 0 40 0;
#X connect 36 0 14 0;
#X connect 36 1 12 0;
#X connect 37 0 39 1;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 40 1 37 0;
#X connect 42 0 43 0;
#X connect 44 0 45 0;
#X connect 44 0 66 0;
#X connect 44 0 67 0;
#X connect 44 1 55 0;
#X connect 44 1 0 0;
#X connect 45 0 54 0;
#X connect 46 0 42 0;
#X connect 48 0 25 0;
#X connect 48 1 26 0;
#X connect 48 2 27 0;
#X connect 49 0 22 0;
#X connect 49 1 23 0;
#X connect 49 2 47 0;
#X connect 50 0 3 0;
#X connect 51 0 2 1;
#X connect 52 0 48 0;
#X connect 53 0 61 0;
#X connect 54 0 60 0;
#X connect 55 0 11 0;
#X connect 56 0 11 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 60 0 9 0;
#X connect 61 0 70 0;
#X connect 62 0 63 0;
#X connect 63 0 68 0;
#X connect 65 0 62 0;
#X connect 66 0 53 0;
#X connect 67 0 52 0;
#X connect 68 0 69 0;
#X connect 69 0 10 0;
#X connect 70 0 69 0;
#X connect 70 1 69 1;
#X connect 71 0 66 0;
#X connect 71 1 45 0;
#X connect 71 2 19 0;
#X connect 71 3 36 0;
#X connect 71 4 67 0;
#X connect 71 5 35 0;
#X connect 71 6 46 0;
#X connect 71 7 57 0;
#X connect 71 8 65 0;
#X connect 71 9 73 0;
#X connect 71 10 1 0;
#X connect 73 0 36 0;
#X connect 73 1 72 0;