path: root/arduino.pd

#N canvas 263 66 644 371 10;
#X obj 61 19 inlet;
#X obj 61 297 outlet;
#X obj 544 297 outlet;
#N canvas 85 545 712 343 command 0;
#X obj 24 7 inlet;
#X obj 281 289 outlet;
#N canvas 267 161 569 343 digital-out 0;
#X obj 3 15 inlet;
#X obj 72 296 outlet;
#X obj 99 196 mapping/bytemask;
#X msg 272 128 \$1;
#X floatatom 272 196 5 0 0 0 - - -;
#X text 301 127 add channel to command;
#X text 310 171 0x90;
#X obj 272 172 + 144;
#X obj 272 150 div 8;
#X obj 3 55 trigger bang bang anything anything;
#X floatatom 123 220 5 0 0 0 - - -;
#X obj 84 137 pack 0 0;
#X obj 84 96 unpack 0 0;
#X obj 84 117 mod 8;
#X obj 230 245 print [arduino] WARNING: extraneous digital input;
#X obj 72 221 float;
#X obj 25 221 float;
#X obj 84 158 route 7 0 1 2 3 4 5 6;
#X floatatom -7 253 5 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 2 0 10 0;
#X connect 2 0 15 1;
#X connect 3 0 8 0;
#X connect 7 0 4 0;
#X connect 7 0 1 0;
#X connect 8 0 7 0;
#X connect 9 0 16 0;
#X connect 9 1 15 0;
#X connect 9 2 12 0;
#X connect 9 3 3 0;
#X connect 11 0 17 0;
#X connect 12 0 13 0;
#X connect 12 1 11 1;
#X connect 13 0 11 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 16 0 18 0;
#X connect 17 0 16 1;
#X connect 17 1 2 0;
#X connect 17 2 2 1;
#X connect 17 3 2 2;
#X connect 17 4 2 3;
#X connect 17 5 2 4;
#X connect 17 6 2 5;
#X connect 17 7 2 6;
#X connect 17 8 14 0;
#X restore 326 122 pd digital-out;
#N canvas 310 221 540 347 pinMode 0;
#X obj 190 11 inlet;
#X obj 289 307 outlet;
#X obj 60 91 unpack float float;
#X text 27 90 pin#;
#X text 177 92 mode;
#X obj 60 146 moses 128;
#X obj 165 144 select 0;
#X msg 165 167 0;
#X msg 210 167 1;
#X text 54 125 do bounds checking to be safe;
#X obj 190 35 trigger list bang;
#X msg 289 256 244;
#X obj 138 254 float;
#X obj 36 202 trigger bang float;
#X connect 0 0 10 0;
#X connect 2 0 5 0;
#X connect 2 1 6 0;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 7 0 12 1;
#X connect 8 0 12 1;
#X connect 10 0 2 0;
#X connect 10 1 11 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 12 0;
#X connect 13 1 1 0;
#X restore 238 94 pd pinMode;
#N canvas 300 373 372 380 pwm 0;
#X obj 44 14 inlet;
#X obj 44 312 outlet;
#X obj 44 79 unpack float float;
#X obj 44 124 + 224;
#X text 78 125 0xE0;
#X msg 44 249 \$1 \, \$2 \, \$3;
#X obj 44 212 pack float float float;
#X obj 149 126 * 255;
#X obj 173 165 >> 7;
#X obj 108 165 & 127;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 7 0;
#X connect 3 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 6 2;
#X connect 9 0 6 1;
#X restore 24 94 pd pwm;
#X msg 307 94 info;
#X msg 420 136 249;
#N canvas 0 22 462 312 analogIns 0;
#X obj 64 7 inlet;
#X obj 69 263 outlet;
#X obj 64 65 unpack float float;
#X obj 69 175 pack float float;
#X msg 69 201 \$1 \, \$2;
#X obj 169 95 select 0;
#X obj 214 118 bang;
#X msg 214 140 1;
#X msg 169 117 0;
#X obj 64 124 + 192;
#X obj 64 95 moses 16;
#X text 100 123 0xC0;
#X connect 0 0 2 0;
#X connect 2 0 10 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 7 0 3 1;
#X connect 8 0 3 1;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X restore 69 94 pd analogIns;
#N canvas 595 667 341 294 digitalIns 0;
#X obj 87 26 inlet;
#X obj 87 250 outlet;
#X text 126 117 0xD0;
#X msg 87 182 \$1 \, \$2;
#X obj 87 90 unpack float float;
#X obj 87 146 pack float float;
#X obj 87 117 + 208;
#X connect 0 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 4 1 5 1;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X restore 150 94 pd digitalIns;
#X obj 361 77 route digital version firmware;
#X msg 479 136 240 \, 121 \, 247;
#X obj 420 116 bang;
#X obj 479 115 bang;
#X obj 24 51 route pwm analog analogIns digitalIns pinMode info;
#N canvas 624 420 451 466 sysex 0;
#X obj 62 424 outlet;
#X obj 28 22 inlet;
#X obj 28 145 list split 1;
#X obj 62 321 list prepend;
#X obj 62 177 route bang;
#X text 68 22 sysex;
#X obj 250 22 inlet;
#X text 286 21 string;
#X obj 250 155 trigger anything bang;
#X text 398 176 0x71;
#X msg 373 177 113;
#N canvas 366 192 467 461 split 0;
#X text 87 12 Firmata sends 8-bit chars as two 7-bit bytes;
#X obj 32 12 inlet;
#X obj 50 422 outlet;
#X obj 168 173 list;
#X obj 50 361 mapping/tolist;
#X obj 189 112 route bang;
#X obj 189 137 bang;
#X obj 32 311 trigger bang bang;
#X obj 32 54 trigger bang anything;
#X obj 155 89 list split 1;
#X obj 110 208 trigger bang anything anything;
#X text 256 191 LSB;
#X obj 226 298 % 128;
#X text 267 297 only 7-bits of data allowed;
#X text 204 190 MSB;
#X obj 198 234 >> 7;
#X text 235 137 bang resets once finished;
#X connect 1 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 3 1;
#X connect 6 0 3 1;
#X connect 7 0 4 0;
#X connect 7 1 4 1;
#X connect 8 0 7 0;
#X connect 8 1 9 0;
#X connect 9 0 10 0;
#X connect 9 1 5 0;
#X connect 10 0 3 0;
#X connect 10 1 15 0;
#X connect 10 2 12 0;
#X connect 12 0 4 0;
#X connect 15 0 12 0;
#X restore 119 212 pd split into 7-bit bytes;
#X obj 62 344 list prepend 240;
#X text 168 345 0xF0 start_sysex;
#X text 167 366 0xF7 end_sysex;
#X obj 62 366 list append 247;
#X obj 28 66 trigger anything anything;
#X msg 175 87 \$1;
#X connect 1 0 16 0;
#X connect 2 1 4 0;
#X connect 3 0 12 0;
#X connect 4 0 3 0;
#X connect 4 1 11 0;
#X connect 6 0 8 0;
#X connect 8 0 11 0;
#X connect 8 1 10 0;
#X connect 10 0 3 1;
#X connect 11 0 3 0;
#X connect 12 0 15 0;
#X connect 15 0 0 0;
#X connect 16 0 2 0;
#X connect 16 1 17 0;
#X connect 17 0 3 1;
#X restore 572 136 pd sysex;
#X obj 572 114 route sysex string;
#X connect 0 0 13 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 9 1 11 0;
#X connect 9 2 12 0;
#X connect 9 3 15 0;
#X connect 10 0 1 0;
#X connect 11 0 6 0;
#X connect 12 0 10 0;
#X connect 13 0 4 0;
#X connect 13 1 4 0;
#X connect 13 2 7 0;
#X connect 13 3 8 0;
#X connect 13 4 3 0;
#X connect 13 5 5 0;
#X connect 13 6 9 0;
#X connect 14 0 1 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 15 2 1 0;
#X restore 61 52 pd command processing;
#X obj 319 19 inlet;
#X text 306 1 raw input;
#X text 57 1 processed input;
#X obj 410 88 loadbang;
#N canvas 0 22 462 312 report 0;
#X obj 95 26 inlet;
#X obj 97 186 print [arduino];
#X msg 93 87 version_0.4;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 410 112 pd report object version;
#N canvas 0 22 395 210 report 0;
#X obj 62 21 inlet;
#X obj 62 50 route open;
#X obj 62 74 select 1;
#X obj 63 161 outlet;
#X msg 62 126 version;
#X text 133 101 wait for the Diecimila to reset;
#X obj 62 100 delay 2000;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 6 0 4 0;
#X restore 231 113 pd report firmware version;
#X text 335 299 DEBUG/RAW data (this will change);
#N canvas 590 536 467 421 make 0;
#X obj 28 6 inlet;
#X obj 184 377 outlet;
#X obj 28 52 moses 128;
#X obj 130 100 trigger float float;
#N canvas 459 531 653 358 set 0;
#X obj 26 3 inlet;
#X obj 34 307 outlet;
#X text 85 31 0xF0;
#X obj 26 31 moses 240;
#X text 79 307 length in byte count;
#X msg 283 122 2;
#X obj 26 60 & 240;
#X obj 26 101 select 144 160 176 192 208 224;
#X text 29 86 0x90 0xA0 0xB0 0xC0 0xD0 0xE0;
#X msg 251 122 2;
#X text 282 83 0xF4 0xF9;
#X obj 195 242 print [arduino]_WARNING_currently_unsupported;
#X msg 55 122 160;
#X msg 26 122 2;
#X msg 85 122 176;
#X msg 114 122 1;
#X msg 144 122 1;
#X msg 173 122 2;
#X text 348 69 sysex;
#X msg 315 122 999999;
#X text 362 121 <-- sets sysex size limit;
#X text 62 60 strip channel info;
#X text 342 83 0xF0;
#X obj 251 101 select 244 249 240;
#X connect 0 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 23 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 7 1 12 0;
#X connect 7 2 14 0;
#X connect 7 3 15 0;
#X connect 7 4 16 0;
#X connect 7 5 17 0;
#X connect 9 0 1 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 14 0 11 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 17 0 1 0;
#X connect 19 0 1 0;
#X connect 23 0 9 0;
#X connect 23 1 5 0;
#X connect 23 2 19 0;
#X restore 241 127 pd set message length;
#X obj 184 298 mapping/tolist;
#X obj 79 250 select 0;
#X obj 79 228 float;
#X obj 117 228 - 1;
#X obj 79 178 trigger bang float;
#X text 89 52 only process command bytes;
#X text 140 78 end of sysex;
#X obj 79 79 route 247;
#X obj 79 100 bang;
#X connect 0 0 2 0;
#X connect 2 0 9 0;
#X connect 2 1 12 0;
#X connect 3 0 9 0;
#X connect 3 1 4 0;
#X connect 4 0 7 1;
#X connect 5 0 1 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 7 1;
#X connect 9 0 7 0;
#X connect 9 1 5 0;
#X connect 12 0 13 0;
#X connect 12 1 3 0;
#X connect 13 0 5 1;
#X restore 61 194 pd make lists;
#N canvas 0 22 525 269 check 0;
#X obj 47 62 inlet;
#X obj 47 88 route version;
#X obj 87 119 unpack float float;
#X obj 132 163 print [arduino]_WARNING_INCOMPATIBLE_FIRMWARE_VERSION
;
#X obj 47 192 print Arduino/Firmata_version;
#X obj 87 141 select 2;
#X text 142 142 <-- sets the protocol major version this is compatible
with;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 5 1 3 0;
#X restore 81 250 pd check version;
#X obj 61 136 flatspace/comport \$1 115200;
#N canvas 666 625 541 319 convert 0;
#X obj 142 278 outlet;
#X obj 340 150 print UNKNOWN_INPUT_COMMAND;
#N canvas 953 308 511 485 digital 0;
#X obj 33 6 inlet;
#X obj 294 440 outlet;
#X obj 48 125 mapping/debytemask;
#X msg 6 237 0 \$1;
#X msg 44 237 1 \$1;
#X msg 82 237 2 \$1;
#X msg 120 237 3 \$1;
#X msg 158 237 4 \$1;
#X msg 196 237 5 \$1;
#X msg 234 237 6 \$1;
#X msg 286 237 7 \$1;
#X obj 33 92 unpack float float float;
#X obj 294 323 unpack 0 0;
#X obj 294 366 pack 0 0;
#X obj 294 344 +;
#X obj 339 111 unpack float float float;
#X obj 339 133 & 15;
#X obj 33 67 trigger anything anything;
#X msg 294 387 digital \$1 \$2;
#X obj 339 154 * 8;
#X msg 169 33 145 2 0;
#X obj 217 125 mapping/debytemask;
#X msg 40 33 145 16 0;
#X msg 100 33 145 17 0;
#X connect 0 0 17 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 2 2 5 0;
#X connect 2 3 6 0;
#X connect 2 4 7 0;
#X connect 2 5 8 0;
#X connect 2 6 9 0;
#X connect 3 0 12 0;
#X connect 4 0 12 0;
#X connect 5 0 12 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 12 0;
#X connect 10 0 12 0;
#X connect 11 1 2 0;
#X connect 11 2 21 0;
#X connect 12 0 14 0;
#X connect 12 1 13 1;
#X connect 13 0 18 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 19 0;
#X connect 17 0 11 0;
#X connect 17 1 15 0;
#X connect 18 0 1 0;
#X connect 19 0 14 1;
#X connect 20 0 17 0;
#X connect 21 0 10 0;
#X connect 22 0 17 0;
#X connect 23 0 17 0;
#X restore 205 174 pd digital messages;
#N canvas 234 399 335 267 analog 0;
#X obj 65 16 inlet;
#X obj 65 213 outlet;
#X msg 65 150 analog \$1 \$2;
#X obj 65 129 pack float float;
#X obj 158 103 / 1023;
#X text 203 104 scale to 0-1;
#X obj 65 71 unpack float float;
#X connect 0 0 6 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 6 0 3 0;
#X connect 6 1 4 0;
#X restore 342 174 pd analog messages;
#X obj 97 13 inlet;
#N canvas 921 447 492 456 sysex 0;
#X obj 77 20 inlet;
#X obj 77 407 outlet;
#N canvas 1036 237 450 300 firmware 0;
#X obj 91 6 inlet;
#X obj 91 272 outlet;
#X obj 91 170 list prepend;
#X obj 91 206 list prepend firmware;
#X obj 91 239 list trim;
#X obj 160 116 moocow/string2any 32 -1;
#X obj 91 39 list split 2;
#N canvas 843 250 610 545 reassemble 0;
#X text 91 24 Firmata sends 8-bit chars as two 7-bit bytes;
#X obj 36 24 inlet;
#X obj 54 514 outlet;
#X obj 159 131 list split 2;
#X obj 196 206 list;
#X obj 109 256 trigger bang anything;
#X obj 232 280 unpack float float;
#X obj 232 340 +;
#X obj 54 403 mapping/tolist;
#X obj 193 154 route bang;
#X obj 337 303 << 7;
#X obj 193 179 bang;
#X obj 36 353 trigger bang bang;
#X obj 36 106 trigger bang anything;
#X text 249 179 reset the list if end of list or there is a single
byte left over;
#X connect 1 0 13 0;
#X connect 3 0 5 0;
#X connect 3 1 9 0;
#X connect 3 2 11 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 6 1 10 0;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 11 0;
#X connect 9 1 4 1;
#X connect 10 0 7 1;
#X connect 11 0 4 1;
#X connect 12 0 8 0;
#X connect 12 1 8 1;
#X connect 13 0 12 0;
#X connect 13 1 3 0;
#X restore 160 79 pd reassemble chars;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 2 1;
#X connect 6 0 2 0;
#X connect 6 1 7 0;
#X connect 6 2 7 0;
#X connect 7 0 5 0;
#X restore 77 229 pd firmware;
#N canvas 843 250 610 545 assemble 0;
#X text 91 24 Firmata sends 8-bit chars as two 7-bit bytes;
#X obj 36 24 inlet;
#X obj 54 514 outlet;
#X obj 159 131 list split 2;
#X obj 196 206 list;
#X obj 109 256 trigger bang anything;
#X obj 232 280 unpack float float;
#X obj 232 340 +;
#X obj 54 403 mapping/tolist;
#X obj 193 154 route bang;
#X obj 337 303 << 7;
#X obj 193 179 bang;
#X obj 36 353 trigger bang bang;
#X obj 36 106 trigger bang anything;
#X text 249 179 reset the list if end of list or there is a single
byte left over;
#X connect 1 0 13 0;
#X connect 3 0 5 0;
#X connect 3 1 9 0;
#X connect 3 2 11 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 6 1 10 0;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 11 0;
#X connect 9 1 4 1;
#X connect 10 0 7 1;
#X connect 11 0 4 1;
#X connect 12 0 8 0;
#X connect 12 1 8 1;
#X connect 13 0 12 0;
#X connect 13 1 3 0;
#X restore 181 281 pd assemble 7-bit into 14-bit values;
#X obj 181 330 list prepend;
#X obj 181 351 list trim;
#X obj 180 157 trigger anything anything;
#X msg 327 181 \$1;
#X obj 181 183 list split 1;
#X obj 327 205 select 112 113;
#X text 358 188 0x70 0x71;
#X msg 356 230 string;
#X msg 273 230 servo_config;
#X text 108 80 0x79;
#X obj 77 98 route 121;
#X connect 0 0 14 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 9 0;
#X connect 8 1 3 0;
#X connect 9 0 12 0;
#X connect 9 1 11 0;
#X connect 9 2 4 1;
#X connect 11 0 4 1;
#X connect 12 0 4 1;
#X connect 14 0 2 0;
#X connect 14 1 6 0;
#X restore 134 174 pd sysex;
#N canvas 383 54 457 452 route 0;
#X obj 46 24 inlet;
#X obj 175 400 outlet;
#X obj 233 400 outlet;
#X obj 46 91 trigger anything anything;
#X obj 292 400 outlet;
#X obj 175 339 route digital analog;
#X msg 193 115 \$1;
#X obj 244 158 moses 224;
#X text 314 157 0xE0 analog messages;
#X obj 193 136 moses 144;
#X text 257 136 0x90 digital messages;
#X obj 244 209 bang;
#X obj 295 209 bang;
#X msg 244 236 digital;
#X msg 297 236 analog;
#X text 359 178 0xF0;
#X obj 346 236 bang;
#X obj 211 236 bang;
#N canvas 134 58 335 257 parse 0;
#X obj 73 18 inlet;
#X obj 73 215 outlet;
#X obj 73 161 pack float float;
#X obj 73 64 unpack float float float;
#X obj 166 110 +;
#X obj 214 85 << 7;
#X obj 73 85 & 15;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 3 1 4 0;
#X connect 3 2 5 0;
#X connect 4 0 2 1;
#X connect 5 0 4 1;
#X connect 6 0 2 0;
#X restore 46 167 pd parse messages;
#X obj 295 178 moses 240;
#X obj 175 279 cyclone/prepend;
#X connect 0 0 3 0;
#X connect 3 0 18 0;
#X connect 3 1 6 0;
#X connect 5 0 1 0;
#X connect 5 1 2 0;
#X connect 5 2 4 0;
#X connect 6 0 9 0;
#X connect 7 0 11 0;
#X connect 7 1 19 0;
#X connect 9 0 17 0;
#X connect 9 1 7 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 20 1;
#X connect 14 0 20 1;
#X connect 16 0 20 1;
#X connect 17 0 20 1;
#X connect 18 0 20 0;
#X connect 19 0 12 0;
#X connect 19 1 16 0;
#X connect 20 0 5 0;
#X restore 205 126 pd route digital/analog;
#X obj 97 95 route 249 240;
#X text 124 80 0xF9 0xF0;
#X msg 40 174 version \$1 \$2;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 7 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 3 0;
#X connect 6 2 1 0;
#X connect 7 0 9 0;
#X connect 7 1 5 0;
#X connect 7 2 6 0;
#X connect 9 0 0 0;
#X restore 61 222 pd convert to symbolic commands;
#X text 14 337 (C) Copyright 2006-2008 Free Software Foundation;
#X text 321 336 released under the GNU GPL v2 or later;
#X connect 0 0 3 0;
#X connect 3 0 13 0;
#X connect 4 0 13 0;
#X connect 7 0 8 0;
#X connect 9 0 3 0;
#X connect 11 0 14 0;
#X connect 13 0 2 0;
#X connect 13 0 11 0;
#X connect 13 1 9 0;
#X connect 14 0 1 0;
#X connect 14 0 12 0;