context.pd

#N canvas 120 123 796 418 10;
#X declare -lib zexy -path zexy -path ./;
#X obj 101 101 cnv 12 60 48 \$0-cpos \$0-cposr empty 5 23 0 8 -128975
-262144 0;
#N canvas 192 89 992 679 guts 0;
#N canvas 568 87 795 681 names 0;
#X msg 266 486 symbol  ;
#X obj 359 509 t b a;
#X obj 359 486 l2s;
#X obj 243 644 s \$0-cposr;
#X obj 243 534 f;
#X obj 243 600 list append;
#X obj 386 486 s \$0-:n;
#X obj 305 118 cyclone/iter;
#X obj 185 6 receive \$0ncs;
#X obj -17 72 receive \$0-names;
#X obj 211 509 receive \$0nnumber;
#X obj 386 442 list prepend ';
#X obj 386 464 list append ';
#X obj 243 556 makefilename c%i;
#X msg 544 342 c\$1;
#X obj 544 367 list append;
#X obj 517 295 f;
#N canvas 646 281 450 358 accounts 0;
#X obj 160 24 inlet;
#X obj 215 149 list;
#X obj 160 183 list split 1;
#X obj 194 207 route bang;
#X obj 251 230 cyclone/iter;
#X obj 251 257 pack s f f;
#X obj 175 95 t f;
#X obj 160 70 t a b a b b;
#X obj 251 301 unpack f s;
#X obj 251 323 send;
#X obj 160 127 t a f;
#X obj 225 43 t b b;
#X msg 251 279 \$2 \$1storbb^s\$3;
#X obj 239 95 f 1;
#X obj 7 224 t f;
#X text 12 205 send to "all" array;
#X obj 110 246 s all&&storbb^s0;
#X obj 7 246 s all&&storbb^s1;
#X obj 215 119 spigot;
#X obj 267 95 receive \$0-savestart;
#X obj 225 21 receive \$0-Cbang;
#X connect 0 0 7 0;
#X connect 1 0 10 0;
#X connect 1 0 14 0;
#X connect 2 0 16 0;
#X connect 2 1 3 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 5 2;
#X connect 7 0 10 0;
#X connect 7 1 6 0;
#X connect 7 2 1 1;
#X connect 7 3 18 0;
#X connect 7 4 13 0;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 10 0 2 0;
#X connect 10 1 5 1;
#X connect 11 0 1 0;
#X connect 11 1 13 0;
#X connect 12 0 8 0;
#X connect 13 0 5 2;
#X connect 14 0 17 0;
#X connect 18 0 1 0;
#X connect 19 0 18 1;
#X connect 20 0 11 0;
#X restore 467 392 pd accounts;
#X obj 561 249 t b a a;
#X obj 517 317 t f f;
#X obj 517 273 receive \$0nnumber;
#X obj 561 137 receive \$0-j-name;
#X obj 625 367 receive \$0-channels;
#X obj 544 392 ctxfiles/mr \$0;
#X obj 467 367 list append;
#X obj 561 159 route ';
#X obj 561 181 cyclone/zl rev;
#X obj 561 203 route ';
#X obj 561 225 cyclone/zl rev;
#X obj 544 414 s \$0-anymessage;
#X msg 293 453 clear;
#X obj 266 398 route bang clear;
#X obj 305 142 t a a;
#X obj 305 188 list prepend;
#X obj 305 210 route -1;
#X obj 350 232 t f;
#X obj 285 324 cyclone/iter;
#X obj 285 346 sel \;;
#X obj 266 370 ctxfiles/collect;
#X obj 359 420 t a a;
#X obj 266 430 t b b;
#X obj 305 232 symbol;
#X obj 110 286 cyclone/iter;
#X obj 91 332 ctxfiles/collect;
#X obj 91 355 list;
#X obj 110 308 list append \;;
#X obj 332 164 text search \$0-jnames;
#X obj 350 254 text delete \$0-jnames;
#X obj 305 277 text set \$0-jnames 1e+06;
#X obj 285 302 text tolist \$0-jnames;
#X obj 91 379 text fromlist \$0-jnames;
#X obj 131 486 text define \$0-jnames;
#X obj 91 264 t b a a;
#X text 341 94 add or delete tags from symbol input;
#X text 65 405 define tags from data input;
#X text 613 311 house send and receive objects;
#X text 336 634 write label;
#X obj 324 599 receive \$0-dwidth;
#X obj 243 622 ctxfiles/sp 12;
#X obj 266 77 t b b a;
#X obj 185 29 list trim;
#X obj 185 53 route -clear =;
#X obj 10 147 t b a;
#X obj 10 169 del 10;
#X obj 10 191 list;
#X obj 10 213 list trim;
#X obj -17 124 demux;
#X obj 10 100 receive \$0-savestart;
#X obj 10 237 route + -clear;
#X obj 533 472 receive \$0-gridlabel;
#X obj 533 494 sel 0 1;
#X obj 243 578 list prepend;
#X obj 533 542 t b b;
#X obj 571 542 symbol ▪;
#X obj 552 518 t b b b;
#X obj 591 565 s \$0-findme;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 1;
#X connect 2 0 1 0;
#X connect 4 0 13 0;
#X connect 5 0 58 0;
#X connect 7 0 32 0;
#X connect 8 0 60 0;
#X connect 9 0 66 0;
#X connect 10 0 4 0;
#X connect 11 0 12 0;
#X connect 12 0 6 0;
#X connect 13 0 71 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 16 0 19 0;
#X connect 18 0 16 0;
#X connect 18 1 24 1;
#X connect 18 2 15 1;
#X connect 19 0 24 0;
#X connect 19 1 14 0;
#X connect 20 0 16 0;
#X connect 21 0 25 0;
#X connect 22 0 23 1;
#X connect 23 0 29 0;
#X connect 24 0 17 0;
#X connect 25 0 26 0;
#X connect 25 1 18 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 27 1 18 0;
#X connect 28 0 18 0;
#X connect 30 0 6 0;
#X connect 30 0 51 0;
#X connect 31 0 40 0;
#X connect 31 1 40 0;
#X connect 31 2 39 0;
#X connect 32 0 33 0;
#X connect 32 1 46 0;
#X connect 33 0 34 0;
#X connect 34 0 41 0;
#X connect 34 1 35 0;
#X connect 35 0 47 0;
#X connect 36 0 37 0;
#X connect 37 1 38 1;
#X connect 38 0 31 0;
#X connect 39 0 2 0;
#X connect 39 1 11 0;
#X connect 40 0 0 0;
#X connect 40 1 30 0;
#X connect 41 0 48 0;
#X connect 42 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 50 0;
#X connect 45 0 43 1;
#X connect 46 0 33 1;
#X connect 49 0 36 0;
#X connect 52 0 43 0;
#X connect 52 1 42 0;
#X connect 52 2 31 0;
#X connect 57 0 58 1;
#X connect 58 0 3 0;
#X connect 59 0 38 0;
#X connect 59 1 49 0;
#X connect 59 2 7 0;
#X connect 60 0 61 0;
#X connect 61 0 40 0;
#X connect 61 1 52 0;
#X connect 61 2 59 0;
#X connect 62 0 63 0;
#X connect 62 1 64 1;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 68 0;
#X connect 66 0 65 0;
#X connect 66 1 62 0;
#X connect 67 0 66 1;
#X connect 68 0 59 0;
#X connect 68 1 40 0;
#X connect 68 2 52 0;
#X connect 69 0 70 0;
#X connect 70 0 72 0;
#X connect 70 1 74 0;
#X connect 71 0 5 0;
#X connect 72 0 4 0;
#X connect 72 1 71 1;
#X connect 73 0 71 1;
#X connect 74 0 4 0;
#X connect 74 1 73 0;
#X connect 74 2 75 0;
#X restore 68 540 pd names;
#N canvas 67 89 610 679 delaytime 0;
#X obj 171 412 s \$0-realdelay;
#X obj 141 523 t b f;
#X obj 132 546 /;
#X obj 132 665 s \$0-delfrac;
#X obj 263 259 receive \$0safety;
#X obj 101 8 receive delay\$0s;
#X obj 31 296 receive \$0-redel;
#X obj 161 59 t b f;
#X obj 132 246 /;
#X obj 161 34 receive \$0-coefmode;
#X obj 290 22 receive \$0-coefficient;
#X obj 122 196 * 1;
#X obj 290 67 max 0.01;
#X obj 290 327 * 0.01;
#X obj 151 366 * 1000;
#X obj 151 388 s \$0-del1000;
#X obj 159 593 s \$0-metdelay;
#X obj 132 568 t f f;
#X obj 132 618 * 1000;
#X obj 141 498 receive \$0-xy21;
#X obj 263 282 t b f;
#X obj 311 448 !=;
#X obj 311 470 change;
#X obj 311 494 * 1000;
#X obj 311 516 s \$0-del2000;
#X obj 101 81 f;
#X obj 243 654 s \$0-delfrac2;
#X obj 101 104 demux 0 1 2 3 4;
#X obj 166 197 pow;
#X obj 290 90 t b f f f;
#X obj 132 224 swap 1;
#X obj 166 173 swap 2;
#X obj 290 44 t f l l;
#X obj 444 98 list length;
#X obj 444 142 array define \$0-delmap 1;
#X obj 444 164 array set \$0-delmap;
#X obj 188 128 moses;
#X msg 444 120 resize \$1;
#X obj 188 150 tabread \$0-delmap;
#X obj 271 411 v \$0-realdelay;
#X obj 132 322 max 0.01;
#X obj 132 291 * 1;
#X obj 216 188 receive \$0-tempo;
#X obj 216 211 t b f;
#X obj 243 236 * 0.01;
#X text -36 -13 force reverse;
#X obj 132 640 clip 250 1000;
#X obj 132 343 t f f f f f f;
#X obj 177 455 spigot 1;
#X obj 177 477 s \$0-fakedelay;
#X obj 222 433 receive \$0randombang;
#X obj 290 305 !=;
#X connect 1 0 41 0;
#X connect 1 1 2 1;
#X connect 2 0 17 0;
#X connect 4 0 20 0;
#X connect 5 0 25 0;
#X connect 6 0 40 0;
#X connect 7 0 25 0;
#X connect 7 1 27 1;
#X connect 8 0 41 0;
#X connect 9 0 7 0;
#X connect 10 0 32 0;
#X connect 11 0 41 0;
#X connect 12 0 29 0;
#X connect 13 0 40 1;
#X connect 14 0 15 0;
#X connect 17 0 18 0;
#X connect 17 1 16 0;
#X connect 18 0 26 0;
#X connect 18 0 46 0;
#X connect 19 0 1 0;
#X connect 20 0 40 0;
#X connect 20 1 51 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 27 0;
#X connect 27 0 41 0;
#X connect 27 1 11 0;
#X connect 27 2 30 0;
#X connect 27 3 31 0;
#X connect 27 4 36 0;
#X connect 28 0 41 0;
#X connect 29 0 25 0;
#X connect 29 1 30 1;
#X connect 29 2 11 1;
#X connect 29 3 31 1;
#X connect 30 0 8 0;
#X connect 30 1 8 1;
#X connect 31 0 28 0;
#X connect 31 1 28 1;
#X connect 32 0 12 0;
#X connect 32 1 35 0;
#X connect 32 2 33 0;
#X connect 33 0 37 0;
#X connect 33 0 36 1;
#X connect 36 0 38 0;
#X connect 36 1 41 0;
#X connect 37 0 34 0;
#X connect 38 0 41 0;
#X connect 40 0 47 0;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 43 0 41 0;
#X connect 43 1 44 0;
#X connect 44 0 41 1;
#X connect 46 0 3 0;
#X connect 47 0 2 0;
#X connect 47 1 14 0;
#X connect 47 2 0 0;
#X connect 47 3 48 0;
#X connect 47 4 21 0;
#X connect 47 5 39 0;
#X connect 48 0 49 0;
#X connect 50 0 48 1;
#X connect 51 0 13 0;
#X restore 68 295 pd delaytime;
#N canvas 67 138 974 495 process 0;
#X obj 273 108 demux;
#X obj 431 729 demux;
#X obj 538 717 demux;
#X obj 93 118 demux;
#N canvas 392 273 974 495 Sequence 0;
#X obj 367 610 outlet;
#N canvas 67 146 927 622 count-to 0;
#X obj 169 3 inlet;
#X obj 169 27 unpack f f;
#X obj 141 263 f;
#X obj 243 394 sel;
#X obj 208 576 outlet;
#X obj 169 51 t b f;
#X obj 196 121 - 1;
#X obj 141 286 + 1;
#X obj 323 196 f;
#X obj 291 172 demux;
#X obj 323 218 + 1;
#X obj 226 226 clip 0;
#X obj 291 196 t f;
#X obj 208 51 inlet;
#X obj 190 622 s \$0-boo;
#X obj 225 464 s \$0-boo2;
#X obj 300 127 receive \$0-rev;
#X obj 341 173 receive \$0-xy2;
#X obj 104 82 receive \$0-sl-stop;
#X msg 259 99 tempo \$1 msec;
#X obj 259 72 receive \$0-metdelay;
#X obj 245 554 s \$0-reccount;
#X obj 282 487 receive \$0-recon;
#X obj 354 203 receive \$0-xy21;
#X obj 190 601 cyclone/onebang;
#X obj 225 443 cyclone/onebang;
#X obj 141 196 metro 1000 0.01 msec;
#X obj 147 161 receive \$0-del2000;
#X obj 141 310 demux;
#N canvas 346 159 450 394 shuffle 0;
#X obj 79 156 inlet;
#X obj 106 315 outlet;
#X obj 286 108 receive \$0-delfrac2;
#X obj 203 21 receive \$0-shuffle;
#X obj 222 129 abs;
#X obj 222 151 min 100;
#X obj 286 175 spigot;
#X obj 286 132 t b f;
#X obj 313 204 - 1;
#X obj 222 242 *;
#X obj 222 173 * 0.01;
#X obj 106 228 mod 2;
#X obj 203 43 t f f f;
#X obj 242 66 !=;
#X obj 242 88 outlet;
#X obj 203 67 >;
#X obj 106 204 +;
#X obj 79 276 pipe;
#X obj 79 252 demux;
#X obj 79 178 t f f;
#X connect 0 0 19 0;
#X connect 2 0 7 0;
#X connect 3 0 12 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 7 1 8 0;
#X connect 8 0 9 1;
#X connect 9 0 17 1;
#X connect 10 0 9 0;
#X connect 11 0 18 1;
#X connect 12 0 15 0;
#X connect 12 1 4 0;
#X connect 12 2 13 0;
#X connect 13 0 6 1;
#X connect 13 0 14 0;
#X connect 15 0 16 1;
#X connect 16 0 11 0;
#X connect 17 0 1 0;
#X connect 18 0 17 0;
#X connect 18 1 1 0;
#X connect 19 0 18 0;
#X connect 19 1 16 0;
#X restore 173 334 pd shuffle;
#X obj 20 161 receive \$0-remet;
#X obj 445 305 t b f f;
#X obj 243 417 t b b b b;
#X obj 413 305 f 1;
#X obj 300 149 t b f f;
#X obj 413 282 demux;
#X obj 104 107 t b a b;
#X obj 150 133 t f;
#X obj 494 522 s \$0-end;
#X obj 527 411 spigot;
#X obj 559 478 s \$0-ston;
#X obj 527 456 s \$0-redel;
#X obj 527 432 t b f;
#X obj 478 544 s \$0-ended;
#X obj 544 570 s \$0-ended1;
#X obj 566 389 receive \$0-ston;
#X obj 376 431 receive \$0-stop;
#X obj 685 442 spigot;
#X obj 461 614 spigot;
#X obj 500 592 receive \$0-eon;
#X msg 461 636 :s;
#X obj 461 658 s \$0-undone2;
#X obj 673 582 swap 1;
#X obj 673 604 -;
#X obj 673 627 s \$0-imoff;
#X obj 685 464 t b f;
#X obj 685 508 f;
#X obj 685 530 sel 1;
#X obj 715 378 receive \$0-imonn;
#X obj 715 401 t f f f;
#X obj 738 558 change;
#X obj 738 580 s \$0-imon;
#X obj 685 486 del 0;
#X obj 511 500 s \$0-mdo;
#X obj 28 51 receive \$0-prestart;
#X obj 763 443 receive \$0-stop;
#X obj 149 443 s \$0-togri;
#X obj 173 362 t f b f b f f;
#X obj 445 367 t b b b b b b b b;
#X obj 376 456 t b b b b;
#X obj 208 510 demux 0 1 2;
#X obj 282 532 t f f;
#X obj 141 228 demux;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 11 0;
#X connect 2 0 7 0;
#X connect 3 0 32 0;
#X connect 5 0 26 0;
#X connect 5 1 6 0;
#X connect 6 0 2 1;
#X connect 7 0 28 0;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 9 1 8 0;
#X connect 10 0 2 1;
#X connect 11 0 3 1;
#X connect 12 0 2 1;
#X connect 13 0 6 1;
#X connect 13 0 7 1;
#X connect 16 0 34 0;
#X connect 17 0 8 1;
#X connect 18 0 36 0;
#X connect 19 0 26 0;
#X connect 20 0 19 0;
#X connect 22 0 70 1;
#X connect 23 0 11 2;
#X connect 24 0 14 0;
#X connect 25 0 15 0;
#X connect 26 0 72 0;
#X connect 27 0 26 1;
#X connect 28 0 67 0;
#X connect 28 1 29 0;
#X connect 29 0 67 0;
#X connect 29 1 28 1;
#X connect 30 0 2 0;
#X connect 31 0 68 0;
#X connect 31 1 72 1;
#X connect 31 2 26 0;
#X connect 32 0 25 1;
#X connect 32 1 24 1;
#X connect 32 2 35 0;
#X connect 32 3 9 0;
#X connect 33 0 72 1;
#X connect 34 0 9 0;
#X connect 34 1 9 1;
#X connect 34 2 35 1;
#X connect 35 0 33 0;
#X connect 35 1 31 0;
#X connect 36 0 9 0;
#X connect 36 1 26 0;
#X connect 36 2 37 0;
#X connect 37 0 72 1;
#X connect 39 0 42 0;
#X connect 42 0 41 0;
#X connect 42 1 40 0;
#X connect 45 0 39 1;
#X connect 46 0 69 0;
#X connect 47 0 55 0;
#X connect 48 0 50 0;
#X connect 49 0 48 1;
#X connect 50 0 51 0;
#X connect 52 0 53 0;
#X connect 52 1 53 1;
#X connect 53 0 54 0;
#X connect 55 0 62 0;
#X connect 55 1 56 1;
#X connect 56 0 57 0;
#X connect 57 1 60 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 59 1 47 1;
#X connect 59 2 56 1;
#X connect 60 0 61 0;
#X connect 60 0 52 0;
#X connect 62 0 56 0;
#X connect 64 0 37 0;
#X connect 65 0 55 0;
#X connect 67 0 66 0;
#X connect 67 1 24 0;
#X connect 67 2 70 0;
#X connect 67 3 25 0;
#X connect 67 4 3 0;
#X connect 67 5 2 1;
#X connect 68 0 66 0;
#X connect 68 1 48 0;
#X connect 68 2 43 0;
#X connect 68 3 38 0;
#X connect 68 4 63 0;
#X connect 68 5 39 0;
#X connect 68 6 44 0;
#X connect 68 7 47 0;
#X connect 69 0 66 0;
#X connect 69 1 43 0;
#X connect 69 2 44 0;
#X connect 69 3 39 0;
#X connect 70 0 4 0;
#X connect 70 1 21 0;
#X connect 70 2 71 0;
#X connect 71 0 4 0;
#X connect 71 1 21 0;
#X connect 72 0 2 0;
#X connect 72 1 31 0;
#X restore 269 372 pd count-to;
#X obj 391 250 demux;
#X obj 391 226 pack 5 1;
#X obj 262 282 f 1;
#X obj 141 71 demux;
#X obj 219 119 int;
#X obj 195 144 -;
#X obj 173 95 t f f f;
#X obj 195 200 *;
#X obj 173 340 pipe;
#X obj 173 120 int;
#X obj 173 174 + 1;
#X obj 109 396 s \$0-slist;
#X obj 391 323 t f f;
#X obj 109 45 t f f;
#X obj 173 39 t f f f;
#X obj 177 453 spigot;
#X obj 196 63 sel 1;
#X obj 146 478 s \$0-doffsest;
#X obj 504 207 - 0.5;
#X obj 504 229 * -2;
#X obj 262 259 inlet;
#X obj 289 557 route 0;
#X obj 289 439 - 1;
#X obj 289 529 array get \$0-xarry 0 1;
#X obj 796 531 route 0;
#X obj 742 584 t a a;
#X obj 769 608 list length;
#X msg 769 684 resize \$1;
#X obj 723 509 t b b a;
#X obj 723 483 array get \$0-xarry;
#X obj 796 658 s \$0-patternl;
#X obj 769 709 array define \$0-pattern 1;
#X obj 742 738 array set \$0-pattern;
#X obj 663 538 s \$0-patternblip;
#X obj 801 456 t b s;
#X obj 109 -8 receive \$0-snum;
#X obj 173 14 receive \$0-sson;
#X obj 391 201 receive \$0-xy2;
#X obj 460 93 receive \$0-rev;
#X obj 801 434 receive \$0-xysw;
#X obj 418 507 receive \$0-xysw;
#X obj 243 158 receive \$0-metdelay;
#X obj 466 914 v \$0-nexto;
#X obj 446 939 array get \$0-iarry 0 1;
#X obj 575 916 receive \$0-ijsw;
#X obj 383 1104 !=;
#X obj 263 1042 receive \$0nnumber;
#X obj 391 298 unpack;
#X obj 269 350 pack;
#X obj 109 373 pack;
#X obj 347 636 s \$0-thispat;
#X obj 427 1149 t f f;
#X obj 427 1191 s \$0-pt-n1;
#X obj 454 1172 s \$0-pt-n;
#X obj 796 509 cyclone/iter;
#X obj 742 562 ctxfiles/collect;
#X obj 262 304 t f f;
#X obj 90 507 receive \$0-fclick;
#X obj 243 180 * 1000;
#X obj 217 -8 receive \$0-ston;
#X obj 391 348 - 1;
#X obj 262 326 - 1;
#X obj 418 273 swap;
#X obj 446 963 t f f;
#X obj 446 986 int;
#X obj 446 1009 t f f;
#X text 719 793 connect to first f from trigger?;
#X obj 769 633 t f f;
#X obj 328 760 array max \$0-xpro;
#X obj 427 738 receive \$0-xyswp;
#X obj 328 680 demux;
#X obj 355 727 -;
#X obj 427 810 demux;
#X obj 454 857 -;
#X obj 454 758 receive \$0-xy21;
#X obj 388 680 receive \$0-xy2;
#X obj 355 705 swap 5;
#X obj 427 785 mod 4;
#X obj 454 835 swap 3;
#X obj 487 812 receive \$0-xy22;
#X obj 427 914 + 1;
#X obj 427 889 t f f f;
#X obj 328 612 f;
#X obj 328 658 pipe 0;
#X obj 473 1031 ==;
#X obj 473 1078 t b;
#X obj 473 1100 f 1;
#X obj 446 1055 demux;
#X obj 419 1079 t f b;
#X obj 446 1100 t f;
#X obj 427 1128 spigot 1;
#X obj 453 409 receive \$0-rev-togs;
#X obj 414 433 spigot;
#X obj 414 455 + 1;
#X obj 90 532 demux;
#X obj 289 462 moses;
#X obj 440 636 s \$0-npat;
#X obj 383 1128 sel 1;
#X text 534 1020 if the corresponding i/j value is an integer \, let
the number through. If not \, check the i/j value against self-id.
If it is the same \, block output of number.;
#X obj 150 548 receive \$0-imon;
#X obj 150 570 sel 1;
#X text -115 574 create s \$0-stopped if necessary -->;
#X obj 109 16 - 1;
#X obj 177 426 * 1;
#X obj 173 362 +;
#X obj 195 245 swap;
#X obj 195 267 -;
#X obj 195 289 mod;
#X obj 195 315 t f f f;
#X obj 573 216 ==;
#X obj 195 222 demux;
#X obj 460 118 t b b f f f f f f f;
#X obj 234 349 && 1;
#X obj 691 454 t b b;
#X obj 691 407 receive \$0-patternst;
#X obj 172 635 receive \$0-restarti;
#X obj 172 658 t f;
#X obj 177 594 t f b;
#X obj 328 588 t f f f f b;
#X obj 214 758 s \$0-notlast;
#X obj 240 735 t f;
#X obj 214 735 f 1;
#X obj 316 485 cyclone/prepend count;
#X obj 316 508 s \$0-messonpre;
#X obj 202 508 receive \$0-mescout;
#X obj 269 418 sel 0;
#X obj 296 394 receive \$0-rpoint;
#X obj 234 486 s \$0-pointed;
#X connect 1 0 127 0;
#X connect 2 0 49 0;
#X connect 2 1 64 0;
#X connect 3 0 2 0;
#X connect 4 0 58 0;
#X connect 5 0 50 0;
#X connect 5 1 8 0;
#X connect 6 0 7 1;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 8 1 7 0;
#X connect 8 2 6 0;
#X connect 9 0 112 0;
#X connect 10 0 106 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 14 0 62 0;
#X connect 14 1 50 1;
#X connect 15 0 51 0;
#X connect 15 1 5 0;
#X connect 16 0 5 1;
#X connect 16 1 18 0;
#X connect 16 2 17 1;
#X connect 17 0 19 0;
#X connect 18 1 19 0;
#X connect 20 0 21 0;
#X connect 21 0 1 1;
#X connect 21 0 105 1;
#X connect 22 0 4 0;
#X connect 23 1 120 0;
#X connect 24 0 97 0;
#X connect 25 0 23 0;
#X connect 26 1 57 1;
#X connect 27 0 34 0;
#X connect 27 1 28 0;
#X connect 28 0 69 0;
#X connect 29 0 33 0;
#X connect 30 0 35 0;
#X connect 30 1 57 0;
#X connect 30 2 56 0;
#X connect 31 0 30 0;
#X connect 36 0 115 0;
#X connect 36 1 31 2;
#X connect 37 0 104 0;
#X connect 38 0 16 0;
#X connect 39 0 3 0;
#X connect 40 0 113 0;
#X connect 41 0 36 0;
#X connect 42 0 25 2;
#X connect 43 0 60 0;
#X connect 45 0 65 0;
#X connect 46 0 45 2;
#X connect 47 0 99 0;
#X connect 48 0 47 1;
#X connect 49 0 14 0;
#X connect 49 1 4 1;
#X connect 50 0 1 0;
#X connect 51 0 13 0;
#X connect 53 0 54 0;
#X connect 53 1 55 0;
#X connect 56 0 26 0;
#X connect 57 0 27 0;
#X connect 58 0 63 0;
#X connect 58 1 50 0;
#X connect 59 0 96 0;
#X connect 60 0 9 1;
#X connect 60 0 107 1;
#X connect 60 0 109 1;
#X connect 61 0 16 0;
#X connect 62 0 51 1;
#X connect 63 0 51 0;
#X connect 64 0 14 0;
#X connect 64 1 4 1;
#X connect 65 0 66 0;
#X connect 65 1 86 1;
#X connect 66 0 67 0;
#X connect 67 0 89 0;
#X connect 67 1 86 0;
#X connect 69 0 29 0;
#X connect 69 1 32 0;
#X connect 70 1 79 0;
#X connect 71 0 70 2;
#X connect 72 0 70 0;
#X connect 72 1 78 0;
#X connect 73 0 70 0;
#X connect 74 0 83 0;
#X connect 74 1 80 0;
#X connect 75 0 83 0;
#X connect 76 0 79 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 78 1 73 1;
#X connect 79 0 74 0;
#X connect 80 0 75 0;
#X connect 80 1 75 1;
#X connect 81 0 80 1;
#X connect 82 0 92 0;
#X connect 83 0 82 0;
#X connect 83 1 45 0;
#X connect 83 2 44 0;
#X connect 84 0 85 0;
#X connect 85 0 72 0;
#X connect 86 0 89 1;
#X connect 87 0 88 0;
#X connect 88 0 92 1;
#X connect 89 0 90 0;
#X connect 89 1 87 0;
#X connect 90 0 47 0;
#X connect 90 1 91 0;
#X connect 91 0 92 1;
#X connect 92 0 53 0;
#X connect 93 0 94 1;
#X connect 93 0 96 1;
#X connect 94 0 95 0;
#X connect 95 0 24 1;
#X connect 96 0 25 0;
#X connect 97 1 124 0;
#X connect 99 0 88 0;
#X connect 101 0 102 0;
#X connect 102 1 119 0;
#X connect 104 0 15 0;
#X connect 105 0 17 0;
#X connect 106 0 50 0;
#X connect 107 0 108 0;
#X connect 107 1 108 1;
#X connect 108 0 109 0;
#X connect 109 0 110 0;
#X connect 110 0 10 1;
#X connect 110 1 105 0;
#X connect 110 2 114 0;
#X connect 111 0 114 1;
#X connect 112 0 107 0;
#X connect 112 1 110 0;
#X connect 113 0 119 0;
#X connect 113 1 3 0;
#X connect 113 2 2 1;
#X connect 113 3 20 0;
#X connect 113 4 72 1;
#X connect 113 5 74 1;
#X connect 113 6 94 0;
#X connect 113 7 111 0;
#X connect 113 8 112 1;
#X connect 114 0 106 1;
#X connect 115 0 84 0;
#X connect 115 1 31 0;
#X connect 116 0 115 0;
#X connect 117 0 118 0;
#X connect 118 0 72 0;
#X connect 119 0 84 0;
#X connect 119 1 123 0;
#X connect 120 0 84 0;
#X connect 120 1 52 0;
#X connect 120 2 0 0;
#X connect 120 3 98 0;
#X connect 120 4 122 0;
#X connect 122 0 121 0;
#X connect 123 0 121 0;
#X connect 124 0 125 0;
#X connect 126 0 25 0;
#X connect 127 0 129 0;
#X connect 127 1 24 0;
#X connect 128 0 127 1;
#X restore 446 292 pd Sequence;
#N canvas 631 155 560 613 random-d 0;
#X obj 171 364 random;
#X obj 171 420 / 1;
#X obj 204 318 + 1;
#X obj 171 46 inlet;
#X obj 171 93 spigot;
#X obj 204 135 spigot 1;
#X msg 171 463 1;
#X obj 171 559 s \$0randombang;
#X obj 204 27 == 1;
#X obj 188 488 s delay\$0s;
#X obj 171 442 t b f f b;
#X obj 205 538 s \$0-dr;
#X msg 205 514 set \$1;
#X obj 48 228 receive \$0seed1;
#X obj 304 100 receive \$0-rres;
#X obj 229 77 receive delay\$0s;
#X obj 204 5 receive \$0-dellmode;
#X obj 333 46 receive \$0-nozero;
#X text 405 130 process nozero option;
#X obj 304 121 sel 0;
#X obj 204 293 * 1;
#X obj 358 167 swap 1;
#X obj 358 189 /;
#X obj 331 143 moses;
#X obj 274 213 clip 0 1;
#X obj 204 161 t f f b f;
#X obj 239 27 receive \$0-randadv;
#X obj 171 68 spigot 1;
#X obj 331 213 t b f f b f;
#X obj 333 68 t b f;
#X obj 204 266 - 1;
#X obj 218 363 * 1;
#X obj 171 391 + 1;
#X obj 274 188 f 1;
#X obj 222 463 t f f;
#X obj 96 17 receive \$0-dbump;
#X connect 0 0 32 0;
#X connect 1 0 10 0;
#X connect 2 0 0 1;
#X connect 3 0 27 0;
#X connect 4 0 0 0;
#X connect 5 0 25 0;
#X connect 6 0 5 1;
#X connect 6 0 7 0;
#X connect 8 0 4 1;
#X connect 10 0 6 0;
#X connect 10 1 9 0;
#X connect 10 2 12 0;
#X connect 10 3 34 0;
#X connect 12 0 11 0;
#X connect 13 0 0 0;
#X connect 14 0 19 0;
#X connect 15 0 5 0;
#X connect 16 0 8 0;
#X connect 17 0 29 0;
#X connect 19 1 23 0;
#X connect 20 0 2 0;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 22 0 28 0;
#X connect 23 0 28 0;
#X connect 23 1 21 0;
#X connect 24 0 30 1;
#X connect 24 0 31 0;
#X connect 25 0 30 0;
#X connect 25 2 33 0;
#X connect 25 3 24 2;
#X connect 26 0 27 1;
#X connect 27 0 4 0;
#X connect 28 0 30 0;
#X connect 28 1 1 1;
#X connect 28 2 20 1;
#X connect 28 3 31 0;
#X connect 28 4 31 1;
#X connect 29 0 30 0;
#X connect 29 1 33 0;
#X connect 30 0 20 0;
#X connect 31 0 32 1;
#X connect 32 0 1 0;
#X connect 33 0 24 0;
#X connect 34 0 7 0;
#X connect 34 1 5 1;
#X connect 35 0 4 0;
#X restore 485 215 pd random-d;
#X obj 431 772 s \$0-outletx-in;
#X obj 538 772 s \$0-outlety-in;
#X obj 674 495 s \$0-spreadbang;
#X obj 245 415 list append;
#X obj 42 358 route 0;
#X obj 473 369 array get \$0-iarry 0 1;
#X obj 312 260 s \$0-bu-n;
#X obj 473 346 - 1;
#X obj 446 314 t f f;
#X obj 81 422 t f b;
#X obj 81 617 list append;
#X obj 108 543 s \$0-lastbang;
#X obj 155 591 receive \$0-prat;
#X obj 602 346 receive \$0-ijsw;
#X obj 245 365 receive \$0-pcount;
#X obj 570 694 receive \$0-xym;
#X obj 344 93 receive \$0-rev;
#X obj 213 55 receive \$0-start;
#X obj 309 751 s \$0-symlab;
#X obj 431 699 t a a;
#X obj 275 716 list split 2;
#X obj 273 82 spigot 1;
#X obj 318 31 spigot;
#X obj 318 55 t f;
#X obj 394 -18 receive \$0-collect;
#X obj 394 4 swap 1;
#X obj 394 26 -;
#X obj 92 191 receive \$0-road;
#X obj 11 231 spigot;
#X obj 60 231 demux;
#X text -396 255 determine where the last toggle goes when :d is negative
;
#X obj 43 277 s \$0-fclick;
#X obj 336 203 s \$0-imonn;
#X text 363 158 determine the order of pattern and burst depending
on rev;
#X text 66 353 receive count from message;
#X text 200 348 receive message from message;
#X text 279 776 send to symbol;
#X text 55 385 weed out positive float;
#X text 14 456 LAST TOGGLE;
#X text 539 738 flip outlet based on :m;
#X obj 473 391 t f f;
#X obj 505 414 int;
#X obj 473 436 -;
#X obj 473 458 sel 0;
#X obj 108 471 t f f;
#X obj 135 496 int;
#X obj 108 496 -;
#X obj 108 518 sel 0;
#X obj 150 518 v \$0-fdog;
#X text 527 387 weed out non-integer toggle floats from pattern;
#X obj 431 643 list append;
#X obj 505 533 list;
#X obj 505 510 t b;
#X text 628 549 if float conect \, allow 'push' messages but turn everything
else into bangs., f 17;
#X obj 530 510 receive \$0-prepb;
#X obj 505 621 receive \$0-prep;
#X obj 319 392 receive \$0-prop;
#X obj 334 423 receive \$0-propb;
#X obj 282 477 receive \$0-pratb;
#X obj 381 542 t b;
#X obj 282 499 t a b;
#X obj 282 666 demux 0 1 2;
#X obj 356 621 cyclone/funnel 3;
#X obj 356 643 t f;
#X obj 334 445 t a b;
#X obj 505 555 t a b;
#X obj 505 577 list trim;
#X obj 282 544 v \$0nnumber;
#X msg 282 632 push \$1;
#X text 238 303 <--try this connection out to see of no-iterrupt mode
can be made compatable with looping float connects. If it causes trouble
\, delete it., f 143;
#X obj 336 180 f 1;
#X obj 273 156 t b b b b;
#X obj 93 94 receive \$0-mdo;
#X obj 305 131 t f b b b b b b;
#X obj 11 253 t f f;
#X obj 207 205 t f b b;
#X obj 42 306 tabread \$0-toge;
#X obj 108 446 array get \$0-floate;
#X obj 282 520 route push <i <io;
#X obj 674 445 demux;
#X obj 701 423 receive \$0-bsmode;
#X obj 701 469 s \$0-bspread;
#X obj 326 567 else/break &;
#X obj 326 590 route &;
#X obj 291 -18 receive \$0-imoff;
#X obj 291 5 sel 0;
#X obj 226 260 s \$0-bu-reset;
#X connect 0 0 77 0;
#X connect 0 1 79 0;
#X connect 1 0 6 0;
#X connect 1 1 7 0;
#X connect 2 0 7 0;
#X connect 2 1 6 0;
#X connect 3 0 81 0;
#X connect 3 1 34 0;
#X connect 4 0 14 0;
#X connect 9 0 2 0;
#X connect 10 1 15 0;
#X connect 11 0 46 0;
#X connect 13 0 11 0;
#X connect 14 0 56 0;
#X connect 14 1 13 0;
#X connect 15 0 16 0;
#X connect 15 1 83 0;
#X connect 16 0 6 0;
#X connect 18 0 16 1;
#X connect 19 0 11 2;
#X connect 20 0 9 0;
#X connect 21 0 2 1;
#X connect 21 0 1 1;
#X connect 22 0 0 1;
#X connect 22 0 3 1;
#X connect 23 0 27 0;
#X connect 25 0 1 0;
#X connect 25 1 26 0;
#X connect 26 1 24 0;
#X connect 27 0 0 0;
#X connect 28 0 29 0;
#X connect 29 0 27 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 31 1 32 1;
#X connect 32 0 28 1;
#X connect 33 0 34 1;
#X connect 33 0 35 1;
#X connect 34 0 80 0;
#X connect 35 0 82 0;
#X connect 46 0 48 0;
#X connect 46 1 47 0;
#X connect 47 0 48 1;
#X connect 48 0 49 0;
#X connect 49 0 85 0;
#X connect 49 1 58 0;
#X connect 50 0 52 0;
#X connect 50 1 51 0;
#X connect 51 0 52 1;
#X connect 52 0 53 0;
#X connect 52 0 54 0;
#X connect 53 0 17 0;
#X connect 53 1 27 1;
#X connect 56 0 25 0;
#X connect 57 0 71 0;
#X connect 58 0 57 0;
#X connect 60 0 57 1;
#X connect 61 0 56 1;
#X connect 62 0 9 1;
#X connect 63 0 70 0;
#X connect 64 0 66 0;
#X connect 65 0 67 0;
#X connect 66 0 84 0;
#X connect 66 1 68 0;
#X connect 67 0 16 1;
#X connect 67 1 9 1;
#X connect 67 2 56 1;
#X connect 68 0 69 0;
#X connect 69 0 67 1;
#X connect 70 0 84 0;
#X connect 70 1 68 1;
#X connect 71 0 72 0;
#X connect 71 1 68 2;
#X connect 72 0 84 0;
#X connect 73 0 74 0;
#X connect 74 0 67 0;
#X connect 76 0 38 0;
#X connect 77 0 4 0;
#X connect 77 1 5 0;
#X connect 77 2 76 0;
#X connect 77 3 28 0;
#X connect 78 0 3 0;
#X connect 79 0 35 0;
#X connect 79 1 92 0;
#X connect 79 2 12 0;
#X connect 79 3 4 0;
#X connect 79 4 5 0;
#X connect 79 5 76 0;
#X connect 79 6 28 0;
#X connect 80 0 82 0;
#X connect 80 1 37 0;
#X connect 81 0 82 0;
#X connect 81 1 92 0;
#X connect 81 2 12 0;
#X connect 82 0 10 0;
#X connect 83 0 50 0;
#X connect 84 0 73 0;
#X connect 84 1 88 0;
#X connect 84 2 88 0;
#X connect 84 3 65 0;
#X connect 85 0 8 0;
#X connect 85 1 87 0;
#X connect 86 0 85 1;
#X connect 88 0 89 0;
#X connect 89 0 67 0;
#X connect 89 1 67 0;
#X connect 90 0 91 0;
#X connect 91 1 28 0;
#X restore 68 376 pd process;
#N canvas 67 196 872 467 toggles 0;
#N canvas 623 371 450 300 ytogs 0;
#X obj 56 40 iemguts/sendcanvas;
#X obj 56 18 receive \$0-ybc;
#X obj 199 14 ctxfiles/cy 1 \$0 0 98;
#X obj 199 34 ctxfiles/cy 2 \$0 1 110;
#X obj 199 55 ctxfiles/cy 3 \$0 2 122;
#X connect 1 0 0 0;
#X restore 448 297 pd ytogs;
#X obj 486 155 s \$0-:j;
#X obj 82 186 s \$0-:i;
#X obj 85 46 t a a;
#X obj 82 141 t a a;
#X obj 483 47 s \$0-:y;
#X obj 85 91 s \$0-:x;
#X obj -3 295 ctxfiles/swa alljs \$0;
#X obj -3 315 ctxfiles/swa allis \$0;
#X obj 486 119 ctxfiles/cl alljs \$0 y jlk 1 g rson j yhome 4;
#X obj 117 68 cyclone/zl ecils 1;
#X obj 114 163 cyclone/zl ecils 1;
#X obj 85 24 ctxfiles/cl alltogsx \$0 x xlk 0 f lson conlength w 0
5;
#X obj 82 119 ctxfiles/cl allis \$0 x ilk 0 g lson i condo 5;
#X obj 483 24 ctxfiles/cl alltogsy \$0 y ylk 1 f rson undo q 1 4;
#X obj 370 240 ctxfiles/sta \$0 x xy21;
#X obj 370 270 ctxfiles/sta \$0 y yx2;
#X obj 240 91 tabwrite \$0-toge;
#X obj 251 68 array define \$0-toge 1;
#X obj 237 186 tabwrite \$0-floate;
#X obj 248 163 array define \$0-floate 1;
#X obj 567 185 ctxfiles/sz xsize 31 \$0 5 1 X i;
#X obj 607 213 ctxfiles/sz ysize 32 \$0 4 1 Y j;
#X obj 567 213 demux;
#X obj 607 238 demux;
#X obj 634 160 receive \$0-xym;
#X obj 567 266 unpack f s;
#X obj 567 289 t f f;
#X obj 567 312 - 1;
#X obj 567 335 pack f f s;
#X msg 629 387 label :\$2 \$1;
#X msg 567 358 label :\$3 \$2 (\$1 steps);
#X obj 629 410 s \$0-preblock;
#X obj 226 273 ctxfiles/oc \$0 y j x;
#X obj 225 250 ctxfiles/oc \$0 x i;
#X connect 3 0 6 0;
#X connect 3 1 10 0;
#X connect 4 0 2 0;
#X connect 4 1 11 0;
#X connect 9 0 1 0;
#X connect 10 1 17 0;
#X connect 11 1 19 0;
#X connect 12 0 3 0;
#X connect 13 0 4 0;
#X connect 14 0 5 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 26 0;
#X connect 23 1 30 0;
#X connect 24 0 30 0;
#X connect 24 1 26 0;
#X connect 25 0 23 1;
#X connect 25 0 24 1;
#X connect 26 0 27 0;
#X connect 26 1 29 2;
#X connect 27 0 28 0;
#X connect 27 1 29 1;
#X connect 28 0 29 0;
#X connect 29 0 31 0;
#X connect 30 0 32 0;
#X connect 31 0 32 0;
#X restore 68 403 pd toggles;
#N canvas 380 89 845 679 start 0;
#X obj 215 -25 s \$0-start;
#X obj 86 365 / 5;
#X obj 86 388 *;
#X obj 86 459 -;
#X obj 86 484 clip 0;
#X obj 392 394 s \$0-ston;
#X msg 392 369 1;
#X obj 86 410 demux;
#X obj 310 378 /;
#X obj 310 494 s \$0-snum;
#X obj 413 334 s \$0-sson;
#X obj 358 233 t f f b b;
#X msg 413 291 1;
#X obj 310 402 * 4;
#X obj 477 371 demux;
#X obj 477 394 pack f f;
#X obj 477 443 -;
#X obj 86 316 t f f f b;
#X obj 295 211 f;
#X obj 320 211 + 1;
#X obj 86 508 list prepend;
#X obj 86 530 route 0 1;
#X obj 111 601 -;
#X obj 111 643 t b f;
#X obj 111 666 del;
#X msg 130 740 stop;
#X obj 130 762 s \$0-everything;
#X obj 310 449 list prepend;
#X obj 310 471 route 0;
#X obj 459 553 route float;
#X msg 329 85 1;
#X obj 267 185 demux;
#X obj 311 183 t f;
#X obj 476 620 f;
#X obj 476 578 demux;
#X obj 508 600 t f;
#X obj 400 -71 t f;
#X obj 400 -43 s \$0-sttype;
#X obj 350 599 list append;
#X obj 350 623 >;
#X obj 275 559 f;
#X obj 350 651 change;
#X obj 587 250 receive \$0-del1000;
#X obj 587 273 receive \$0-rev;
#X obj 275 537 receive \$0-revr;
#X obj 350 722 -;
#X obj 350 678 t f f;
#X obj 394 700 s \$0-rev;
#X obj 350 743 s \$0-invrev;
#X obj 215 -194 receive \$0-started;
#X obj 350 577 ctxfiles/collect;
#X obj 441 291 t f;
#X obj 272 -75 route s p m;
#X obj 439 35 t b f;
#X obj 466 60 makefilename \$0-mstart%d;
#X obj 439 81 send;
#X obj 125 16 receive \$0-mstar;
#X obj 86 434 swap;
#X obj 111 622 abs;
#X obj 477 420 swap;
#X text 154 -70 normal start;
#X text 375 -94 determine which type of start;
#X text -19 667 stop after given time;
#X text 419 189 time;
#X text 172 187 position;
#X text 399 644 set reverse;
#X text 239 579 return reverse;
#X obj 111 688 t b b b;
#X obj 169 735 s \$0-remet;
#X obj 319 160 t f f;
#X obj 169 710 demux;
#X text -2 434 calculate time;
#X text 514 421 process times;
#X obj 114 338 receive \$0-xy21;
#X obj 514 577 receive \$0-xy2;
#X obj 439 13 cyclone/iter;
#X obj 272 60 cyclone/iter;
#X obj 257 116 abs;
#X obj 257 85 t f f b;
#X obj 523 106 <;
#X obj 523 128 sel 0;
#X obj 550 150 t b f;
#X obj 350 700 swap 1;
#X obj 475 174 receive \$0-ended;
#X obj 475 196 ctxfiles/sp01;
#X obj 475 218 t b b;
#X text 558 127 if start command is negative \, reverse;
#X obj 272 -2 t a b a;
#X obj 292 35 t a b a;
#X obj 439 -13 t a b a;
#X obj 427 -70 f 1;
#X obj 416 506 t b a;
#X obj 459 530 cyclone/iter;
#X obj 93 -199 receive \$0-sos;
#X obj 120 -177 receive \$0-imon;
#X obj 93 -155 demux;
#X obj 120 -128 s \$0-prestop;
#X obj 310 425 + 1;
#X obj 86 338 - 1;
#X obj 28 618 s \$0-imonn;
#X obj 28 594 f 1;
#X obj 86 553 t b f;
#X obj 272 -100 t a b b b b;
#X obj 98 -10 s \$0-prestart;
#X obj 215 -48 t b b b b;
#X obj 93 105 spigot;
#X obj 132 82 receive \$0-imon;
#X obj 215 -126 route bang d;
#X obj 32 -71 list split 1;
#X obj 32 -18 list;
#X obj 32 -45 del;
#X obj 476 642 * 1000;
#X obj 32 4 list trim;
#X obj 93 157 s \$0-restarti;
#X obj 138 105 receive \$0-legacy;
#X obj 93 128 demux;
#X obj 215 -149 spigot 1;
#X obj 260 -172 receive \$0-com-on;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 20 0;
#X connect 6 0 5 0;
#X connect 7 0 57 0;
#X connect 7 1 4 0;
#X connect 8 0 13 0;
#X connect 11 0 8 0;
#X connect 11 1 14 0;
#X connect 11 2 6 0;
#X connect 11 3 12 0;
#X connect 12 0 10 0;
#X connect 13 0 97 0;
#X connect 14 0 15 0;
#X connect 14 1 4 0;
#X connect 15 0 59 0;
#X connect 16 0 4 0;
#X connect 17 0 98 0;
#X connect 17 1 27 0;
#X connect 17 2 6 0;
#X connect 17 3 51 0;
#X connect 18 0 19 0;
#X connect 18 0 20 1;
#X connect 18 0 27 1;
#X connect 19 0 18 1;
#X connect 20 0 21 0;
#X connect 21 0 101 0;
#X connect 21 1 22 0;
#X connect 22 0 58 0;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 67 0;
#X connect 25 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 9 0;
#X connect 29 0 50 1;
#X connect 30 0 69 0;
#X connect 31 0 17 0;
#X connect 31 1 11 0;
#X connect 32 0 18 1;
#X connect 33 0 111 0;
#X connect 34 0 33 0;
#X connect 34 1 35 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 41 0;
#X connect 41 0 46 0;
#X connect 42 0 2 1;
#X connect 42 0 4 2;
#X connect 42 0 8 1;
#X connect 42 0 15 1;
#X connect 42 0 57 1;
#X connect 43 0 7 1;
#X connect 43 0 14 1;
#X connect 43 0 34 1;
#X connect 44 0 40 0;
#X connect 45 0 48 0;
#X connect 46 0 82 0;
#X connect 46 1 47 0;
#X connect 49 0 116 0;
#X connect 50 0 38 0;
#X connect 51 0 10 0;
#X connect 52 0 87 0;
#X connect 52 1 88 0;
#X connect 52 2 89 0;
#X connect 52 3 104 0;
#X connect 53 0 55 0;
#X connect 53 1 54 0;
#X connect 54 0 55 1;
#X connect 56 0 78 0;
#X connect 57 0 3 0;
#X connect 57 1 3 1;
#X connect 58 0 23 0;
#X connect 59 0 16 0;
#X connect 59 1 16 1;
#X connect 67 0 40 0;
#X connect 67 1 25 0;
#X connect 67 2 70 0;
#X connect 69 0 31 1;
#X connect 69 1 70 1;
#X connect 70 0 68 0;
#X connect 73 0 1 1;
#X connect 73 0 13 1;
#X connect 74 0 33 1;
#X connect 75 0 53 0;
#X connect 76 0 78 0;
#X connect 77 0 31 0;
#X connect 78 0 77 0;
#X connect 78 1 79 0;
#X connect 78 2 18 0;
#X connect 79 0 80 0;
#X connect 80 1 81 0;
#X connect 81 0 84 2;
#X connect 81 1 41 0;
#X connect 82 0 45 0;
#X connect 82 1 45 1;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 85 0 40 0;
#X connect 85 1 84 1;
#X connect 87 0 76 0;
#X connect 87 1 30 0;
#X connect 87 2 91 0;
#X connect 88 0 76 0;
#X connect 88 1 69 0;
#X connect 88 2 91 0;
#X connect 89 0 75 0;
#X connect 89 1 30 0;
#X connect 89 2 91 0;
#X connect 90 0 37 0;
#X connect 91 0 50 0;
#X connect 91 1 92 0;
#X connect 92 0 29 0;
#X connect 93 0 95 0;
#X connect 94 0 95 1;
#X connect 95 0 116 0;
#X connect 95 1 96 0;
#X connect 97 0 27 0;
#X connect 98 0 1 0;
#X connect 100 0 99 0;
#X connect 101 0 100 0;
#X connect 101 1 22 1;
#X connect 102 0 52 0;
#X connect 102 1 32 0;
#X connect 102 2 34 0;
#X connect 102 3 90 0;
#X connect 102 4 103 0;
#X connect 104 0 0 0;
#X connect 104 1 36 0;
#X connect 104 2 103 0;
#X connect 104 3 105 0;
#X connect 105 0 115 0;
#X connect 106 0 105 1;
#X connect 107 0 104 0;
#X connect 107 1 108 0;
#X connect 107 2 102 0;
#X connect 108 0 110 0;
#X connect 108 1 109 1;
#X connect 109 0 112 0;
#X connect 110 0 109 0;
#X connect 111 0 38 1;
#X connect 112 0 107 0;
#X connect 114 0 115 1;
#X connect 115 0 113 0;
#X connect 116 0 107 0;
#X connect 117 0 116 1;
#X restore 68 322 pd start;
#N canvas 505 89 652 679 position 0;
#X obj 315 197 - 1;
#X obj 315 271 unpack f f;
#X obj 156 513 int;
#X obj 156 535 / 2;
#X obj 352 583 t f f;
#X obj 156 488 * 2;
#X obj 156 557 change;
#X obj 382 295 change;
#X obj 315 295 change;
#X obj 208 579 == 2;
#X obj 156 581 t f f;
#X obj 156 604 spigot;
#X obj 156 626 s \$0-dr;
#X obj 156 411 expr sqrt (pow ( ($f1 - $f3) \, 2) + pow ( ($f2 - $f4)
\, 2) );
#X obj 156 393 pack f f f f;
#X obj 382 317 t b f;
#X obj 315 317 t b f;
#X obj 233 352 t b f;
#X obj 206 626 s \$0-@@;
#X msg 156 223 symbol c\$1pos;
#X msg 315 221 symbol c\$1pos;
#X obj 216 436 receive \$0-pscale;
#X obj 352 449 receive \$0-pres;
#X obj 208 557 receive \$0-dellmode;
#X obj 292 148 receive \$0nnumber;
#X obj 156 245 iemguts/oreceive \$0no;
#X obj 315 245 iemguts/oreceive \$0no;
#X obj 156 305 unpack;
#X obj 156 458 * 20;
#X obj 156 436 * 0.001;
#X obj 352 539 swap 1;
#X obj 352 561 /;
#X obj 352 471 t f f;
#X obj 352 517 spigot;
#X obj 384 494 >;
#X obj 156 275 demux;
#X obj 19 164 t f b b;
#X obj 65 186 f 1;
#X obj 19 142 iemguts/oreceive gp\$0;
#X obj 19 52 receive \$0-parent;
#X obj 19 116 makefilename %d-getposs;
#X obj -8 527 send;
#X obj 19 333 makefilename %d-sendposs;
#X obj 33 480 receive \$0-colours;
#X obj 42 214 s \$0-pokepos;
#X obj 156 360 change;
#X obj 233 330 change;
#X obj -8 430 spigot 1;
#X obj 15 403 receive \$0-gcontrol;
#X obj -8 452 spigot;
#X obj 292 171 t f f f f;
#X obj 48 430 >=;
#X obj -8 505 pack f f f f \$0;
#X connect 0 0 20 0;
#X connect 1 0 8 0;
#X connect 1 1 7 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 5 1;
#X connect 4 1 3 1;
#X connect 5 0 2 0;
#X connect 6 0 10 0;
#X connect 7 0 15 0;
#X connect 8 0 16 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 10 1 18 0;
#X connect 11 0 12 0;
#X connect 13 0 29 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 15 1 14 3;
#X connect 16 0 14 0;
#X connect 16 1 14 2;
#X connect 17 0 14 0;
#X connect 17 1 14 1;
#X connect 19 0 25 0;
#X connect 20 0 26 0;
#X connect 21 0 28 1;
#X connect 22 0 32 0;
#X connect 23 0 9 0;
#X connect 24 0 50 0;
#X connect 25 0 35 0;
#X connect 26 0 1 0;
#X connect 27 0 45 0;
#X connect 27 1 46 0;
#X connect 28 0 5 0;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 30 1 31 1;
#X connect 31 0 4 0;
#X connect 32 0 33 0;
#X connect 32 1 34 0;
#X connect 33 0 30 0;
#X connect 34 0 33 1;
#X connect 35 0 27 0;
#X connect 35 1 47 0;
#X connect 36 0 35 1;
#X connect 36 1 44 0;
#X connect 36 2 37 0;
#X connect 37 0 35 1;
#X connect 38 0 36 0;
#X connect 39 0 40 0;
#X connect 39 0 42 0;
#X connect 40 0 38 0;
#X connect 42 0 41 1;
#X connect 43 0 52 3;
#X connect 45 0 14 0;
#X connect 46 0 17 0;
#X connect 47 0 49 0;
#X connect 48 0 47 1;
#X connect 49 0 52 0;
#X connect 50 0 19 0;
#X connect 50 1 0 0;
#X connect 50 2 52 2;
#X connect 50 3 51 0;
#X connect 51 0 49 1;
#X connect 52 0 41 0;
#X restore 551 182 pd position;
#N canvas 282 537 974 493 messages 0;
#X obj 18 484 list;
#X obj 688 252 route bang;
#X obj 688 413 msgfile;
#X msg 794 366 clear;
#X obj 688 366 list prepend add;
#X obj 688 389 list trim;
#X msg 889 345 flush;
#X msg 688 279 #6$^d%;
#X obj 707 459 list trim;
#X obj 707 510 route #6$^d%;
#X obj 145 943 list split 1;
#X obj 90 966 list split 1;
#X obj 124 1116 send;
#X msg 145 1069 symbol \$1;
#X obj 186 693 list trim;
#X obj 124 1093 list trim;
#X obj 326 1081 s \$0-prep;
#X obj 815 472 f;
#X obj 842 472 + 1;
#X obj 830 448 t f;
#X obj 854 612 s \$0-pcount;
#X obj 326 935 list prepend !;
#X obj 126 896 t a a a;
#X obj 745 340 list;
#X obj 260 428 t a a;
#X obj 273 867 t a a a;
#X obj 312 889 s \$0-channels;
#X obj 688 -77 array get \$0-bu-n;
#X obj 688 -104 spigot;
#X obj 862 298 spigot;
#X obj 39 458 t a a a;
#X obj 376 1030 s \$0-prat;
#X obj 776 532 t a b;
#X obj 417 549 list;
#X obj 18 434 t b b;
#X obj 417 525 t b b;
#X obj 707 -285 receive \$0-bu-n;
#X obj 720 -236 receive \$0-rev;
#X obj 869 248 receive \$0-start;
#X obj 721 -129 receive \$0-burstl;
#X obj 688 -10 t f f;
#X obj 715 14 v \$0-burstp;
#X obj 419 383 v \$0-btype;
#X obj 675 -307 receive \$0-bursting;
#X obj 18 412 receive \$0-spreadbang;
#X obj 417 500 receive \$0-lastbang;
#X obj 495 383 s \$0-bytpe;
#X obj 688 -332 receive \$0-boo;
#X obj 707 -263 t b b;
#X obj -48 -16 text get \$0-pattern-st;
#X obj 688 136 text get \$0-burst-st;
#X obj 379 -96 receive \$0-boo;
#X obj 379 -51 text get \$0-burst-st;
#X obj -34 -133 receive \$0-pt-n1;
#X obj 269 199 t a b;
#X obj 745 279 t b a b;
#X obj 184 200 t a b;
#X obj 222 -325 receive \$0-patternrest;
#X obj 264 -277 receive \$0-burstrest;
#X obj 862 322 t b b;
#X obj -48 -40 - 1;
#X obj 688 114 - 1;
#X obj 87 -50 receive \$0-xysw2;
#X obj 805 87 receive \$0-yxsw2;
#X obj 249 -301 receive \$0-xym;
#X obj 222 -278 demux;
#X obj 264 -253 demux;
#X obj 5 -106 receive \$0-xypattm;
#X obj 733 38 receive \$0-yxpattm;
#X obj -72 -237 receive \$0-restartt;
#X obj -72 -192 demux;
#X obj -72 -170 t f;
#X obj -45 -170 v \$0-xy2;
#X obj 186 644 s \$0-messages;
#X obj -48 36 list prepend;
#X obj -48 88 list append;
#X obj 21 9 receive \$0-patternprep;
#X obj 15 63 receive \$0-patternapp;
#X obj 379 2 list prepend;
#X obj 379 53 list append;
#X obj 448 -28 receive \$0-burstprep;
#X obj 442 27 receive \$0-burstapp;
#X obj 688 178 list prepend;
#X obj 688 226 list append;
#X obj 757 155 receive \$0-burstprep;
#X obj 751 201 receive \$0-burstapp;
#X obj 407 914 symbol !;
#X obj 517 911 symbol !!;
#X obj 517 887 receive \$0-stop*0;
#X obj 407 887 receive \$0-stop*1;
#X obj 379 -73 v \$0-ycor;
#X obj 497 -103 t s s;
#X obj 186 715 t a a;
#X obj 218 737 spigot;
#X obj 257 715 receive \$0-printme;
#X obj 218 759 s \$0-toprint;
#N canvas 261 274 974 494 calculator 0;
#X obj 918 40 inlet;
#X obj 949 132 cyclone/zl rev;
#X obj 949 154 cyclone/iter;
#X msg 965 87 clear;
#X obj 244 -34 text search \$0-calc;
#X msg 244 -55 0 0;
#X obj 277 57 text get \$0-calc;
#X obj 277 104 unpack f f f;
#X obj 379 245 text get \$0-calc;
#X obj 379 289 unpack f f f;
#X obj 346 127 t b f f;
#X obj 346 153 pack 0 1 f;
#X obj 346 177 text search \$0-calc 0 1 < 2;
#X obj 374 455 pack f f f;
#X obj 244 11 sel -1;
#X obj 505 878 text set \$0-calc;
#X text 358 878 7: repeat;
#X msg 570 86 line 0 \, bang;
#X obj 570 108 text sequence \$0-calc;
#X obj 543 162 ctxfiles/collect;
#X obj 374 505 sel -1;
#X obj 277 33 t f f;
#X obj 379 222 t f f;
#X obj 65 342 text delete \$0-calc;
#X obj 65 320 f;
#X obj 277 81 t l b;
#X obj 379 267 t l b;
#X obj 346 199 sel -1;
#X msg 253 228 bracket mismatch;
#X obj 570 135 route float symbol;
#X obj 543 194 cyclone/zl rev;
#X obj 193 73 spigot;
#X obj 244 -12 t f f;
#X obj 226 45 + 1;
#X obj 543 216 outlet;
#X obj 193 -98 t b b;
#X obj 965 109 text define -k \$0-calc;
#A set \;;
#X obj 708 219 route 0 1;
#X obj 646 219 route 0 1;
#X msg 646 241 *;
#X msg 671 241 /;
#X msg 708 241 +;
#X msg 733 241 -;
#X obj 821 474 cnv 13 490 1 empty \$0-datagrid1 @_position_scalar 18
-5 0 10 -13330 -66577 0;
#X obj 821 526 cnv 13 490 1 empty \$0-datagrid1 ^_ID_number 18 -5 0
10 -13330 -66577 0;
#X obj 821 513 cnv 13 490 1 empty \$0-datagrid1 ¬_toggle_distance
18 -5 0 10 -13330 -66577 0;
#X obj 821 604 cnv 13 490 1 empty \$0-datagrid1 ?_random_number 18
-5 0 10 -13330 -66577 0;
#X obj 821 487 cnv 13 490 1 empty \$0-datagrid1 __toggle_number 18
-5 0 10 -13330 -66577 0;
#X obj 821 500 cnv 13 490 1 empty \$0-datagrid1 =_toggle_float 18 -5
0 10 -13330 -66577 0;
#X obj 821 617 cnv 13 490 1 empty \$0-datagrid1 $_scaler 18 -5 0 10
-13330 -66577 0;
#X obj 821 565 cnv 13 490 1 empty \$0-datagrid1 `_custom 18 -5 0 10
-13330 -66577 0;
#X obj 821 552 cnv 13 490 1 empty \$0-datagrid1 >_fetched_value 18
-5 0 10 -13330 -66577 0;
#X obj 821 578 cnv 13 490 1 empty \$0-datagrid1 !_external_bank 18
-5 0 10 -13330 -66577 0;
#X obj 821 591 cnv 13 490 1 empty \$0-datagrid1 %_internal_bank 18
-5 0 10 -13330 -66577 0;
#X obj 821 461 cnv 13 490 1 empty \$0-datagrid1 )_close_bracket 18
-5 0 10 -13330 -66577 0;
#X obj 821 448 cnv 13 490 1 empty \$0-datagrid1 (_open_bracket 18 -5
0 10 -13330 -66577 0;
#X obj 821 682 cnv 13 490 1 empty \$0-datagrid1 +_add 18 -5 0 10 -13330
-66577 0;
#X obj 821 695 cnv 13 490 1 empty \$0-datagrid1 -_subtract 18 -5 0
10 -13330 -66577 0;
#X obj 821 656 cnv 13 490 1 empty \$0-datagrid1 *_multiply 18 -5 0
10 -13330 -66577 0;
#X obj 821 669 cnv 13 490 1 empty \$0-datagrid1 /_divide 18 -5 0 10
-13330 -66577 0;
#X obj 949 176 t a b;
#X obj 1019 225 f;
#X obj 1046 225 + 1;
#X obj 937 323 receive \$0-sothh;
#X obj 962 345 receive \$0-soth;
#X obj 962 369 pack f f f;
#X obj 937 393 text set \$0-calc 1e+06;
#X obj 1336 663 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 490;
#X msg 1336 684 vis_size \$1 1;
#X obj 1336 706 s \$0-datagrid1;
#X obj 992 198 s \$0-fpst;
#X obj 992 175 t f f;
#X obj 334 336 ctxfiles/fp \$0 1;
#X obj 319 358 ctxfiles/fp \$0 2;
#X obj 304 380 ctxfiles/fp \$0 3;
#X obj 334 429 f;
#X obj 470 555 text get \$0-calc;
#X obj 422 597 send;
#X obj 470 577 pack f f f \$0;
#X msg 470 599 symbol \$4-\$1-\$2robo;
#X obj 274 402 ctxfiles/fp \$0 4;
#X obj 505 812 receive \$0-obor;
#X obj 536 834 receive \$0-obop;
#X obj 6 286 receive \$0-obod;
#X obj 193 -123 ctxfiles/fp \$0 0;
#X obj 918 65 t b b a b b;
#X text 539 -31 finishing sequence;
#X obj 281 630 spigot;
#X obj 274 310 t b b b b b f;
#X obj 314 597 f 1;
#X text 999 -121 OUTLINE \; \; 1: reverse and iterate list \; 2: identify
special characters \; 3: collect list over text object \; 4: search
for last open braket \; 5: search for next close bracket \; 6: search
for special characters between the brackets \; 7: find ajoining arguments
\; 8: process accordingly and delete extra characters \; 9: goto 6
\; 10: if no special characters \, go to 4 \; 11: if no bracket \,
go to 12 \; 12: sweep for special characters \; 13: collect into list
and reverse;
#X text 1032 147 1.2 reverse list and iterate;
#X text 1057 200 1.1 reset to 0 (this goes to [ctxfiles/fp];
#X text 1073 226 1.3 determine line number;
#X text 1328 592 2.2 non matches are passed through;
#X text 1060 292 3 collect list into text \, with each term getting
one line;
#X text 300 -121 4.1 allow steps 4-11 only if there are;
#X text 250 -75 4.2 find last ( in list;
#X text 222 177 5.1 find adjascent );
#X text 36 -54 6.1 begin searching for characters;
#X text 1336 457 2.1 test for special characters. If identified \,
replace with special code (\$2 \$3 from each line). \$0 determines
the order of operations.;
#X text 462 293 5.3 forward position for 6;
#X text 363 108 4.4 forward position for 5 and 6;
#X text 31 365 4.3 \, 5.2 delete braket term;
#X text 416 382 6.3 search only for terms which have been found in
2.1;
#X text 450 444 6.4 search for category (order of operation) \, greater
than open bracket pos \, less than close bracket pos, f 53;
#X text 564 578 6.5 send into pf abstractions;
#X text 223 550 9 repeat (search for same character;
#X text 628 816 8.1 write processed term to text;
#X text 13 268 8.11 delete term(s) from list;
#X text 43 654 10 once no special character found \, search for next
(;
#X text 27 74 11 stop if no bracket found;
#X text 651 85 13.1 collect processed message;
#X text 734 190 13.2 return unprocessed arithmetic;
#X text 499 241 13.3 reverse and output;
#X obj 448 720 receive \$0-obor2;
#X obj 448 742 t a a;
#X obj 475 766 list length;
#X obj 475 788 > 1;
#X obj 448 812 demux;
#N canvas 778 269 481 439 insert 0;
#X obj 76 33 inlet;
#X obj 247 333 msgfile;
#X msg 242 295 flush;
#X msg 260 187 line 0 \, bang;
#X obj 136 101 v \$0-obop;
#X obj 121 169 cyclone/zl rev;
#X obj 121 191 cyclone/iter;
#X obj 260 209 text sequence \$0-calc;
#X obj 106 81 s \$0-clmk;
#X obj 247 357 text set \$0-calc 1e+06;
#X msg 136 145 goto \$1 \, delete;
#X text 347 120 this is necessary because msgfil can't insert on an
empty file!;
#X msg 76 235 clear;
#X obj 76 55 t b b b a b b b;
#X obj 278 97 text size \$0-calc;
#X obj 278 119 sel 1;
#X obj 121 213 list prepend insert;
#X obj 121 235 list trim;
#X obj 260 236 cyclone/prepend add;
#X msg 278 141 add;
#X msg 305 141 insert;
#X connect 0 0 13 0;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 10 0;
#X connect 5 0 6 0;
#X connect 6 0 16 0;
#X connect 7 0 18 0;
#X connect 10 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 12 0;
#X connect 13 1 2 0;
#X connect 13 2 8 0;
#X connect 13 3 5 0;
#X connect 13 4 4 0;
#X connect 13 5 14 0;
#X connect 13 6 3 0;
#X connect 14 0 15 0;
#X connect 15 0 19 0;
#X connect 15 1 20 0;
#X connect 16 0 17 0;
#X connect 17 0 1 0;
#X connect 18 0 1 0;
#X connect 19 0 16 1;
#X connect 20 0 16 1;
#X restore 475 834 pd insert;
#X text 171 787 8.1.1 if more than one term \, redistribute file;
#X obj 1024 84 receive \$0-clmk;
#X obj 374 479 text search \$0-calc 0 > 2 < 2;
#X obj 555 0 t b b b b b b;
#X obj 599 33 f -1;
#X obj 630 55 + 1;
#X obj 821 630 cnv 13 490 1 empty \$0-datagrid1 [_choose 18 -5 0 10
-13330 -66577 0;
#X obj 407 531 t b f b f f;
#X obj 1019 248 t f f f;
#X obj 1038 270 v \$0-lnm;
#X obj 630 33 v \$0-lnm;
#X obj 438 626 v \$0-lnm;
#X obj 438 648 + 3;
#X obj 438 671 text set \$0-calc 0 2;
#X text 487 642 6.4.2 replace last value of ID code. This prevents
stack overflows in case the argument matching fails., f 52;
#X obj 821 643 cnv 13 490 1 empty \$0-datagrid1 ~_fetch 18 -5 0 10
-13330 -66577 0;
#X obj 505 856 list;
#X obj 675 186 route 3 4;
#X obj 821 539 cnv 13 490 1 empty \$0-datagrid1 $_variable 18 -5 0
10 -13330 -66577 0;
#X obj 949 228 demux;
#X obj 976 249 t a b;
#X obj 1003 271 t f;
#X obj 976 293 s \$0-sothh;
#X obj 883 203 receive \$0-ebreak;
#X text 828 250 bypass coder if ASCII 27;
#X obj 883 225 f 1;
#X text 646 -6 12 reset 6.4 pack and sweep again for special characters
outside brackets (but not arithmetic), f 34;
#X text 358 320 6.2 search in the order specified in 2.1;
#X obj 821 708 cnv 13 490 1 empty \$0-datagrid1 °_combine 18 -5 0
10 -13330 -66577 0;
#X obj 821 721 cnv 13 490 1 empty \$0-datagrid1 ignore 18 -5 0 10 -13330
-66577 0;
#X obj 950 423 ctxfiles/br2 sel 1 \; ( pfb \$0 0 0 \; ) pfb \$0 0 1
\; @ pf0 \$0 1 0 getat \; _ pf0 \$0 1 1 getunder \; = pf0 \$0 1 2 getequals
\; ¬ pf0 \$0 1 3 getnot \; $ pf0 \$0 1 4 gets \; ^ pf1 \$0 2 0 getup
1 symbol float \; > pf3 \$0 2 1 getr 1 2 3 symbol symbol t 0 append
u - e 0 \; ` pf3 \$0 2 2 getg -1 -1 bang 0 ` d 1 trim x + h \; ! pf1
\$0 2 3 getexcla 1 symbol symbol \; % pf1 \$0 2 4 getpercent 1 symbol
symbol \; ? pf3 \$0 2 5 getq 1 2 1 float symbol x 0 append u - e 1
\; # pf1 \$0 2 6 gethash 1 float float \; [ pf3 \$0 2 7 getleftbr -1
1 bang float ] x 1 trim u - e 0 \; ~ pf1 \$0 2 8 gettilde 1 symbol
symbol \; * pf2 \$0 3 0 * y \; / pf2 \$0 3 1 / y \; + pf2 \$0 4 0 +
y \; - pf2 \$0 4 1 - y \; ° pf2 \$0 4 2 switch-de x \;  s \$0-ebreak
\; ## s \$0-sothh \;;
#X obj 253 251 s \$0-toprint;
#X connect 0 0 85 0;
#X connect 1 0 2 0;
#X connect 2 0 60 0;
#X connect 3 0 36 0;
#X connect 4 0 32 0;
#X connect 5 0 4 0;
#X connect 6 0 25 0;
#X connect 7 2 10 0;
#X connect 8 0 26 0;
#X connect 9 2 13 1;
#X connect 10 0 11 0;
#X connect 10 1 11 2;
#X connect 10 2 13 2;
#X connect 11 0 12 0;
#X connect 12 0 27 0;
#X connect 13 0 123 0;
#X connect 14 1 21 0;
#X connect 17 0 18 0;
#X connect 18 0 29 0;
#X connect 19 0 30 0;
#X connect 20 0 87 0;
#X connect 20 1 128 0;
#X connect 21 0 6 0;
#X connect 21 1 24 1;
#X connect 22 0 8 0;
#X connect 22 1 24 1;
#X connect 24 0 23 0;
#X connect 25 0 7 0;
#X connect 25 1 24 0;
#X connect 26 0 9 0;
#X connect 26 1 24 0;
#X connect 27 0 28 0;
#X connect 27 1 22 0;
#X connect 28 0 152 0;
#X connect 29 0 19 1;
#X connect 29 1 19 1;
#X connect 29 2 138 0;
#X connect 30 0 34 0;
#X connect 31 0 88 0;
#X connect 32 0 14 0;
#X connect 32 1 33 0;
#X connect 33 0 31 1;
#X connect 35 0 31 0;
#X connect 35 1 5 0;
#X connect 37 0 41 0;
#X connect 37 1 42 0;
#X connect 38 0 39 0;
#X connect 38 1 40 0;
#X connect 39 0 19 1;
#X connect 40 0 19 1;
#X connect 41 0 19 1;
#X connect 42 0 19 1;
#X connect 60 0 140 0;
#X connect 60 1 61 0;
#X connect 61 0 129 0;
#X connect 62 0 61 1;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 71 0 70 0;
#X connect 71 1 61 0;
#X connect 72 0 75 0;
#X connect 73 0 75 0;
#X connect 74 0 75 0;
#X connect 75 0 13 0;
#X connect 76 0 78 0;
#X connect 78 0 79 0;
#X connect 79 0 77 1;
#X connect 80 0 75 0;
#X connect 81 0 137 0;
#X connect 82 0 15 1;
#X connect 83 0 23 0;
#X connect 84 0 35 0;
#X connect 85 0 124 0;
#X connect 85 1 84 0;
#X connect 85 2 1 0;
#X connect 85 3 3 0;
#X connect 85 4 71 0;
#X connect 87 0 35 0;
#X connect 88 0 80 0;
#X connect 88 1 89 0;
#X connect 88 2 74 0;
#X connect 88 3 73 0;
#X connect 88 4 72 0;
#X connect 88 5 87 1;
#X connect 89 0 87 1;
#X connect 115 0 116 0;
#X connect 116 0 119 0;
#X connect 116 1 117 0;
#X connect 117 0 118 0;
#X connect 118 0 119 1;
#X connect 119 0 137 0;
#X connect 119 1 120 0;
#X connect 122 0 3 0;
#X connect 123 0 20 0;
#X connect 124 0 19 0;
#X connect 124 1 17 0;
#X connect 124 2 73 0;
#X connect 124 3 72 0;
#X connect 124 4 125 0;
#X connect 124 5 131 0;
#X connect 125 0 13 1;
#X connect 126 0 13 2;
#X connect 128 0 75 0;
#X connect 128 1 77 0;
#X connect 128 2 132 0;
#X connect 128 3 134 1;
#X connect 128 4 76 0;
#X connect 129 0 65 2;
#X connect 129 1 130 0;
#X connect 129 2 62 0;
#X connect 131 0 126 0;
#X connect 132 0 133 0;
#X connect 133 0 134 0;
#X connect 137 0 15 0;
#X connect 138 0 38 0;
#X connect 138 1 37 0;
#X connect 140 0 151 0;
#X connect 140 1 141 0;
#X connect 141 0 143 0;
#X connect 141 1 142 0;
#X connect 142 0 140 1;
#X connect 144 0 146 0;
#X connect 146 0 140 1;
#X restore 241 290 pd calculator;
#N canvas 401 94 693 670 space 0;
#X obj 164 64 else/fromany;
#X obj 164 42 list trim;
#X obj 203 213 cyclone/iter;
#X obj 336 365 t b f;
#X obj 336 392 pack 32 f 32;
#X obj 181 623 ctxfiles/collect;
#X obj 181 645 else/toany;
#X obj 203 546 f;
#X text 289 217 1 covert to ASCII and iterate;
#X text 552 255 2 identify special characters;
#X text 428 379 3 force space before and after;
#X text 289 624 4 collect and convert to list (double spaces are conveniently
weeded out);
#X obj 215 137 s \$0-fpst;
#X obj 164 17 inlet;
#X obj 181 667 outlet;
#X obj 203 235 t f f f;
#X obj 203 573 sel 32;
#X msg 236 595 32 45 32;
#X obj 203 595 f 45;
#X obj 240 369 f;
#X obj 240 391 moses 48;
#X obj 285 417 moses 58;
#X text 300 570 exception 1: minus (ASCII 45) doesn't get spaced if
it is preceded by a space \, to allow for negative numbers;
#X obj 285 461 pack 32 42 32 40 32;
#X obj 261 485 pack 32 40 32;
#X obj 285 439 t b;
#X obj 261 461 t b;
#X obj 108 363 t b;
#X obj 108 385 f 1;
#X obj 93 432 s \$0-oops!;
#X obj 93 408 f;
#X obj 164 87 t b b l b;
#X obj 232 516 f 32;
#X obj 215 115 t f b f f;
#X text 304 511 exception 2: if an open bracket (ASCII 40) is preceded
by a float \, add a * (ASCII 42);
#X text 535 46 esc 27 \;;
#X obj 285 315 sel 45 40;
#X obj 242 257 else/routeall 33 37 40 41 43 42 47 63 45 91 93 27 96
;
#X text 547 59 $ 36 \; % 37 \; ( 40 \; ) 41 \; * 42 \; + 43 \; - 45
\; / 47 \; ? 63 \; [ 91 \; ] 93 \; ` 96;
#X connect 0 0 31 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 16 0;
#X connect 13 0 1 0;
#X connect 15 0 7 1;
#X connect 15 1 19 1;
#X connect 15 2 37 0;
#X connect 16 0 18 0;
#X connect 16 1 17 0;
#X connect 17 0 5 1;
#X connect 18 0 5 1;
#X connect 19 0 20 0;
#X connect 20 0 26 0;
#X connect 20 1 21 0;
#X connect 21 0 25 0;
#X connect 21 1 26 0;
#X connect 23 0 5 1;
#X connect 24 0 5 1;
#X connect 25 0 23 0;
#X connect 26 0 24 0;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 31 1 5 0;
#X connect 31 2 2 0;
#X connect 31 3 33 0;
#X connect 32 0 7 1;
#X connect 33 0 12 0;
#X connect 33 1 32 0;
#X connect 33 2 19 1;
#X connect 33 3 30 1;
#X connect 36 0 7 0;
#X connect 36 1 19 0;
#X connect 36 2 3 0;
#X connect 37 0 27 0;
#X connect 37 0 36 0;
#X connect 37 1 36 0;
#X connect 37 2 36 0;
#X connect 37 3 36 0;
#X connect 37 4 36 0;
#X connect 37 5 36 0;
#X connect 37 6 36 0;
#X connect 37 7 36 0;
#X connect 37 8 36 0;
#X connect 37 9 36 0;
#X connect 37 10 36 0;
#X connect 37 11 36 0;
#X connect 37 12 36 0;
#X connect 37 13 5 1;
#X restore 241 265 pd space;
#X obj 184 241 route bang;
#X obj 720 -171 t b f f;
#X obj -45 -215 receive \$0-rev;
#X text -32 -194 sudden restart triggers first or lest message (depending
on rev), f 64;
#X text -308 -132 receive the next expected position to be read;
#X text -208 -61 clip message posiion to :e;
#X text 39 31 (these get switched on :m);
#X text 193 -48 switch text bank on :m;
#X text 359 -297 assign new symbols if :a / :b *.;
#X text 388 -124 LAST TOGGLE;
#X text 782 -335 receive bang from the last pattern no.;
#X text 814 -282 receive bang as soon as burst selection made (if rev
1;
#X text 741 -106 abort if burst length is 0;
#X text 763 -53 get burst selection and iterate;
#X text -19 -266 PATTERN;
#X text 727 -358 BURST;
#X text 624 92 clip to :f;
#X text -148 37 pre/append :S :T;
#X text 591 203 pre/append :U :V;
#X text 284 30 pre/append :U :V;
#X text 478 281 substitute strange symbol for bang (since bang won't
be collected), f 34;
#X text 159 181 send message for processing;
#X text 520 256 send message for processing;
#X text 425 397 determine whether the message has come from the patter
\, burst or last toggle, f 28;
#X text 141 276 process message;
#X text 154 362 re-distribute;
#X text -103 459 send pattern message;
#X text 461 530 send last bang;
#X text 449 937 attach special stop message;
#X text 743 419 flust on burst;
#X text 601 511 re-identify bangs;
#X text -41 990 send to given channel;
#X text 321 863 send to regular channels;
#X text 442 1037 identify where the message is going;
#X obj 707 553 t b b;
#X text 531 343 collect messages after processing;
#X text 869 476 synchronize with [process];
#X text 293 619 split list at & if required;
#X obj 287 451 s \$0-`store;
#X obj 466 678 receive \$0-culist;
#X obj 466 700 t a b;
#X obj 401 1007 s \$0-notsafe;
#X obj 688 -54 t a b b b;
#X obj 739 -10 s \$0-brsst;
#X obj 340 151 receive \$0-msteal;
#X obj 300 391 s \$0-mstole;
#X obj 400 100 receive \$0-msteal1;
#X obj 273 911 s context-;
#X obj 186 860 t a a a;
#X text 448 167 stolen from [pd exceptions] etc;
#X obj 450 121 receive \$0-fsteal;
#X obj 339 412 s \$0-fstole;
#X obj 186 668 receive \$0-messu;
#X obj 842 752 int;
#X obj 815 702 array get \$0-jarry 0 1;
#X obj 944 679 receive \$0-jisw;
#X obj 815 727 t f f;
#X obj 815 682 - 1;
#X obj 815 499 array get \$0-bu-n 0 1;
#X obj 815 521 route bang;
#X obj 688 435 t b a b;
#X obj 827 567 f;
#X obj 827 589 sel 0;
#X obj 815 543 t f f;
#X text 889 738 weed out float connects from burst;
#X obj 815 774 -;
#X obj 815 796 ==;
#X obj 602 226 receive \$0-lb;
#X obj 373 755 t b a;
#X obj 373 777 del 0;
#X obj 373 821 s \$0-undone2;
#X obj 21 -79 array set \$0-settings 3;
#X obj 762 61 array set \$0-settings 4;
#X obj 177 966 receive \$0-mesp;
#X obj 145 990 demux;
#X obj 202 999 receive \$0-parent;
#X msg 177 1043 symbol \$2-\$1;
#X obj 177 1021 pack s f;
#X obj 62 484 s \$0-prepb;
#X text 54 816 identify directors;
#X obj 351 1055 s \$0-prop;
#X obj 675 484 demux;
#X obj 616 536 s \$0-propb;
#X obj 341 294 t f f;
#X obj 340 173 t a b;
#X obj 450 143 t a b;
#X obj 373 317 moses 3;
#X obj 419 339 t b;
#X obj 419 361 t f f;
#X obj 341 270 cyclone/funnel 6;
#X obj 241 363 demux 0 1 2 3 4 5;
#X obj 337 549 s \$0-pratb;
#X obj 155 747 spigot 1;
#X obj -113 -335 receive \$0-fpst;
#X obj -106 -314 receive \$0-gothash;
#X obj -106 -292 f 1;
#X obj -146 -265 spigot;
#X obj -146 -357 receive scalechange(((;
#X text -411 -320 reset the message if [scaler] receives new input
and message contains # character, f 44;
#X obj 400 122 t a b;
#X obj 389 961 cyclone/funnel 4;
#X obj 326 985 demux 0 1 2 3;
#X obj 940 -113 receive \$0-ruleoutlet;
#X text 1073 -113 If a rule consequence begins with <o \, force burst.
;
#X obj 688 -32 cyclone/iter;
#X text 772 -32 This was [az iter 1]. Why? Put it back if there are
any problems, f 67;
#X obj 805 112 symbol \$0-burst-st;
#X obj 940 -91 t b b b b b b;
#X obj 1000 -69 f 1;
#X obj 688 92 clip 1 1;
#X obj 733 66 f 1;
#X obj -48 -62 clip 1 1;
#X obj 1026 -69 symbol \$0-rulesteal;
#X obj 1050 -197 receive \$0-bspread;
#X obj 775 -213 receive \$0-bsmode;
#X obj 720 -214 +;
#X obj 775 -191 t b f;
#X obj 802 -169 * 2;
#X obj 688 -146 mux 0 1 2;
#X obj 862 274 mux 0 1 2;
#X obj 1050 -175 t b b b;
#X obj 1069 -149 s \$0-bu-bump;
#X obj 720 -192 min 2;
#X obj 186 598 else/break &;
#X obj 186 621 route &;
#X obj 373 799 ctxfiles/collect;
#X obj 186 786 route < << <o . <io <<<;
#X obj 76 694 receive \$0-meson1;
#X connect 0 0 221 0;
#X connect 1 0 7 0;
#X connect 1 1 55 0;
#X connect 2 0 158 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 4 0;
#X connect 8 0 179 0;
#X connect 9 0 132 0;
#X connect 9 1 32 0;
#X connect 10 0 172 0;
#X connect 11 1 15 0;
#X connect 13 0 12 1;
#X connect 14 0 92 0;
#X connect 15 0 12 0;
#X connect 17 0 18 0;
#X connect 17 0 156 0;
#X connect 18 0 17 1;
#X connect 19 0 17 1;
#X connect 21 0 199 0;
#X connect 22 0 11 0;
#X connect 22 1 10 0;
#X connect 22 2 199 0;
#X connect 23 0 4 0;
#X connect 24 0 23 1;
#X connect 24 1 136 0;
#X connect 25 0 145 0;
#X connect 25 1 21 0;
#X connect 25 2 26 0;
#X connect 27 0 140 0;
#X connect 28 0 27 0;
#X connect 29 0 59 0;
#X connect 30 0 0 1;
#X connect 30 1 176 0;
#X connect 30 2 136 0;
#X connect 32 0 221 0;
#X connect 32 1 198 1;
#X connect 33 0 221 0;
#X connect 34 0 0 0;
#X connect 34 1 198 0;
#X connect 35 0 33 0;
#X connect 35 1 198 2;
#X connect 36 0 48 0;
#X connect 37 0 213 0;
#X connect 38 0 217 1;
#X connect 39 0 28 1;
#X connect 39 0 29 1;
#X connect 40 0 207 0;
#X connect 40 1 41 0;
#X connect 43 0 216 1;
#X connect 44 0 34 0;
#X connect 45 0 35 0;
#X connect 47 0 216 0;
#X connect 48 0 216 1;
#X connect 48 1 217 0;
#X connect 49 0 74 0;
#X connect 50 0 82 0;
#X connect 51 0 90 0;
#X connect 52 0 78 0;
#X connect 53 0 209 0;
#X connect 54 0 98 0;
#X connect 54 1 187 2;
#X connect 55 0 23 0;
#X connect 55 1 98 0;
#X connect 55 2 187 1;
#X connect 56 0 98 0;
#X connect 56 1 187 0;
#X connect 57 0 65 0;
#X connect 58 0 66 0;
#X connect 59 0 178 0;
#X connect 59 1 6 0;
#X connect 60 0 49 0;
#X connect 61 0 50 0;
#X connect 62 0 49 3;
#X connect 63 0 204 0;
#X connect 64 0 65 1;
#X connect 64 0 66 1;
#X connect 65 0 49 3;
#X connect 65 1 91 0;
#X connect 66 0 91 0;
#X connect 66 1 49 3;
#X connect 67 0 169 0;
#X connect 67 0 209 2;
#X connect 68 0 170 0;
#X connect 68 0 208 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 70 1 72 0;
#X connect 71 0 49 0;
#X connect 72 0 60 0;
#X connect 74 0 75 0;
#X connect 75 0 56 0;
#X connect 76 0 74 1;
#X connect 77 0 75 1;
#X connect 78 0 79 0;
#X connect 79 0 54 0;
#X connect 80 0 78 1;
#X connect 81 0 79 1;
#X connect 82 0 83 0;
#X connect 83 0 1 0;
#X connect 84 0 82 1;
#X connect 85 0 83 1;
#X connect 86 0 21 1;
#X connect 87 0 21 1;
#X connect 88 0 87 0;
#X connect 89 0 86 0;
#X connect 90 0 52 0;
#X connect 91 0 52 3;
#X connect 91 1 204 0;
#X connect 92 0 190 0;
#X connect 92 1 93 0;
#X connect 93 0 95 0;
#X connect 94 0 93 1;
#X connect 96 0 188 0;
#X connect 97 0 96 0;
#X connect 98 0 188 0;
#X connect 98 1 97 0;
#X connect 99 0 216 1;
#X connect 99 1 216 3;
#X connect 99 2 217 3;
#X connect 100 0 70 1;
#X connect 132 0 73 0;
#X connect 132 1 198 1;
#X connect 137 0 138 0;
#X connect 138 0 199 0;
#X connect 138 1 198 3;
#X connect 140 0 202 0;
#X connect 140 1 3 0;
#X connect 140 2 19 0;
#X connect 140 3 141 0;
#X connect 142 0 182 0;
#X connect 144 0 197 0;
#X connect 146 0 22 0;
#X connect 146 1 145 0;
#X connect 146 2 26 0;
#X connect 148 0 183 0;
#X connect 150 0 14 0;
#X connect 151 0 163 1;
#X connect 152 0 154 0;
#X connect 153 0 152 2;
#X connect 154 0 163 0;
#X connect 154 1 151 0;
#X connect 155 0 152 0;
#X connect 156 0 157 0;
#X connect 157 0 161 0;
#X connect 157 1 161 0;
#X connect 158 0 159 0;
#X connect 158 1 8 0;
#X connect 158 2 17 0;
#X connect 159 0 160 0;
#X connect 160 1 20 0;
#X connect 161 0 155 0;
#X connect 161 1 159 1;
#X connect 163 0 164 0;
#X connect 164 0 179 1;
#X connect 165 0 7 0;
#X connect 166 0 167 0;
#X connect 166 1 223 1;
#X connect 167 0 223 0;
#X connect 171 0 172 1;
#X connect 172 0 13 0;
#X connect 172 1 175 0;
#X connect 173 0 175 1;
#X connect 174 0 12 1;
#X connect 175 0 174 0;
#X connect 179 0 180 0;
#X connect 179 1 9 0;
#X connect 181 0 188 1;
#X connect 181 1 184 0;
#X connect 182 0 98 0;
#X connect 182 1 187 3;
#X connect 183 0 98 0;
#X connect 183 1 187 5;
#X connect 184 0 186 0;
#X connect 184 1 185 0;
#X connect 185 0 186 0;
#X connect 186 0 42 0;
#X connect 186 1 46 0;
#X connect 187 0 181 0;
#X connect 188 0 30 0;
#X connect 188 1 24 0;
#X connect 188 2 33 1;
#X connect 188 2 189 0;
#X connect 188 3 143 0;
#X connect 188 4 221 0;
#X connect 188 5 149 0;
#X connect 190 0 224 0;
#X connect 191 0 194 1;
#X connect 192 0 193 0;
#X connect 193 0 194 1;
#X connect 194 0 70 0;
#X connect 195 0 194 0;
#X connect 197 0 98 0;
#X connect 197 1 187 4;
#X connect 198 0 199 1;
#X connect 199 0 16 0;
#X connect 199 1 178 0;
#X connect 199 2 31 0;
#X connect 199 3 139 0;
#X connect 200 0 205 0;
#X connect 202 0 40 0;
#X connect 204 0 50 3;
#X connect 205 0 208 0;
#X connect 205 1 204 0;
#X connect 205 2 29 0;
#X connect 205 3 28 0;
#X connect 205 4 206 0;
#X connect 205 5 210 0;
#X connect 206 0 207 2;
#X connect 207 0 61 0;
#X connect 208 0 207 2;
#X connect 209 0 60 0;
#X connect 210 0 50 3;
#X connect 211 0 218 0;
#X connect 212 0 214 0;
#X connect 213 0 220 0;
#X connect 214 0 213 0;
#X connect 214 1 215 0;
#X connect 215 0 213 1;
#X connect 216 0 28 0;
#X connect 217 0 29 0;
#X connect 218 0 216 2;
#X connect 218 1 219 0;
#X connect 218 2 217 2;
#X connect 220 0 99 0;
#X connect 221 0 222 0;
#X connect 222 0 73 0;
#X connect 222 1 73 0;
#X connect 223 0 168 0;
#X connect 224 0 146 0;
#X connect 224 1 22 0;
#X connect 224 2 199 0;
#X connect 224 3 166 0;
#X connect 224 4 199 0;
#X connect 224 5 146 0;
#X connect 224 6 25 0;
#X connect 225 0 190 1;
#X restore 68 431 pd messages;
#N canvas 204 246 974 493 switches 0;
#X obj 163 155 f;
#X obj 199 155 f;
#X obj 163 207 mux;
#X obj 223 207 mux;
#X obj 223 229 s \$0-yx2;
#X obj 163 229 s \$0-xy2;
#X obj 26 103 spigot;
#X obj 319 222 mux;
#X obj 319 243 s \$0-ij2;
#X obj 384 219 mux;
#X obj 384 240 s \$0-ji2;
#X obj 319 166 list 0 0 0 0 0;
#X obj 384 191 list 0 0 0 0;
#X obj 511 184 f;
#X obj 511 207 mux;
#X obj 579 184 f;
#X obj 579 207 mux;
#X obj 511 228 s \$0-wxy;
#X obj 579 229 s \$0-wyx;
#X obj 1000 259 sel -1;
#X obj 1033 311 s \$0-morphon;
#X obj 1000 360 s \$0-graphicdel;
#X obj 163 29 receive \$0-xsize-2;
#X obj 199 57 receive \$0-ysize-2;
#X obj 81 81 receive \$0-savestart;
#X obj 26 60 receive \$0-bif;
#X obj 511 140 receive \$0-wrapx;
#X obj 579 160 receive \$0-wrapy;
#X obj 1000 236 receive \$0-graphic;
#X obj 228 305 receive \$0-xym;
#X obj 334 16 receive \$0-:i;
#X obj 384 36 receive \$0-:j;
#X obj 103 319 - 1;
#X obj 242 256 - 2;
#X obj 242 278 s \$0-yx22;
#X obj 384 58 t b a;
#X obj 334 58 t b a;
#X obj 247 107 - 1;
#X obj 85 401 s \$0-xymx;
#X obj 159 434 -;
#X obj 159 456 s \$0-xymy;
#X obj 581 471 demux;
#X obj 778 491 demux;
#X obj 581 557 s \$0-ijsw;
#X obj 778 557 s \$0-jisw;
#X obj 608 581 s \$0-xysw;
#X obj 805 580 s \$0-yxsw;
#X obj 682 649 s \$0-xysw2;
#X obj 879 649 s \$0-yxsw2;
#X obj 159 412 swap 1;
#X obj 144 267 - 1;
#X obj 144 289 s \$0-yx21;
#X obj 78 140 s \$0-xsize-21;
#X obj 52 140 - 1;
#X obj 383 528 demux;
#X obj 421 528 demux;
#X obj 421 582 s \$0-yxpattm;
#X obj 341 582 s \$0-xypattm;
#X obj 132 121 s \$0-xcor;
#X obj 247 129 s \$0-ycor;
#X obj 21 361 s \$0-yx2c;
#X obj 21 319 +;
#X obj 103 341 s \$0-xy21;
#X obj 832 604 s \$0-yxto;
#X obj 635 604 s \$0-xyto;
#X obj 238 156 s \$0-ysize-21;
#X text 631 140 from mouseover & hack;
#X obj 1000 336 del 100;
#X obj 192 522 receive \$0-patternprepp;
#X obj 193 640 receive \$0-patternappp;
#X obj 62 566 demux;
#X obj 192 566 demux;
#X obj 62 588 s \$0-burstprep;
#X obj 192 588 s \$0-patternprep;
#X obj 228 325 t b b f f b b f f b b f f b b f f b b b b f f f f f
b b b b f f f f, f 82;
#X obj 63 686 demux;
#X obj 193 686 demux;
#X obj 63 708 s \$0-burstapp;
#X obj 193 708 s \$0-patternapp;
#X obj 31 543 list;
#X obj 160 545 list;
#X obj 23 664 list;
#X obj 153 664 list;
#X obj 62 522 receive \$0-burstprepp;
#X obj 63 640 receive \$0-burstappp;
#X obj 581 445 list append \$0-pattern-st;
#X obj 778 468 list append \$0-burst-st;
#X obj 707 393 receive \$0-patternrest;
#X obj 904 415 receive \$0-burstrest;
#X obj 281 444 max 1;
#X obj 421 444 max 1;
#X obj 421 484 f 1;
#X obj 281 484 f 1;
#X obj 212 496 s \$0-xmax;
#X obj 354 478 s \$0-ymax;
#X obj 355 383 receive \$0-iemarg1;
#X obj 3 186 array size \$0-xarry;
#X obj 3 206 array size \$0-iarry;
#X obj 2 226 array size \$0-yarry;
#X obj 2 246 array size \$0-jarry;
#X obj 4 165 array size \$0-xpre;
#X obj 2 266 array size \$0-ypre;
#X obj -41 290 array size \$0-xpro;
#X obj -120 232 array size \$0-ypro;
#X obj 127 178 s \$0-xroc;
#X obj 581 419 list append \$0-iarry \$0-xarry \$0-alltogsxo \$0-xpro
;
#X obj 778 446 list append \$0-jarry \$0-yarry \$0-alltogsyo \$0-ypro
;
#X obj 581 533 unpack s s s s s;
#X obj 778 533 unpack s s s s s;
#X obj 658 627 s \$0-xyswp;
#X obj 855 626 s \$0-yxswp;
#X obj -41 264 * 2;
#X obj -120 211 * 2;
#X obj 173 329 - 2;
#X obj 173 351 s \$0-xy22;
#X obj 1033 285 change -2;
#X obj 31 9 array set \$0-settings 0;
#X obj 211 -11 array set \$0-settings 1;
#X obj 823 128 s \$0-noresize;
#X obj 823 106 receive \$0-lson;
#X obj 823 84 receive \$0-entryon;
#X obj 823 62 receive \$0-rson;
#X obj 921 61 receive moveon&&u*;
#X obj 658 9 receive \$0-xym;
#X obj 631 33 receive \$0-ydoned;
#X obj 522 33 receive \$0-xdoned;
#X obj 522 57 demux;
#X obj 631 57 demux;
#X obj 631 98 s \$0-burstst;
#X obj 522 98 s \$0-patternst;
#X obj 281 422 receive \$0-xlimit;
#X obj 421 422 receive \$0-ylimit;
#X connect 0 0 2 0;
#X connect 0 0 3 1;
#X connect 1 0 2 1;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 2 0 32 0;
#X connect 2 0 113 0;
#X connect 3 0 4 0;
#X connect 3 0 33 0;
#X connect 3 0 50 0;
#X connect 3 0 61 0;
#X connect 6 0 0 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 11 0 7 0;
#X connect 11 0 9 1;
#X connect 12 0 7 1;
#X connect 12 0 9 0;
#X connect 13 0 14 0;
#X connect 13 0 16 1;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 15 0 14 1;
#X connect 16 0 18 0;
#X connect 19 0 67 0;
#X connect 19 1 115 0;
#X connect 22 0 0 0;
#X connect 22 0 53 0;
#X connect 22 0 58 0;
#X connect 22 0 100 0;
#X connect 22 0 116 0;
#X connect 23 0 1 0;
#X connect 23 0 37 0;
#X connect 23 0 65 0;
#X connect 23 0 117 0;
#X connect 24 0 6 1;
#X connect 25 0 6 0;
#X connect 26 0 13 0;
#X connect 27 0 15 0;
#X connect 28 0 19 0;
#X connect 29 0 74 0;
#X connect 30 0 36 0;
#X connect 31 0 35 0;
#X connect 32 0 62 0;
#X connect 33 0 34 0;
#X connect 35 0 12 0;
#X connect 35 1 12 1;
#X connect 36 0 11 0;
#X connect 36 1 11 1;
#X connect 37 0 59 0;
#X connect 37 0 98 0;
#X connect 37 0 99 0;
#X connect 37 0 101 0;
#X connect 37 0 112 0;
#X connect 39 0 40 0;
#X connect 41 0 107 0;
#X connect 41 1 108 0;
#X connect 42 0 108 0;
#X connect 42 1 107 0;
#X connect 49 0 39 0;
#X connect 49 1 39 1;
#X connect 50 0 51 0;
#X connect 53 0 52 0;
#X connect 53 0 96 0;
#X connect 53 0 97 0;
#X connect 53 0 104 0;
#X connect 53 0 111 0;
#X connect 54 0 57 0;
#X connect 54 1 56 0;
#X connect 55 0 56 0;
#X connect 55 1 57 0;
#X connect 61 0 60 0;
#X connect 67 0 21 0;
#X connect 68 0 80 1;
#X connect 68 0 71 0;
#X connect 69 0 76 0;
#X connect 69 0 82 1;
#X connect 70 0 72 0;
#X connect 70 1 73 0;
#X connect 71 0 73 0;
#X connect 71 1 72 0;
#X connect 74 0 0 0;
#X connect 74 1 1 0;
#X connect 74 2 2 2;
#X connect 74 3 3 2;
#X connect 74 4 11 0;
#X connect 74 5 12 0;
#X connect 74 6 7 2;
#X connect 74 7 9 2;
#X connect 74 8 13 0;
#X connect 74 9 15 0;
#X connect 74 10 14 2;
#X connect 74 11 16 2;
#X connect 74 14 38 0;
#X connect 74 15 49 0;
#X connect 74 16 105 0;
#X connect 74 17 106 0;
#X connect 74 18 92 0;
#X connect 74 19 91 0;
#X connect 74 20 41 1;
#X connect 74 21 42 1;
#X connect 74 22 55 1;
#X connect 74 23 54 1;
#X connect 74 24 61 1;
#X connect 74 25 81 0;
#X connect 74 26 82 0;
#X connect 74 27 79 0;
#X connect 74 28 80 0;
#X connect 74 29 75 1;
#X connect 74 30 76 1;
#X connect 74 31 70 1;
#X connect 74 32 71 1;
#X connect 75 0 77 0;
#X connect 75 1 78 0;
#X connect 76 0 78 0;
#X connect 76 1 77 0;
#X connect 79 0 70 0;
#X connect 80 0 71 0;
#X connect 81 0 75 0;
#X connect 82 0 76 0;
#X connect 83 0 70 0;
#X connect 83 0 79 1;
#X connect 84 0 75 0;
#X connect 84 0 81 1;
#X connect 85 0 41 0;
#X connect 86 0 42 0;
#X connect 87 0 85 1;
#X connect 88 0 86 1;
#X connect 89 0 92 0;
#X connect 89 0 93 0;
#X connect 90 0 91 0;
#X connect 90 0 94 0;
#X connect 91 0 55 0;
#X connect 92 0 54 0;
#X connect 95 0 89 0;
#X connect 95 0 90 0;
#X connect 105 0 85 0;
#X connect 106 0 86 0;
#X connect 107 0 43 0;
#X connect 107 1 45 0;
#X connect 107 2 64 0;
#X connect 107 3 109 0;
#X connect 107 4 47 0;
#X connect 108 0 44 0;
#X connect 108 1 46 0;
#X connect 108 2 63 0;
#X connect 108 3 110 0;
#X connect 108 4 48 0;
#X connect 111 0 102 0;
#X connect 112 0 103 0;
#X connect 113 0 114 0;
#X connect 115 0 20 0;
#X connect 119 0 118 0;
#X connect 120 0 118 0;
#X connect 121 0 118 0;
#X connect 122 0 118 0;
#X connect 123 0 127 1;
#X connect 123 0 126 1;
#X connect 124 0 127 0;
#X connect 125 0 126 0;
#X connect 126 0 129 0;
#X connect 126 1 128 0;
#X connect 127 0 128 0;
#X connect 127 1 129 0;
#X connect 130 0 89 0;
#X connect 131 0 90 0;
#X restore 68 486 pd switches;
#N canvas 263 89 842 679 creation 0;
#X obj 399 340 s \$0-hacklist;
#X obj 356 316 list split 1000;
#X obj 91 38 route bang;
#X obj 148 171 t b a;
#X obj 148 217 s \$0-reld;
#X obj 399 86 f 1;
#X obj 235 60 f 5;
#X obj 399 249 s \$0-graphinit;
#X obj 235 82 s \$0-xsize-init;
#X obj 399 108 sel -1;
#X obj 399 226 t f;
#X obj 432 226 s \$0-foury;
#X obj 91 15 receive \$0-iemargs;
#X obj 372 2 receive \$0-initstart;
#X obj 456 25 receive \$0-graphstart;
#X obj 510 251 receive \$0-listbreak;
#X obj 432 133 t f b;
#X msg 459 175 obj 0 0 ctxfiles/deletable \$1;
#X obj 459 154 f \$0;
#X obj 459 197 iemguts/sendcanvas 1;
#X obj 250 38 t f;
#X obj 456 47 t f;
#X obj 372 24 t b b;
#X obj 148 149 demux 0 1 2;
#X obj 356 249 t a b;
#X msg 365 226 2;
#X obj 232 215 list split 12;
#X obj 435 501 list split;
#X obj 232 251 list trim;
#X obj 466 369 receive \$0-cutt;
#X obj 493 457 f;
#X obj 493 479 + 2;
#X obj 466 391 moses;
#X obj 493 435 t b;
#X text 520 447 cut off innit from load list;
#X obj 493 413 moses 7;
#X obj 384 534 s \$0-undone2;
#X text 574 412 <-- REMOVED CUTT. Does it still work?;
#X obj 250 16 receive \$0-xxstart;
#X obj 510 273 spigot 1;
#X obj 510 295 t f b;
#X obj 576 273 t f;
#X obj 91 126 send;
#X obj 118 103 makefilename %i-gettemp;
#X obj 91 81 f \$0;
#X obj 162 127 receive \$0-gottemp;
#X obj 118 81 v \$0-parent;
#X obj 148 193 f 1;
#X text -237 62 If there is no creation argument \, check for a [preset]
;
#X obj 123 193 f 1;
#X obj 91 60 t b b b;
#X connect 1 0 36 0;
#X connect 1 1 0 0;
#X connect 1 2 36 0;
#X connect 2 0 50 0;
#X connect 2 1 23 0;
#X connect 3 0 47 0;
#X connect 3 1 26 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 9 0 10 0;
#X connect 9 1 16 0;
#X connect 10 0 7 0;
#X connect 12 0 2 0;
#X connect 13 0 22 0;
#X connect 14 0 21 0;
#X connect 15 0 39 0;
#X connect 16 0 11 0;
#X connect 16 1 18 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 20 0 6 1;
#X connect 21 0 5 1;
#X connect 22 0 6 0;
#X connect 22 1 5 0;
#X connect 23 0 3 0;
#X connect 23 1 24 0;
#X connect 24 0 1 0;
#X connect 24 1 25 0;
#X connect 25 0 23 1;
#X connect 26 0 28 0;
#X connect 26 2 28 0;
#X connect 27 1 36 0;
#X connect 28 0 36 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 30 1;
#X connect 31 0 27 1;
#X connect 32 1 35 0;
#X connect 33 0 30 0;
#X connect 35 0 33 0;
#X connect 38 0 20 0;
#X connect 39 0 40 0;
#X connect 40 0 1 1;
#X connect 40 1 41 0;
#X connect 41 0 39 1;
#X connect 43 0 42 1;
#X connect 44 0 42 0;
#X connect 45 0 23 0;
#X connect 46 0 43 0;
#X connect 47 0 23 1;
#X connect 47 0 4 0;
#X connect 49 0 4 0;
#X connect 50 0 49 0;
#X connect 50 1 44 0;
#X connect 50 2 46 0;
#X restore 69 139 pd creation;
#N canvas 303 87 978 681 bank 0;
#X obj 379 387 text define \$0-bank;
#X obj 388 614 text set \$0-bank;
#X obj 120 291 text get \$0-bank;
#X obj 120 314 route bang;
#X obj 450 570 t f;
#X obj 75 154 - 1;
#X msg 341 298 click;
#X obj 75 224 ctxfiles/sp01 1;
#X obj 18 109 receive \$0-undo;
#X obj 477 570 receive \$0-yincr;
#X obj 277 569 receive \$0-yibang;
#X obj 450 548 receive \$0-yidone;
#X obj 177 358 s \$0-notsafe;
#X text 479 108 <-- needed?;
#X obj 318 86 receive \$0-savelists;
#X obj 436 298 receive \$0-bplist;
#X text 453 339 compile bank list from save list;
#X obj 379 342 route bang;
#X msg 379 365 clear;
#X obj 436 410 cyclone/iter;
#X obj 436 432 text get \$0-save;
#X obj 436 476 route %^;
#X obj 388 502 ctxfiles/collect;
#X obj 388 569 list;
#X obj 330 184 receive \$0-iemarg1;
#X obj 330 206 spigot;
#X obj 330 228 t f;
#X text 379 213 go to bank 0 on startup;
#X text 25 337 retrieve list from bank;
#X text 505 610 send list to bank;
#X text 209 140 interface with save list;
#X obj 436 454 list trim;
#X obj 431 3 receive \$0-autoon;
#X obj 204 380 s \$0-roff2;
#X obj 177 336 t a b;
#X obj 42 291 s \$0-symres;
#X obj 402 -20 receive \$0-saveset;
#X obj 402 28 ctxfiles/sp01 1;
#X obj 402 50 t b b b;
#X obj 135 465 t b b;
#X text 56 441 save or not;
#X obj 135 439 spigot 1;
#X obj 341 275 receive \$0-aopA;
#X obj 268 321 receive \$0-acleA;
#X obj 41 402 receive \$0-asavA;
#X obj 363 140 ctxfiles/t2l2 \$0 bank :ba tobank;
#X obj 363 108 receive \$0-mess:ba;
#X obj 363 162 f 1;
#X obj 18 132 route bang;
#X obj 18 177 f;
#X obj 75 248 t b b f f b b f;
#X obj 18 199 + 1;
#X obj 45 199 text size \$0-bank;
#X obj 18 154 t b b;
#X obj 18 223 mod;
#X obj 379 320 list 30 15;
#X obj 681 227 receive \$0-undoo;
#X obj 681 249 route -on float;
#X obj 826 425 + 1;
#X obj 813 402 v \$0-undo-no;
#X obj 798 447 mod;
#X obj 828 348 del 1000;
#X obj 724 274 t b f;
#X obj 798 469 makefilename \$0-%d-undome;
#X obj 783 492 send;
#X obj 768 301 t b b b b b b;
#X obj 843 325 s \$0-roff;
#X obj 768 518 s \$0-roff2;
#X obj 751 362 - 1;
#X obj 681 301 s \$0-undooff;
#X obj 798 425 f 1;
#X obj 828 370 f 1;
#X connect 2 0 3 0;
#X connect 3 1 34 0;
#X connect 4 0 1 1;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 7 0 50 0;
#X connect 8 0 48 0;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 11 0 4 0;
#X connect 14 0 45 0;
#X connect 15 0 55 1;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 18 0 0 0;
#X connect 19 0 20 0;
#X connect 20 0 31 0;
#X connect 21 0 22 1;
#X connect 21 1 22 1;
#X connect 22 0 23 0;
#X connect 23 0 1 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 2 0;
#X connect 31 0 21 0;
#X connect 32 0 37 1;
#X connect 32 0 41 1;
#X connect 34 0 12 0;
#X connect 34 1 33 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 37 2;
#X connect 38 1 45 0;
#X connect 38 2 37 1;
#X connect 39 0 22 0;
#X connect 39 1 55 0;
#X connect 41 0 39 0;
#X connect 42 0 6 0;
#X connect 43 0 18 0;
#X connect 44 0 39 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X connect 47 0 25 1;
#X connect 48 0 53 0;
#X connect 48 1 5 0;
#X connect 49 0 51 0;
#X connect 50 0 35 0;
#X connect 50 1 7 2;
#X connect 50 2 1 1;
#X connect 50 3 2 0;
#X connect 50 4 41 0;
#X connect 50 5 7 1;
#X connect 50 6 49 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 49 0;
#X connect 53 1 52 0;
#X connect 54 0 7 0;
#X connect 55 0 17 0;
#X connect 56 0 57 0;
#X connect 57 0 69 0;
#X connect 57 1 62 0;
#X connect 57 2 65 0;
#X connect 58 0 70 1;
#X connect 59 0 60 1;
#X connect 60 0 63 0;
#X connect 61 0 71 0;
#X connect 62 0 65 0;
#X connect 62 1 68 0;
#X connect 63 0 64 1;
#X connect 65 0 67 0;
#X connect 65 1 64 0;
#X connect 65 2 70 0;
#X connect 65 3 59 0;
#X connect 65 4 61 0;
#X connect 65 5 66 0;
#X connect 68 0 70 1;
#X connect 70 0 58 0;
#X connect 70 0 60 0;
#X connect 71 0 70 1;
#X restore 552 287 pd bank;
#N canvas 357 228 649 426 inlet~ 0;
#X msg 332 184 menu-open;
#X msg 116 184 vis 0;
#X msg 235 291 obj \$1 100 outlet~;
#X obj 23 22 receive \$0-i/onor;
#X obj 23 96 t f f;
#X obj 23 44 t b s;
#X obj 23 143 send;
#X obj 207 223 f 10000;
#X obj 207 245 + 100;
#X obj 207 267 demux;
#X obj 267 223 t f;
#X msg 294 223 1;
#X obj 23 74 f 10000;
#X obj 453 96 t f f;
#X obj 453 44 t b s;
#X obj 453 143 send;
#X obj 453 22 receive \$0-reflexr;
#X obj 485 117 + 1;
#X msg 207 316 obj \$1 0 inlet~;
#X obj 207 150 cyclone/iter;
#X obj 207 172 t b s;
#X obj 239 197 sel i o;
#X obj 207 338 iemguts/sendcanvas 2;
#X obj 55 117 + 10;
#X obj 453 74 f 36;
#X msg 223 99 symbol;
#X obj 207 124 s2l;
#X obj 192 54 list;
#X obj 192 10 receive \$0-:io;
#X obj 192 32 spigot 1;
#X obj 285 10 receive \$0-seqstart;
#X obj 285 33 t f;
#X obj 192 76 t b a b b;
#X connect 0 0 22 0;
#X connect 1 0 22 0;
#X connect 2 0 22 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 4 1 23 0;
#X connect 5 0 12 0;
#X connect 5 1 6 1;
#X connect 7 0 8 0;
#X connect 8 0 7 1;
#X connect 8 0 9 0;
#X connect 9 0 18 0;
#X connect 9 1 2 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 12 0 4 0;
#X connect 13 0 15 0;
#X connect 13 1 17 0;
#X connect 14 0 24 0;
#X connect 14 1 15 1;
#X connect 16 0 14 0;
#X connect 17 0 24 1;
#X connect 18 0 22 0;
#X connect 19 0 20 0;
#X connect 20 0 7 0;
#X connect 20 1 21 0;
#X connect 21 0 10 0;
#X connect 21 1 11 0;
#X connect 23 0 12 1;
#X connect 24 0 13 0;
#X connect 25 0 26 1;
#X connect 26 0 19 0;
#X connect 27 0 32 0;
#X connect 28 0 29 0;
#X connect 29 0 27 0;
#X connect 30 0 31 0;
#X connect 31 0 29 1;
#X connect 32 1 26 0;
#X connect 32 2 25 0;
#X connect 32 3 31 0;
#X restore 552 338 pd inlet~;
#N canvas 67 239 751 393 loadbang 0;
#X obj 225 153 s \$0-argstart;
#X obj 196 307 s \$0-savestart;
#X obj 182 333 del 1005;
#X obj 182 355 s \$0-seqstart;
#X obj 182 35 spigot;
#X obj 280 80 s \$0-lb;
#X obj 182 10 loadbang;
#X obj 267 104 s \$0-lb1;
#X obj 211 176 s \$0-iemargr;
#X obj 483 105 s \$0-iemargr;
#X obj 464 131 s \$0-initstart;
#X obj 281 127 s \$0-lb0;
#X obj 196 255 del 1000;
#X obj 200 205 s \$0-iemarg1;
#X text 13 276 remove these dels?? -->;
#X obj 68 204 s \$0-cntstrt;
#X obj 464 38 receive \$0-myinit;
#X obj 42 99 receive \$0-cbeep;
#X msg 335 255 symbol;
#X obj 335 277 s \$0-l2sb;
#X obj 282 337 s \$0-colobang;
#X obj 42 127 spigot;
#X obj 166 105 f 1;
#X obj 42 175 send;
#X obj 42 149 t b s;
#X obj 196 277 f 1;
#X obj 503 83 f 1;
#X obj 435 201 s2l;
#X obj 435 179 iemguts/canvasdollarzero 3;
#X obj 435 245 s \$0-parent;
#X obj 531 84 s tload#e%r^;
#X obj 481 268 ctxfiles/share3 ctxfiles/IDshare;
#X obj 458 295 array set \$0-settings 2;
#X obj 435 223 t f f f;
#X obj 66 8 receive Rf&Nm<>;
#X obj 450 344 makefilename -%d;
#X obj 450 366 s \$0-negzero;
#X obj 464 60 t b b b b b;
#X obj 654 186 v -(xoffset);
#X obj 654 133 v -(xsize);
#X obj 654 82 v -(ysize);
#X obj 654 105 s \$0-ysymsize;
#X obj 654 209 s \$0-xsymoff;
#X obj 654 156 s \$0-xsymsize;
#X obj 681 234 v -(xmenu);
#X obj 182 57 t b b b b b b b b b b b b b b b b f f;
#X obj 681 257 s \$0-xmen;
#X obj 623 14 v -(ysize6);
#X obj 623 38 s \$0-laby;
#X connect 2 0 3 0;
#X connect 4 0 45 0;
#X connect 6 0 4 0;
#X connect 12 0 20 0;
#X connect 12 0 25 0;
#X connect 16 0 37 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 21 0 24 0;
#X connect 22 0 21 1;
#X connect 24 0 23 0;
#X connect 24 1 23 1;
#X connect 25 0 1 0;
#X connect 26 0 4 1;
#X connect 27 0 33 0;
#X connect 28 0 27 0;
#X connect 33 0 29 0;
#X connect 33 1 32 0;
#X connect 33 2 31 0;
#X connect 34 0 4 0;
#X connect 35 0 36 0;
#X connect 37 0 10 0;
#X connect 37 1 9 0;
#X connect 37 2 26 0;
#X connect 37 3 30 0;
#X connect 37 4 28 0;
#X connect 38 0 42 0;
#X connect 39 0 43 0;
#X connect 40 0 41 0;
#X connect 44 0 46 0;
#X connect 45 0 15 0;
#X connect 45 1 22 0;
#X connect 45 2 2 0;
#X connect 45 3 12 0;
#X connect 45 4 20 0;
#X connect 45 5 13 0;
#X connect 45 6 8 0;
#X connect 45 7 0 0;
#X connect 45 8 7 0;
#X connect 45 9 5 0;
#X connect 45 10 11 0;
#X connect 45 11 18 0;
#X connect 45 12 38 0;
#X connect 45 13 39 0;
#X connect 45 14 40 0;
#X connect 45 14 47 0;
#X connect 45 15 44 0;
#X connect 45 16 35 0;
#X connect 45 17 4 1;
#X connect 47 0 48 0;
#X restore 69 111 pd loadbang;
#N canvas 67 199 974 554 record 0;
#X obj 291 -216 receive \$0-record;
#X obj 326 133 list split;
#X obj 535 42 receive \$0-ended;
#X obj 535 64 spigot;
#X obj 105 332 s \$0-recon;
#X obj 326 106 spigot;
#X obj 885 250 receive \$0-xym;
#X obj 576 516 list prepend :x;
#X obj 86 185 s \$0-rthen;
#X obj 608 373 sel 1;
#X obj 354 204 list trim;
#X obj 576 374 f 1;
#X obj 360 401 ctxfiles/sp01 1;
#X msg 571 137 clear;
#X obj 524 684 s \$0-notsafe;
#X msg 29 410 :s;
#X obj 885 273 sel 0;
#X obj 912 316 t b;
#X obj 720 717 list prepend;
#X text 264 -222 start;
#X text 567 -40 finish;
#X text 400 129 select input;
#X text 412 685 send recorded data;
#X text 672 510 record toggles;
#X text 817 762 record text input;
#X obj 105 280 f 1;
#X obj 291 -124 demux;
#X obj 720 763 list prepend :a;
#X obj 885 294 list append :x :a :i;
#X obj 912 338 list append :y :b :j;
#X obj 885 368 unpack s s s;
#X obj 591 349 t f f f f;
#X msg 665 66 stop;
#X obj 318 -98 route -stop;
#X obj 318 -147 !=;
#X obj 74 363 receive \$0-imoff;
#X obj 29 386 spigot 1;
#X obj 720 673 list prepend ';
#X obj 720 695 list append ';
#X obj 720 606 list prepend;
#X obj 338 -15 v (dollarzero);
#X obj 338 -37 f \$0;
#X obj 322 10 s 54y3g%%Thhg;
#X obj 10 210 receive \$0-r-bang;
#X text -39 238 start -->;
#X obj 789 584 receive \$0-r-prepend;
#X obj 879 -15 send \$0-r-source;
#X obj 865 6 send \$0-r-delay;
#X obj 851 27 send \$0-r-trigger;
#X obj 837 48 send \$0-r-output;
#X obj 823 70 send \$0-r-prepend;
#X text 355 -137 1: interpret :r differently depending on whether you
are recording, f 69;
#X text 920 -234 reset all;
#X text 388 -78 2: when :r command is received \, reset all \, interpret
command \, then start, f 22;
#X obj 291 -193 t a b;
#X obj 318 -170 v \$0-recon;
#X text 246 -145 needed? -->;
#X obj 120 210 receive \$0-r-playback;
#X obj 120 256 + 1;
#X obj 893 -36 send \$0-r-playback;
#X obj 120 233 !=;
#N canvas 67 99 689 605 source 0;
#X obj 321 207 makefilename \$0n;
#X obj 321 230 makefilename %s-dfetch;
#X obj 321 276 symbol \$0-recsteal;
#X obj 321 299 send;
#X obj 181 205 receive \$0-recsteal;
#X obj 193 331 makefilename %i-tobr;
#X obj 123 9 receive \$0-r-source;
#X obj 123 360 makefilename \$0n;
#X obj 184 144 receive \$0-Jsend;
#X obj 123 331 v \$0nnumber;
#X obj 123 32 route inlet inlets bang self c;
#X obj 264 106 route bang;
#X obj 174 110 f 2;
#X obj 201 110 f 3;
#X obj 143 386 symbol \$0-inlet-in;
#X obj 143 458 iemguts/oreceive \$0no;
#X obj 219 435 symbol \$0-no;
#X obj 219 411 inlet;
#X obj 26 81 inlet;
#X obj 123 110 t f;
#X obj 148 110 f 1;
#X obj 321 253 t b s;
#X obj 300 80 t b s;
#X obj 108 138 f;
#X obj 276 231 outlet;
#X obj 108 184 sel 0 1 2 3;
#X obj 321 158 t f f;
#X obj 348 181 v \$0-source-n;
#X obj 300 56 list;
#X obj 143 511 demux;
#X obj 170 533 route :x :y :i :j;
#X obj 108 161 t f f f;
#X obj 253 276 == 2;
#X obj 220 300 spigot;
#X obj 181 230 t b f;
#X obj 193 253 f;
#X obj 193 276 t f f;
#X obj 414 329 makefilename %i-alltogsx;
#X obj 414 352 iemguts/oreceive \$0n;
#X obj 414 422 iemguts/oreceive \$0n;
#X obj 414 399 makefilename %i-alltogsy;
#X obj 414 492 iemguts/oreceive \$0n;
#X obj 414 469 makefilename %i-allis;
#X obj 414 562 iemguts/oreceive \$0n;
#X obj 414 539 makefilename %i-alljs;
#X msg 414 375 :x \$2;
#X msg 414 445 :y \$2;
#X obj 414 515 print iii;
#X obj 143 624 outlet;
#X obj 225 253 symbol;
#X obj 321 129 sel;
#X obj 336 106 receive \$0nnumber;
#X msg 480 131 can't record from self;
#X obj 480 154 print Context;
#X connect 0 0 1 0;
#X connect 1 0 21 0;
#X connect 2 0 3 0;
#X connect 4 0 34 0;
#X connect 5 0 15 0;
#X connect 6 0 10 0;
#X connect 7 0 15 0;
#X connect 8 0 7 0;
#X connect 8 0 0 0;
#X connect 9 0 7 0;
#X connect 10 0 19 0;
#X connect 10 1 19 0;
#X connect 10 2 19 0;
#X connect 10 3 20 0;
#X connect 10 4 11 0;
#X connect 10 5 28 0;
#X connect 11 0 20 0;
#X connect 11 1 50 0;
#X connect 12 0 23 1;
#X connect 13 0 23 1;
#X connect 14 0 15 0;
#X connect 15 0 29 0;
#X connect 16 0 15 0;
#X connect 16 0 38 0;
#X connect 16 0 41 0;
#X connect 16 0 39 0;
#X connect 16 0 43 0;
#X connect 17 0 16 0;
#X connect 18 0 23 0;
#X connect 19 0 23 1;
#X connect 20 0 23 1;
#X connect 21 0 2 0;
#X connect 21 1 3 1;
#X connect 22 0 13 0;
#X connect 22 1 49 1;
#X connect 23 0 31 0;
#X connect 25 0 14 0;
#X connect 25 1 9 0;
#X connect 25 2 35 0;
#X connect 25 3 35 0;
#X connect 25 4 49 0;
#X connect 26 0 0 0;
#X connect 26 1 27 0;
#X connect 28 0 22 0;
#X connect 29 0 48 0;
#X connect 29 1 30 0;
#X connect 30 4 48 0;
#X connect 31 0 25 0;
#X connect 31 1 32 0;
#X connect 31 2 24 0;
#X connect 32 0 29 1;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 33 0 40 0;
#X connect 33 0 42 0;
#X connect 33 0 44 0;
#X connect 34 0 12 0;
#X connect 34 1 35 1;
#X connect 35 0 36 0;
#X connect 36 0 5 0;
#X connect 36 1 33 0;
#X connect 37 0 38 0;
#X connect 38 0 45 0;
#X connect 39 0 46 0;
#X connect 40 0 39 0;
#X connect 41 0 47 0;
#X connect 42 0 41 0;
#X connect 44 0 43 0;
#X connect 45 0 48 0;
#X connect 46 0 48 0;
#X connect 49 0 15 0;
#X connect 50 0 52 0;
#X connect 50 1 26 0;
#X connect 51 0 50 1;
#X connect 52 0 53 0;
#X restore 326 63 pd source;
#X obj 383 106 ==;
#X obj 576 493 list prepend;
#X obj 645 441 else/routeall + -;
#X obj 744 465 t b;
#X obj 645 465 list;
#X obj 105 308 t f f f;
#X obj 720 651 list append;
#X obj 783 628 receive \$0-r-append;
#X obj 922 -78 s \$0-r-append;
#N canvas 382 197 450 300 trigger 0;
#X obj 118 160 inlet;
#X obj 153 79 receive \$0-r-trigger;
#X obj 153 102 route float wait;
#X obj 138 190 f;
#X obj 199 127 f 1;
#X obj 246 124 t b;
#X obj 246 147 t f;
#X obj 138 213 sel 0;
#X obj 138 258 outlet;
#X obj 165 236 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 2 5 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X restore 29 117 pd trigger;
#X obj 291 -65 t b b a b b;
#X obj 645 414 receive \$0-r-toggleprep;
#X obj 403 376 spigot 1;
#X obj 448 353 receive \$0-r-lock;
#X obj 970 -186 f 1;
#X obj 970 -162 s \$0-r-lock;
#X obj 354 227 route :r record;
#X obj 336 376 spigot 1;
#X obj 381 329 receive \$0-r-pattern;
#N canvas 67 235 450 517 floats 0;
#X obj 65 67 inlet;
#X obj 261 596 inlet pattern;
#X obj 279 619 inlet array;
#X obj 192 619 list prepend;
#X obj 192 641 list prepend :i;
#X obj 192 644 outlet;
#X obj 140 -9 receive \$0-r-floats;
#X obj 140 14 route float;
#X obj 140 97 !=;
#X obj 159 235 symbol;
#X obj 179 189 text set \$0-r-search 1e+09;
#X obj 140 212 text define \$0-r-search;
#X msg 140 189 clear;
#X obj 179 166 cyclone/iter;
#X obj 159 258 text search \$0-r-search;
#X obj 140 143 t b b a;
#X obj 159 281 sel -1;
#X obj 192 408 text get \$0-r-search;
#X obj 192 385 + 1;
#X obj 192 480 t f;
#X obj 35 246 cyclone/iter;
#X obj 35 269 spigot 1;
#X obj 69 224 f 1;
#X obj 35 292 route float;
#X obj 35 315 t f b;
#X obj 62 338 t f;
#X obj 18 338 f;
#X obj 18 201 t b a b b;
#X obj 45 224 t f;
#X obj 192 555 +;
#X obj 220 526 t f;
#X obj 259 550 f 0.5;
#X obj 220 480 receive \$0-r-floatprep;
#X obj 259 527 t b;
#X obj 220 503 sel 0 *;
#X obj 239 573 v \$0-source-n;
#X obj 192 362 f;
#X obj 192 337 until;
#X obj 192 431 route float bang;
#X obj 192 455 t f b;
#X obj 248 87 t b a;
#X obj 275 111 list split 1;
#X obj 192 310 t b f;
#X obj 203 39 list trim;
#X obj 203 62 route -c;
#X obj 203 85 t b f;
#X obj 65 120 demux 0 1 2 3;
#X obj 248 110 f 3;
#X obj 203 108 f 2;
#X obj 115 166 f;
#X obj 115 143 t b;
#X connect 0 0 46 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 43 0;
#X connect 8 0 46 1;
#X connect 9 0 14 0;
#X connect 12 0 11 0;
#X connect 13 0 10 0;
#X connect 14 0 16 0;
#X connect 15 0 12 0;
#X connect 15 1 9 0;
#X connect 15 2 13 0;
#X connect 16 0 19 0;
#X connect 16 1 42 0;
#X connect 17 0 38 0;
#X connect 18 0 17 0;
#X connect 18 0 36 1;
#X connect 19 0 29 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 26 1;
#X connect 24 1 25 0;
#X connect 25 0 21 1;
#X connect 26 0 29 0;
#X connect 27 0 26 0;
#X connect 27 1 20 0;
#X connect 27 2 28 0;
#X connect 27 3 22 0;
#X connect 28 0 26 1;
#X connect 29 0 3 0;
#X connect 30 0 29 0;
#X connect 31 0 29 1;
#X connect 32 0 34 0;
#X connect 33 0 31 0;
#X connect 34 0 30 0;
#X connect 34 1 35 0;
#X connect 34 2 33 0;
#X connect 35 0 3 0;
#X connect 36 0 18 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 38 1 39 0;
#X connect 39 0 19 0;
#X connect 39 1 37 1;
#X connect 40 0 47 0;
#X connect 40 1 41 0;
#X connect 41 0 9 1;
#X connect 42 0 37 0;
#X connect 42 1 36 1;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 44 1 40 0;
#X connect 45 0 48 0;
#X connect 45 1 49 1;
#X connect 46 1 27 0;
#X connect 46 2 50 0;
#X connect 46 3 15 0;
#X connect 47 0 46 1;
#X connect 48 0 46 1;
#X connect 49 0 29 0;
#X connect 50 0 49 0;
#X restore 484 478 pd floats;
#X obj 932 -99 s \$0-r-floats;
#N canvas 67 89 450 350 playback 0;
#X obj 246 92 receive \$0-reccount;
#X obj 246 160 pipe;
#X obj 122 27 receive \$0-rev;
#X obj 246 182 +;
#X obj 122 69 sel 1;
#X msg 149 116 1;
#X obj 122 116 f;
#X obj 137 91 receive \$0-xy21;
#X obj 246 249 change;
#X obj 246 204 -;
#X obj 149 208 t f f f;
#X obj 156 187 * 1;
#X obj 173 116 - 0.5;
#X obj 173 138 * -2;
#X obj 122 49 t f f b f;
#X obj 246 227 clip 1 5;
#X text 78 3 process reverse mode;
#X text 288 177 process delay;
#X obj 324 261 f 1;
#X obj 267 115 receive \$0-r-delay;
#X obj 246 287 outlet;
#X obj 324 206 inlet;
#X obj 324 229 t b a;
#X obj 311 297 outlet;
#X obj 267 138 max;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 14 0;
#X connect 3 0 9 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 10 0;
#X connect 6 0 10 0;
#X connect 7 0 6 1;
#X connect 7 0 15 2;
#X connect 8 0 20 0;
#X connect 9 0 15 0;
#X connect 10 1 23 0;
#X connect 10 2 18 1;
#X connect 11 0 3 1;
#X connect 12 0 13 0;
#X connect 13 0 11 1;
#X connect 14 0 4 0;
#X connect 14 1 9 1;
#X connect 14 2 11 0;
#X connect 14 3 12 0;
#X connect 15 0 8 0;
#X connect 18 0 20 0;
#X connect 19 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 18 0;
#X connect 22 1 1 0;
#X connect 24 0 1 1;
#X restore 591 312 pd playback;
#X obj 944 -120 s \$0-r-exclude;
#X obj 720 584 spigot;
#X obj 753 562 receive \$0-r-messages;
#X obj 956 -141 s \$0-r-messages;
#X obj 535 90 t f f b b b;
#X obj 29 239 t b b;
#X obj 86 141 t f f b;
#X obj 125 164 demux;
#X obj 152 141 receive \$0-r-first;
#N canvas 67 90 450 495 buffer 0;
#X obj 83 198 demux;
#X text 369 197 buffer;
#X obj 218 183 receive \$0-r-delay;
#X obj 218 206 t f f;
#X obj 218 229 <;
#X obj 245 229 abs;
#X obj 110 298 pipe;
#X obj 137 248 list;
#X obj 162 304 text define \$0-r-buff;
#X obj 137 271 text set \$0-r-buff 1e+08;
#X obj 110 247 t f;
#X obj 110 321 t f f;
#X obj 137 344 text get \$0-r-buff;
#X obj 110 370 text delete \$0-r-buff;
#X obj 83 22 inlet;
#X obj 83 394 outlet;
#X obj 110 224 t b a;
#X obj 83 45 t a a;
#X obj 110 71 spigot;
#X obj 110 172 s \$0-messu;
#X obj 143 22 receive \$0-r-output;
#X obj 143 45 !=;
#X obj 110 125 route :r record;
#X obj 110 148 t b;
#X obj 110 94 list trim;
#X connect 0 0 15 0;
#X connect 0 1 16 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 0 1;
#X connect 5 0 6 1;
#X connect 6 0 11 0;
#X connect 7 0 9 0;
#X connect 10 0 6 0;
#X connect 11 0 13 0;
#X connect 11 1 12 0;
#X connect 12 0 15 0;
#X connect 14 0 17 0;
#X connect 16 0 10 0;
#X connect 16 1 7 0;
#X connect 17 0 0 0;
#X connect 17 1 18 0;
#X connect 18 0 24 0;
#X connect 20 0 21 0;
#X connect 21 0 18 1;
#X connect 22 0 23 0;
#X connect 22 1 23 0;
#X connect 22 2 19 0;
#X connect 23 0 19 0;
#X connect 24 0 22 0;
#X restore 354 180 pd buffer;
#N canvas 67 89 450 300 exclude 0;
#X obj 143 272 outlet out;
#X obj 143 94 demux;
#X obj 170 26 receive \$0-r-exclude;
#X obj 170 49 route bang;
#X obj 170 72 t f;
#X obj 227 95 f 1;
#X obj 246 142 cyclone/iter;
#X obj 227 72 t b a b;
#X obj 266 118 text define \$0-r-excl;
#X obj 246 165 text set \$0-r-excl 1e+08;
#X msg 266 95 clear;
#X obj 197 188 text search \$0-r-excl;
#X obj 170 122 t a a;
#X obj 197 146 list;
#X obj 197 211 == -1;
#X obj 170 242 spigot;
#X obj 133 49 inlet;
#X connect 1 0 0 0;
#X connect 1 1 12 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 7 0;
#X connect 4 0 1 1;
#X connect 5 0 1 1;
#X connect 6 0 9 0;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 7 2 10 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 12 1 13 0;
#X connect 13 0 11 0;
#X connect 14 0 15 1;
#X connect 15 0 0 0;
#X connect 16 0 1 0;
#X restore 354 157 pd exclude;
#X obj 1000 -186 s \$0-r-pattern;
#X obj 354 269 t b a;
#X obj 441 265 t a a;
#X obj 354 295 t b a b;
#X obj 261 248 route -interrupt;
#X obj 275 -21 t a b;
#X obj 720 740 list prepend;
#X obj 799 717 receive \$0-r-messprep;
#X obj 906 -57 s \$0-r-messprep;
#X obj 823 -211 t b f f f b f b b f b f b;
#X connect 0 0 54 0;
#X connect 1 1 94 0;
#X connect 2 0 3 0;
#X connect 3 0 88 0;
#X connect 5 0 1 0;
#X connect 6 0 16 0;
#X connect 7 0 14 0;
#X connect 9 1 12 2;
#X connect 10 0 78 0;
#X connect 11 0 63 0;
#X connect 12 0 11 0;
#X connect 13 0 83 0;
#X connect 15 0 14 0;
#X connect 16 0 28 0;
#X connect 16 1 17 0;
#X connect 17 0 29 0;
#X connect 18 0 101 0;
#X connect 25 0 67 0;
#X connect 26 0 72 0;
#X connect 26 1 33 0;
#X connect 27 0 14 0;
#X connect 28 0 30 0;
#X connect 29 0 30 0;
#X connect 30 0 7 1;
#X connect 30 1 27 1;
#X connect 30 2 81 2;
#X connect 31 0 11 1;
#X connect 31 1 9 0;
#X connect 31 2 18 1;
#X connect 31 3 81 1;
#X connect 32 0 14 0;
#X connect 33 0 32 0;
#X connect 33 0 88 0;
#X connect 34 0 26 1;
#X connect 35 0 36 1;
#X connect 36 0 15 0;
#X connect 37 0 38 0;
#X connect 38 0 18 0;
#X connect 39 0 68 0;
#X connect 41 0 40 0;
#X connect 43 0 89 0;
#X connect 45 0 39 1;
#X connect 54 0 26 0;
#X connect 54 1 55 0;
#X connect 55 0 34 0;
#X connect 57 0 60 0;
#X connect 58 0 25 1;
#X connect 60 0 58 0;
#X connect 61 0 5 0;
#X connect 61 1 62 0;
#X connect 62 0 1 1;
#X connect 63 0 7 0;
#X connect 64 0 66 0;
#X connect 64 1 66 0;
#X connect 64 2 65 0;
#X connect 65 0 63 1;
#X connect 66 0 63 1;
#X connect 67 0 4 0;
#X connect 67 1 5 1;
#X connect 67 2 3 1;
#X connect 68 0 37 0;
#X connect 69 0 68 1;
#X connect 71 0 89 0;
#X connect 71 1 90 0;
#X connect 72 0 71 0;
#X connect 72 1 61 0;
#X connect 72 2 42 0;
#X connect 72 3 41 0;
#X connect 72 4 104 0;
#X connect 73 0 64 0;
#X connect 74 0 12 1;
#X connect 75 0 74 1;
#X connect 76 0 77 0;
#X connect 76 0 95 0;
#X connect 78 0 99 0;
#X connect 78 1 99 0;
#X connect 78 2 97 0;
#X connect 79 0 12 0;
#X connect 80 0 79 1;
#X connect 81 0 14 0;
#X connect 83 0 31 0;
#X connect 83 1 9 1;
#X connect 83 1 11 1;
#X connect 85 0 39 0;
#X connect 86 0 85 1;
#X connect 88 0 3 1;
#X connect 88 1 67 0;
#X connect 88 2 13 0;
#X connect 88 3 12 2;
#X connect 88 4 61 1;
#X connect 89 0 36 0;
#X connect 89 1 25 0;
#X connect 90 0 8 0;
#X connect 90 1 67 0;
#X connect 90 2 91 0;
#X connect 91 0 12 1;
#X connect 92 0 91 1;
#X connect 93 0 10 0;
#X connect 94 0 93 0;
#X connect 96 0 98 0;
#X connect 96 1 81 0;
#X connect 97 0 98 0;
#X connect 97 1 81 0;
#X connect 98 0 74 0;
#X connect 98 1 85 0;
#X connect 98 2 79 0;
#X connect 99 0 100 0;
#X connect 99 1 96 0;
#X connect 100 0 42 0;
#X connect 100 1 41 0;
#X connect 101 0 27 0;
#X connect 102 0 101 1;
#X connect 104 0 50 0;
#X connect 104 1 49 0;
#X connect 104 2 48 0;
#X connect 104 3 47 0;
#X connect 104 4 46 0;
#X connect 104 5 59 0;
#X connect 104 6 103 0;
#X connect 104 7 70 0;
#X connect 104 8 82 0;
#X connect 104 9 84 0;
#X connect 104 10 87 0;
#X connect 104 11 76 0;
#X restore 552 312 pd record;
#N canvas 661 190 450 347 seed 0;
#X obj 224 60 time;
#X obj 240 90 *;
#X obj 240 117 *;
#X obj 270 91 receive \$0nnumber;
#X msg 196 96 10;
#X obj 196 118 until;
#X obj 196 140 f;
#X obj 196 162 + 1;
#X obj 196 184 t f f f;
#X obj 196 277 send;
#X obj 219 206 makefilename \$0seed%d;
#X obj 196 233 *;
#X msg 196 255 seed \$1;
#X obj 224 37 receive \$0-iemarg1;
#X connect 0 1 4 0;
#X connect 0 2 1 0;
#X connect 0 3 1 1;
#X connect 1 0 2 0;
#X connect 2 0 11 1;
#X connect 3 0 2 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 8 1 10 0;
#X connect 8 2 6 1;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 13 0 0 0;
#X restore 551 102 pd seed;
#N canvas 67 87 1299 681 fetch 0;
#X obj 41 119 iemguts/oreceive \$0nnop;
#X obj 41 141 t b s;
#X obj 41 163 f \$0;
#X obj 41 186 send;
#X text 33 4 fetch other context's \$0;
#X obj 301 63 receive \$0-fetchno2;
#X obj 301 85 unpack f s;
#X obj 301 107 text get \$0-save;
#X obj 301 174 send;
#X text 378 84 fetch internal setting;
#X obj 301 129 list trim;
#X obj 301 151 route %^;
#X obj 512 166 unpack s s;
#X obj 569 190 makefilename \$0-%s-fetch;
#X obj 512 144 receive \$0-mfetch;
#X obj 512 209 send;
#X text 631 165 menu fetch;
#X obj -143 119 iemguts/oreceive \$0nnop;
#X msg 41 93 symbol \$2-\$1-dfetch;
#X msg -143 96 symbol \$2-c\$1-dfetch;
#X obj 41 69 receive \$0-parentn;
#X msg -116 11 symbol c\$1-dfetch;
#X obj -116 34 iemguts/oreceive \$0-nnop;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 1;
#X connect 2 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 8 1;
#X connect 7 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 1 8 0;
#X connect 12 0 15 0;
#X connect 12 1 13 0;
#X connect 13 0 15 1;
#X connect 14 0 12 0;
#X connect 17 0 1 0;
#X connect 18 0 0 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 20 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 1 0;
#X restore 552 259 pd fetch;
#N canvas 119 89 793 679 overlay 0;
#X obj 290 250 list;
#X obj 290 297 moses;
#X obj 271 348 ctxfiles/sp01;
#X obj 290 321 t b;
#X obj 317 321 t b f;
#X obj 216 884 list append;
#X obj 216 672 t l l;
#X obj 340 474 t a a;
#X obj 340 523 list prepend;
#X obj 367 497 list length;
#X obj 243 695 list length;
#X obj 216 720 list prepend;
#X obj 216 649 list prepend #del;
#X obj 226 202 route #N;
#X obj 226 180 list trim;
#X obj 271 370 route #X;
#X obj 486 369 t b f;
#X obj 486 391 f 11;
#X obj 486 436 f;
#X obj 486 413 until;
#X obj 486 459 t f f f;
#X obj 525 481 + 1;
#X obj 486 524 tabwrite \$0-l1s;
#X obj 453 482 t b f;
#X obj 453 504 t f;
#X obj 159 580 array get \$0-l1s;
#X obj 159 603 list-abs/list-filter;
#X obj 159 626 route bang;
#X obj 279 745 else/fromany;
#X obj 279 861 else/toany;
#X obj 327 815 route 92;
#X obj 279 767 t b a;
#X obj 271 226 t a a a;
#X obj 418 106 list split 4;
#X obj 452 131 list trim;
#X obj 452 225 route inlet~ outlet~;
#X msg 452 250 i;
#X msg 510 250 o;
#X text 536 259 compile list of inlets~ and outlets~;
#X text 526 437 compile 0-11 list corresponding to pd file list;
#X text 72 276 compare saved overlay to template;
#X text 56 557 compile new items;
#X text 170 802 remove backslashes;
#X obj 216 918 s \$0-olist;
#X msg 164 108 1;
#X obj 151 37 spigot 1;
#X msg 151 84 clear;
#X msg 247 132 read ctxfiles/tmp/\$1-overlay.pd;
#X obj 151 14 receive \$0-overlay-save;
#X obj 247 108 f \$0;
#X text 16 116 read saved overlay;
#X obj 151 60 t b b b b b b b b f f;
#X obj 327 790 cyclone/iter;
#X obj 290 273 text search #%^dif^%;
#X obj 279 838 ctxfiles/collect;
#X obj 178 557 ctxfiles/collect;
#X obj 417 274 ctxfiles/collect;
#X text -19 604 compile list of deleted items;
#X obj 288 603 > 2;
#X obj 453 460 - 1;
#X obj 271 392 route coords;
#X obj 541 602 cyclone/substitute 44 191;
#X obj 541 578 list fromsymbol;
#X obj 541 624 list tosymbol;
#X obj 541 646 s2l;
#X obj 541 555 l2s;
#X obj 452 153 route ctx;
#X obj 474 338 s \$0-:io;
#X obj 474 315 l2s;
#X obj 489 295 receive \$0-l2sb;
#X obj 417 295 route bang;
#X obj 452 174 t a b;
#X obj 340 416 demux;
#X obj 479 196 f 1;
#X obj 503 174 t b;
#X obj 503 196 t f;
#X obj 367 439 list split 5;
#X text 91 441 get rid of extra ctx arguments from presets;
#X obj 247 156 text define \$0-ovfile;
#X obj 99 156 text sequence \$0-ovfile;
#X msg 99 133 line 0 \, bang;
#X obj 366 610 array define \$0-l1s 15;
#X connect 0 0 53 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 2 0 15 0;
#X connect 3 0 2 2;
#X connect 4 0 2 1;
#X connect 4 1 59 0;
#X connect 5 0 43 0;
#X connect 6 0 11 0;
#X connect 6 1 10 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 65 0;
#X connect 9 0 8 1;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 6 0;
#X connect 13 1 32 0;
#X connect 14 0 13 0;
#X connect 15 0 60 0;
#X connect 16 0 17 0;
#X connect 16 1 18 1;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 0 22 0;
#X connect 20 1 22 1;
#X connect 20 2 21 0;
#X connect 21 0 18 1;
#X connect 23 0 24 0;
#X connect 23 1 22 1;
#X connect 24 0 22 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 58 0;
#X connect 27 0 5 0;
#X connect 27 1 12 0;
#X connect 28 0 31 0;
#X connect 29 0 5 1;
#X connect 30 1 54 1;
#X connect 31 0 54 0;
#X connect 31 1 52 0;
#X connect 32 0 2 0;
#X connect 32 1 0 0;
#X connect 32 2 33 0;
#X connect 33 1 34 0;
#X connect 34 0 66 0;
#X connect 35 0 36 0;
#X connect 35 1 37 0;
#X connect 36 0 56 1;
#X connect 37 0 56 1;
#X connect 44 0 45 1;
#X connect 45 0 51 0;
#X connect 46 0 78 0;
#X connect 47 0 78 0;
#X connect 48 0 45 0;
#X connect 49 0 47 0;
#X connect 51 0 46 0;
#X connect 51 1 44 0;
#X connect 51 2 25 0;
#X connect 51 3 55 0;
#X connect 51 4 56 0;
#X connect 51 5 80 0;
#X connect 51 6 49 0;
#X connect 51 7 16 0;
#X connect 51 8 18 1;
#X connect 51 9 45 1;
#X connect 52 0 30 0;
#X connect 53 0 1 0;
#X connect 54 0 29 0;
#X connect 55 0 28 0;
#X connect 56 0 70 0;
#X connect 58 0 26 1;
#X connect 59 0 23 0;
#X connect 60 1 72 0;
#X connect 61 0 63 0;
#X connect 61 1 63 0;
#X connect 62 0 61 0;
#X connect 63 0 64 0;
#X connect 64 0 55 1;
#X connect 65 0 62 0;
#X connect 66 0 71 0;
#X connect 66 1 74 0;
#X connect 68 0 67 0;
#X connect 69 0 68 1;
#X connect 70 0 67 0;
#X connect 70 1 68 0;
#X connect 71 0 35 0;
#X connect 71 1 73 0;
#X connect 72 0 7 0;
#X connect 72 1 76 0;
#X connect 73 0 72 1;
#X connect 74 0 75 0;
#X connect 75 0 72 1;
#X connect 76 0 7 0;
#X connect 76 2 7 0;
#X connect 79 0 14 0;
#X connect 80 0 79 0;
#X restore 549 624 pd overlay read;
#N canvas 692 172 454 596 overlay 0;
#X msg 120 247 menu-open;
#X obj 87 47 receive \$0-hacklist;
#X obj 258 506 s \$0-overlay;
#X obj 138 91 s \$0-opened;
#X obj 104 146 list split 1;
#X obj 138 193 list split;
#X obj 201 236 list trim;
#X obj 138 169 t a a;
#X obj 201 213 list split;
#X obj 104 121 t a f f;
#X obj 201 258 route #del;
#X obj 201 280 cyclone/iter;
#X obj 240 346 text get #%^dif^%;
#X obj 240 368 list trim;
#X obj 240 390 route #X;
#X obj 240 412 route connect;
#X obj 240 434 list prepend disconnect;
#X obj 240 456 list trim;
#X text 177 168 split list at split points;
#X text 300 390 disconnect;
#X msg 87 272 vis 0 \, loadbang;
#X text 273 264 create;
#X obj 240 325 + 1;
#X obj 87 69 t b a b b;
#X obj 201 303 moses 3;
#X connect 0 0 2 0;
#X connect 1 0 23 0;
#X connect 4 1 7 0;
#X connect 5 1 9 0;
#X connect 6 0 10 0;
#X connect 7 0 5 0;
#X connect 7 1 8 0;
#X connect 8 0 6 0;
#X connect 9 0 4 0;
#X connect 9 1 5 1;
#X connect 9 2 8 1;
#X connect 10 0 11 0;
#X connect 10 1 2 0;
#X connect 11 0 24 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 2 0;
#X connect 20 0 2 0;
#X connect 22 0 12 0;
#X connect 23 0 20 0;
#X connect 23 1 9 0;
#X connect 23 2 0 0;
#X connect 23 3 3 0;
#X connect 24 1 22 0;
#X restore 549 651 pd overlay write;
#N canvas 424 138 501 604 creation 0;
#X obj 173 85 text search *(presets@#;
#X obj 310 319 receive \$0-savestart;
#X obj 173 110 text get *(presets@#;
#X obj 173 312 list split 1;
#X obj 190 -11 receive \$0-prelist2;
#X obj 173 -37 receive \$0-prelist;
#X obj 254 398 s \$0-roff;
#X obj 222 358 s \$0-roff2;
#X obj 238 421 list trim;
#X obj 238 443 route :H;
#X obj 238 465 t a f;
#X obj 238 527 list split;
#X obj 217 572 s \$0-undone2;
#X obj 217 550 list;
#X obj 146 527 receive \$0-lb1;
#X obj 266 550 s \$0-hacklist;
#X obj 295 502 - 1;
#X obj 283 465 demux;
#X obj 207 335 t b b a b b;
#X obj 173 13 mux 0 1 2;
#X msg 270 379 2;
#X obj 207 379 f 2;
#X obj 173 59 list split 1;
#X obj 173 133 t b a;
#X obj 173 266 ctxfiles/collect;
#X obj 200 201 list;
#X obj 200 223 route bang;
#X obj 200 245 symbol 6^y7uh;
#X obj 173 289 cyclone/substitute 6^y7uh bang;
#X obj 200 179 sel $$;
#X obj 200 157 list-abs/list-drip;
#X obj 349 102 ctxfiles/share ctxfiles/shareables;
#X obj 173 36 t a b;
#X connect 0 0 2 0;
#X connect 1 0 21 0;
#X connect 1 0 17 1;
#X connect 2 0 23 0;
#X connect 3 1 18 0;
#X connect 4 0 19 1;
#X connect 5 0 19 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 17 0;
#X connect 10 0 11 0;
#X connect 10 1 16 0;
#X connect 11 0 13 1;
#X connect 11 1 15 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 16 0 11 1;
#X connect 17 0 13 1;
#X connect 17 1 12 0;
#X connect 18 0 21 0;
#X connect 18 1 7 0;
#X connect 18 2 8 0;
#X connect 18 3 6 0;
#X connect 18 4 20 0;
#X connect 19 0 32 0;
#X connect 20 0 19 3;
#X connect 21 0 19 3;
#X connect 22 0 0 0;
#X connect 22 1 25 1;
#X connect 23 0 24 0;
#X connect 23 1 30 0;
#X connect 24 0 28 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 24 1;
#X connect 27 0 24 1;
#X connect 28 0 3 0;
#X connect 28 1 3 0;
#X connect 29 0 25 0;
#X connect 29 1 24 1;
#X connect 30 0 29 0;
#X connect 32 0 22 0;
#X connect 32 1 31 0;
#X restore 551 128 pd creation preset;
#N canvas 67 87 1299 681 canvas 0;
#X msg -143 363 delete \$1;
#X msg 470 88 vis_size \$1 \$2;
#X obj 416 426 s \$0-pixsize;
#X obj 1057 505 t a a;
#X obj 1084 572 s \$0-cursesize;
#X msg 1057 527 vis_size \$2 \$1;
#X obj 328 351 pack 62 54;
#X obj 470 43 pack 48 35;
#X text -99 131 Outlet delete;
#X text 31 285 outlet create;
#X text 754 167 move other \, maincanvas \, cnvsize \, cnvsize \, toggle-delete
\, toggle-create \, customdown \, customup;
#X obj 347 273 unpack f f;
#X obj 347 297 - 2;
#X obj 347 322 pack f f;
#X obj 404 297 - 6;
#X obj 1057 357 demux;
#X obj 784 402 unpack f f;
#X obj 864 402 unpack f f;
#X text 865 229 1: \$1;
#X text 865 241 2: start pos;
#X text 865 254 3: toggle create offset;
#X text 865 266 4: toggle delete offset;
#X text 866 278 5: canvas size offset;
#X text 866 288 6: opposite move offset;
#X text 866 300 7: object number;
#X text 865 324 9: cursorsize offset;
#X text 865 312 8: cnvsize offset;
#X obj 411 250 t b f;
#X msg 864 425 100 \$1;
#X msg 784 428 \$1 101;
#X obj 910 133 s \$0-ybc;
#X obj 910 9 - 1;
#X obj 937 57 * 20;
#X obj 1057 381 unpack f f;
#X obj 1074 404 unpack f f;
#X obj 453 336 - 1;
#X obj 453 358 * -2;
#X obj 320 251 t b a a;
#X obj 298 593 list prepend 62 54;
#X obj 823 131 s \$0-yboxes;
#X obj 338 568 s \$0-xboxes;
#X obj 453 380 t b b b b f f f;
#X obj 470 113 s \$0-cposr;
#X obj 781 657 s \$0-overlay;
#X obj 650 198 route 0;
#X msg 874 596 1 1 0;
#X obj 567 215 route 0;
#X msg 258 568 1;
#X msg -45 303 menu-open;
#X msg -64 390 vis 0;
#X obj 1 459 spigot;
#X msg 7 422 1;
#X obj 328 373 spigot;
#X obj -1 384 t b b;
#X obj 284 544 f 2;
#X obj 998 57 - 1;
#X obj 910 79 pack f f \$0 f;
#X obj 380 84 - 1;
#X obj 266 9 t f f f;
#X obj 44 434 t f;
#X msg -27 420 1;
#X obj 339 515 pack 61 2 12;
#X obj 518 481 pack 36 2 12;
#X obj 514 -8 t f f;
#X obj 561 -13 t b f b f;
#X obj 639 140 + 1;
#X msg 640 229 1 0 1;
#X text 858 336 10: switch;
#X text 858 348 11: my xy;
#X text 858 360 12: your xy;
#X text 858 372 13: box offset;
#X text 942 341 14: offset size;
#X obj 761 566 pack 47 36 2;
#X obj 907 676 s \$0-cursorsz;
#X obj 1057 550 s \$0-block;
#X msg 1057 461 2 \$1;
#X msg 1131 461 \$1 2;
#X obj -16 169 t b f b b;
#X obj 910 32 t f f f;
#X obj 907 649 list split 2;
#X obj 761 588 t a a;
#X obj 328 397 t b b a a b a a;
#X obj 428 402 list;
#X obj 1057 433 - 2;
#X obj 1131 431 - 2;
#X obj -27 -178 receive \$0-xsize-2;
#X obj 93 -177 receive \$0-xsize-3;
#X obj 225 -172 receive \$0-xzoom;
#X obj 505 -182 receive \$0-ysize-2;
#X obj 498 -160 receive \$0-ysize-3;
#X obj 869 -140 receive \$0-yzoom;
#X obj 320 215 receive \$0-cnvmorph;
#X obj 1089 333 receive \$0-xym;
#X obj 599 453 receive \$0-yemod;
#X obj 420 486 receive \$0-xemod;
#X obj 262 461 receive \$0-graphinit;
#X obj 453 312 receive \$0-wam;
#X obj -1 362 receive \$0-lb0;
#X text 544 709 xfrom yfrom xto yto xsize ysize GOP xmargin ymargin
;
#X text 436 731 xunits yunits GOP xfrom yfrom xto yto xsize ysize xmargin
ymargin, f 66;
#X msg 339 542 coords 0 -1 1 1 \$1 \$3 \$2 100 98;
#X msg 568 511 coords 0 -1 1 1 \$3 \$1 \$2 100 98;
#X msg 781 622 coords 0 -1 1 1 \$1 \$2 \$3 0 0;
#X obj 93 -154 t b b f b b;
#X msg 634 590 vis 0;
#X obj -27 -154 t b b f b b;
#X obj 225 -148 t b f b b;
#X msg 690 590 menu-open;
#X obj 498 -136 t b b f b b;
#X obj 869 -118 t b f b b;
#X obj 649 622 s \$0-overlay;
#X obj 920 -81 spigot;
#X obj -27 -119 spigot;
#X msg 317 638 coords 0 -1 1 1 \$1 \$2 \$3 100 98;
#X obj 298 615 t b a b;
#X msg 337 665 menu-open;
#X msg 298 665 vis 0;
#X obj 362 688 receive \$0-morphon1;
#X obj 317 710 spigot 1;
#X obj 139 507 iemguts/sendcanvas 2;
#X obj 784 455 iemguts/canvasobjectposition 2 2;
#X msg 795 -46 obj 100 \$1 tgl \$3 0 \$4\$5-y\$2 \$4\$5-y\$2r empty
3 7 0 8 0 0 0 0 \$2;
#X msg 443 274 obj \$1 98 tgl \$3 0 \$4\$5-x\$2 \$4\$5-x\$2r empty
3 7 0 8 0 0 0 0 \$2;
#X obj -16 121 receive \$0-graphicdel;
#X obj 113 200 receive \$0-conmed;
#X obj 145 244 t f f f;
#X obj 145 266 + 1;
#X obj 174 266 + 2;
#X obj 145 288 pack f f f;
#X msg 145 345 connect \$1 0 \$3 0 \, connect \$3 0 \$2 0;
#X obj 283 -37 t b b f b b f f f;
#X msg 243 200 1;
#X obj 113 222 demux;
#X obj -114 147 t f;
#X obj -144 261 t f b f f f b;
#X obj -126 51 + 1;
#X obj -133 181 receive \$0-poww;
#X obj -132 203 t b l b;
#X obj -61 229 cyclone/iter;
#X obj 113 139 t b f;
#X obj 140 161 makefilename \$0-%dconme;
#X obj 113 181 send;
#X obj 98 243 f;
#X obj -126 74 t b f b;
#X obj 98 265 sel 0;
#X msg 910 101 obj 200 \$2 ctxfiles/cy \$1 \$3 \$4 \$2;
#X obj 443 65 t f a;
#X obj 506 139 s \$0-dwidth;
#X obj 396 114 t f;
#X obj 39 -89 ctxfiles/canvasmove \$0 5 89 2 2 89 18 -12 -12 0 x y
12 5 F;
#X obj 543 -92 ctxfiles/canvasmove \$0 4 74 1 6 89 17 -13 -13 -1 y
x -6 3 G;
#X obj 863 683 unpack;
#X obj 863 706 v \$0-xszz;
#X obj 923 706 v \$0-yszz;
#X obj 1021 -137 receive \$0-imemb;
#X obj 599 557 spigot;
#X obj 654 555 spigot;
#X obj 669 531 receive \$1-savestart;
#X obj 563 327 receive \$0-backsplash--delete;
#X obj 266 -15 * 2;
#X obj -61 251 pipe 10;
#X obj 387 -6 receive \$0-ysymsize;
#X msg 285 110 obj \$1 \$2 inlet;
#X obj 305 137 pack f f \$0 f f;
#X msg 305 164 obj \$1 0 ctxfiles/cx \$2 \$3 \$4 \$5;
#X obj 387 17 + 1;
#X obj 266 32 pack;
#X obj 285 90 pack;
#X obj 387 43 * -1;
#X msg 266 59 obj \$1 \$2 outlet;
#X connect 0 0 119 0;
#X connect 1 0 42 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 5 0 74 0;
#X connect 6 0 52 0;
#X connect 7 0 146 0;
#X connect 11 0 12 0;
#X connect 11 1 14 0;
#X connect 12 0 13 0;
#X connect 13 0 146 0;
#X connect 14 0 13 1;
#X connect 15 0 34 0;
#X connect 15 1 33 0;
#X connect 16 0 29 0;
#X connect 16 1 120 1;
#X connect 17 0 28 0;
#X connect 17 1 120 1;
#X connect 27 0 6 0;
#X connect 27 1 6 1;
#X connect 28 0 120 0;
#X connect 29 0 120 0;
#X connect 31 0 78 0;
#X connect 32 0 56 1;
#X connect 33 0 83 0;
#X connect 34 1 84 0;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 54 0;
#X connect 37 1 38 1;
#X connect 37 2 11 0;
#X connect 38 0 114 0;
#X connect 41 1 61 0;
#X connect 41 2 62 0;
#X connect 41 3 72 0;
#X connect 41 4 61 1;
#X connect 41 5 62 1;
#X connect 41 6 72 2;
#X connect 44 0 66 0;
#X connect 44 0 45 0;
#X connect 44 1 62 0;
#X connect 44 1 72 1;
#X connect 45 0 102 0;
#X connect 46 0 45 0;
#X connect 46 1 72 0;
#X connect 47 0 38 0;
#X connect 48 0 50 0;
#X connect 49 0 50 0;
#X connect 50 0 119 0;
#X connect 51 0 50 1;
#X connect 51 0 52 1;
#X connect 52 0 81 0;
#X connect 53 0 6 0;
#X connect 53 1 51 0;
#X connect 54 0 38 0;
#X connect 55 0 56 3;
#X connect 56 0 145 0;
#X connect 57 0 163 3;
#X connect 58 0 166 0;
#X connect 58 1 167 0;
#X connect 58 2 163 0;
#X connect 59 0 50 1;
#X connect 60 0 50 1;
#X connect 61 0 100 0;
#X connect 62 0 101 0;
#X connect 63 0 7 0;
#X connect 63 1 46 0;
#X connect 64 0 7 0;
#X connect 64 1 7 1;
#X connect 64 2 72 0;
#X connect 64 3 65 0;
#X connect 65 0 44 0;
#X connect 66 0 101 0;
#X connect 72 0 80 0;
#X connect 75 0 3 0;
#X connect 76 0 3 0;
#X connect 77 0 49 0;
#X connect 77 1 38 0;
#X connect 77 2 47 0;
#X connect 77 3 48 0;
#X connect 78 0 56 0;
#X connect 78 1 32 0;
#X connect 78 2 55 0;
#X connect 79 0 73 0;
#X connect 79 0 15 0;
#X connect 79 0 151 0;
#X connect 80 0 102 0;
#X connect 80 1 79 0;
#X connect 81 0 155 0;
#X connect 81 1 54 0;
#X connect 81 2 38 1;
#X connect 81 4 156 0;
#X connect 81 5 2 0;
#X connect 81 6 82 1;
#X connect 82 0 2 0;
#X connect 83 0 75 0;
#X connect 84 0 76 0;
#X connect 85 0 105 0;
#X connect 86 0 103 0;
#X connect 87 0 106 0;
#X connect 88 0 108 0;
#X connect 89 0 108 0;
#X connect 90 0 109 0;
#X connect 91 0 37 0;
#X connect 92 0 15 1;
#X connect 93 0 62 2;
#X connect 94 0 61 2;
#X connect 95 0 54 1;
#X connect 96 0 35 0;
#X connect 97 0 53 0;
#X connect 100 0 40 0;
#X connect 101 0 39 0;
#X connect 102 0 43 0;
#X connect 103 0 112 0;
#X connect 103 2 149 0;
#X connect 103 3 60 0;
#X connect 103 4 111 0;
#X connect 104 0 110 0;
#X connect 105 0 112 0;
#X connect 105 2 149 0;
#X connect 105 3 60 0;
#X connect 105 4 111 0;
#X connect 106 0 112 0;
#X connect 106 1 149 1;
#X connect 106 2 59 0;
#X connect 106 3 111 0;
#X connect 107 0 110 0;
#X connect 108 0 112 0;
#X connect 108 2 150 0;
#X connect 108 3 60 0;
#X connect 108 4 111 0;
#X connect 109 0 112 0;
#X connect 109 1 150 1;
#X connect 109 2 59 0;
#X connect 109 3 111 0;
#X connect 111 0 107 0;
#X connect 112 0 104 0;
#X connect 113 0 119 0;
#X connect 114 0 116 0;
#X connect 114 1 113 0;
#X connect 114 2 115 0;
#X connect 115 0 118 0;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 119 0;
#X connect 121 0 39 0;
#X connect 122 0 40 0;
#X connect 123 0 77 0;
#X connect 124 0 132 0;
#X connect 125 0 126 0;
#X connect 125 1 127 0;
#X connect 125 2 128 2;
#X connect 126 0 128 0;
#X connect 127 0 128 1;
#X connect 128 0 129 0;
#X connect 129 0 119 0;
#X connect 130 2 139 0;
#X connect 130 3 131 0;
#X connect 130 5 159 0;
#X connect 130 6 163 1;
#X connect 130 7 57 0;
#X connect 131 0 132 1;
#X connect 132 0 142 1;
#X connect 132 1 125 0;
#X connect 133 0 132 1;
#X connect 134 1 49 0;
#X connect 134 2 0 0;
#X connect 134 3 0 0;
#X connect 134 4 0 0;
#X connect 134 5 48 0;
#X connect 135 0 143 0;
#X connect 136 0 137 0;
#X connect 137 0 49 0;
#X connect 137 1 138 0;
#X connect 137 2 48 0;
#X connect 138 0 160 0;
#X connect 139 0 141 0;
#X connect 139 1 140 0;
#X connect 140 0 141 1;
#X connect 142 0 144 0;
#X connect 143 0 142 0;
#X connect 143 1 139 0;
#X connect 143 2 133 0;
#X connect 144 1 134 0;
#X connect 145 0 30 0;
#X connect 146 0 147 0;
#X connect 146 1 1 0;
#X connect 148 0 163 4;
#X connect 149 0 16 0;
#X connect 149 1 6 0;
#X connect 149 2 63 0;
#X connect 149 3 40 0;
#X connect 149 4 122 0;
#X connect 149 4 148 0;
#X connect 149 5 135 0;
#X connect 149 6 130 0;
#X connect 149 7 61 0;
#X connect 150 0 17 0;
#X connect 150 1 27 0;
#X connect 150 2 64 0;
#X connect 150 3 39 0;
#X connect 150 3 30 0;
#X connect 150 4 121 0;
#X connect 150 6 31 0;
#X connect 151 0 152 0;
#X connect 151 1 153 0;
#X connect 154 0 111 1;
#X connect 154 0 112 1;
#X connect 155 0 110 0;
#X connect 156 0 107 0;
#X connect 157 0 156 1;
#X connect 157 0 155 1;
#X connect 158 0 72 0;
#X connect 158 0 82 0;
#X connect 159 0 58 0;
#X connect 160 0 0 0;
#X connect 161 0 165 0;
#X connect 162 0 119 0;
#X connect 163 0 164 0;
#X connect 164 0 119 0;
#X connect 165 0 166 1;
#X connect 165 0 168 0;
#X connect 166 0 169 0;
#X connect 167 0 162 0;
#X connect 168 0 167 1;
#X connect 169 0 119 0;
#X restore 68 459 pd canvas control;
#N canvas 148 226 1139 518 stop 0;
#X msg 340 337 stop;
#X obj 340 360 s \$0-sl-stop;
#X obj 340 308 t b b;
#X obj 374 337 s \$0-stop;
#X obj 788 270 receive \$0-end;
#X obj 788 314 ctxfiles/sp01;
#X obj 869 227 receive \$0-imon;
#X obj 836 248 spigot;
#X obj 788 336 t b b;
#X obj 788 358 s \$0-stop*1;
#X obj 836 336 s \$0-stop*0;
#X obj 875 314 s \$0-stop*0.1;
#X obj 388 47 receive \$0-prestop;
#X obj 388 69 route bang - *;
#X obj 600 254 send;
#X obj 503 323 cyclone/iter;
#X obj 415 244 route bang *;
#X obj 530 368 route float;
#X obj 530 390 makefilename c%d;
#X obj 530 413 makefilename %s-dddEEE&;
#X obj 484 301 t b a b;
#X obj 503 345 t b a;
#X obj 503 438 send;
#X obj 541 438 receive \$0-stbc;
#X obj 484 462 ctxfiles/sp01;
#X text 612 368 query [sr0] and [sr1];
#X obj 449 268 t a b;
#X obj 484 268 t a b;
#X obj 484 520 demux;
#X obj 476 492 f 1;
#X obj 511 492 t f;
#X obj 585 275 s \$0-stp*1;
#X obj 630 97 t f;
#X obj 630 121 s \$0-stp*0;
#X obj 645 76 s \$0-roff;
#X obj 570 54 t b b b a b b;
#X obj 570 298 s \$0-roff2;
#X obj 615 143 route float;
#X obj 615 165 makefilename c%d;
#X obj 570 31 cyclone/iter;
#X obj 499 117 t a b;
#X obj 570 9 t a b;
#X obj 600 232 list trim;
#X obj 600 210 list append;
#X obj 600 187 symbol stop;
#X obj 526 140 symbol *;
#X obj 442 93 route bang;
#X obj 836 292 t b b f;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 2 1 3 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 1;
#X connect 7 0 47 0;
#X connect 8 0 9 0;
#X connect 8 1 5 1;
#X connect 12 0 13 0;
#X connect 13 0 2 0;
#X connect 13 1 16 0;
#X connect 13 2 46 0;
#X connect 13 3 41 0;
#X connect 15 0 21 0;
#X connect 16 0 2 0;
#X connect 16 1 26 0;
#X connect 16 2 27 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 18 0 19 0;
#X connect 19 0 22 1;
#X connect 20 0 24 0;
#X connect 20 1 15 0;
#X connect 20 2 24 2;
#X connect 21 0 22 0;
#X connect 21 1 17 0;
#X connect 23 0 24 1;
#X connect 24 0 28 0;
#X connect 26 0 20 0;
#X connect 26 1 29 0;
#X connect 27 0 20 0;
#X connect 27 1 30 0;
#X connect 28 0 2 0;
#X connect 28 1 7 0;
#X connect 29 0 28 1;
#X connect 30 0 28 1;
#X connect 32 0 33 0;
#X connect 35 0 36 0;
#X connect 35 1 31 0;
#X connect 35 2 44 0;
#X connect 35 3 37 0;
#X connect 35 4 32 0;
#X connect 35 5 34 0;
#X connect 37 0 38 0;
#X connect 37 1 14 1;
#X connect 38 0 14 1;
#X connect 39 0 35 0;
#X connect 40 0 39 0;
#X connect 40 1 45 0;
#X connect 41 0 39 0;
#X connect 41 1 43 1;
#X connect 42 0 14 0;
#X connect 43 0 42 0;
#X connect 44 0 43 0;
#X connect 45 0 43 1;
#X connect 46 0 7 0;
#X connect 46 1 40 0;
#X connect 47 0 10 0;
#X connect 47 1 5 2;
#X connect 47 2 11 0;
#X restore 68 349 pd stop;
#N canvas 481 227 554 541 print 0;
#X obj 181 287 list prepend;
#X obj 250 234 receive \$0nnumber;
#X obj 219 362 receive \$0nnumber;
#X obj 219 384 makefilename %d-und-l;
#X obj 196 406 send;
#X obj 16 406 send;
#X obj 39 384 makefilename %d-und-n;
#X obj 16 359 receive \$0-und-n;
#X obj 4 431 s all-und-n;
#X obj 184 430 s all-und-l;
#X obj 196 316 receive \$0-und-l;
#X obj 196 339 list prepend;
#X obj 185 31 makefilename \$0-%s-fetch;
#X obj 158 54 symbol \$0-printyou;
#X obj 158 76 send;
#X obj 181 137 receive \$0-printyou;
#X obj 158 7 t b s;
#X text 369 393 <-- delete?;
#X obj 158 -19 cyclone/iter;
#X obj 158 -43 receive \$0-printthese;
#X obj 358 82 spigot;
#X obj 358 126 list prepend;
#X obj 427 81 receive \$0nnumber;
#X obj 358 170 print -n;
#X obj 427 103 makefilename c%d:;
#X obj 358 35 receive \$0-toprint;
#X obj 391 58 receive \$0-savestart;
#X obj 358 148 list trim;
#X obj 6 83 receive \$0-loopme;
#X obj 6 105 t b b;
#X obj 6 150 v \$0nnumber;
#X obj 6 172 pack;
#X obj 6 216 s \$0-notsafe;
#X obj 33 128 v \$0-xsize-2;
#X msg 6 194 :x \$2 :i \$2 c\$1;
#X text 34 54 VV loop function;
#X msg 250 256 list Context \$1:;
#X obj 181 185 demux;
#X obj 208 161 receive \$0-stealprint;
#X obj 208 208 s \$0-stoleprint;
#X connect 0 0 27 0;
#X connect 1 0 36 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 4 0;
#X connect 11 0 9 0;
#X connect 12 0 14 1;
#X connect 13 0 14 0;
#X connect 15 0 37 0;
#X connect 16 0 13 0;
#X connect 16 1 12 0;
#X connect 18 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 27 0;
#X connect 22 0 24 0;
#X connect 24 0 21 1;
#X connect 25 0 20 0;
#X connect 26 0 20 1;
#X connect 27 0 23 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 1 33 0;
#X connect 30 0 31 0;
#X connect 31 0 34 0;
#X connect 33 0 31 1;
#X connect 34 0 32 0;
#X connect 36 0 0 1;
#X connect 37 0 0 0;
#X connect 37 1 39 0;
#X connect 38 0 37 1;
#X restore 551 233 pd print;
#N canvas 559 147 580 583 sendto 0;
#X obj 190 226 demux 0 1 2 3;
#X obj 265 282 send;
#X obj 240 485 list;
#X obj 240 364 until;
#X obj 240 387 t b b;
#X obj 267 409 f;
#X obj 267 431 + 1;
#X obj 240 318 t b a b;
#X obj 240 530 send;
#X obj 279 387 t f;
#X obj 240 507 list trim;
#X obj 94 38 list trim;
#X obj 267 455 makefilename \$0xl%d;
#X obj 94 15 receive \$0-everythingout;
#X obj 265 180 receive \$0-setto;
#X obj 121 64 receive \$0-sett1;
#X obj 94 110 demux;
#X msg 121 86 1;
#X obj 148 86 t f;
#X obj 190 185 t a b;
#X text 190 82 send to settings only when menu button is pressed and
reset immediately;
#X obj 328 245 t b s;
#X msg 328 267 3;
#X text 166 253 to all;
#X text 297 282 to custom;
#X text 278 530 to outlets;
#X obj 240 342 v \$0-xsize-2;
#X obj 328 223 symbol;
#X obj 121 133 demux;
#X obj 148 110 receive \$0-ctrl;
#X obj 121 157 relay :se :g;
#X text 203 154 except :se and :g messages;
#X obj 265 202 route float bang;
#X obj 215 252 s context;
#X text 83 289 to me;
#X obj 121 288 outlet;
#X obj 33 408 send;
#X obj 54 337 receive \$0-parent;
#X obj 54 359 makefilename %d-context;
#X connect 0 0 35 0;
#X connect 0 1 33 0;
#X connect 0 1 36 0;
#X connect 0 2 7 0;
#X connect 0 3 1 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 5 1;
#X connect 6 0 12 0;
#X connect 7 0 26 0;
#X connect 7 1 2 1;
#X connect 7 2 9 0;
#X connect 9 0 5 1;
#X connect 10 0 8 0;
#X connect 11 0 16 0;
#X connect 12 0 8 1;
#X connect 13 0 11 0;
#X connect 14 0 32 0;
#X connect 15 0 17 0;
#X connect 16 0 35 0;
#X connect 16 1 28 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 0 0;
#X connect 19 1 18 0;
#X connect 21 0 22 0;
#X connect 21 1 1 1;
#X connect 22 0 0 1;
#X connect 26 0 3 0;
#X connect 27 0 21 0;
#X connect 28 0 30 0;
#X connect 28 1 35 0;
#X connect 29 0 28 1;
#X connect 30 0 35 0;
#X connect 30 1 35 0;
#X connect 30 2 19 0;
#X connect 32 0 0 1;
#X connect 32 2 27 0;
#X connect 37 0 38 0;
#X connect 38 0 36 1;
#X restore 69 189 pd sendto;
#N canvas 425 89 652 679 hold 0;
#X obj 74 114 inlet;
#X obj 259 -45 receive \$0-Und;
#X obj 393 121 unpack f s;
#X obj 328 104 f 1;
#X obj 317 163 t a b;
#X obj 317 195 ctxfiles/sp01;
#X obj 317 217 t b b;
#X msg 410 99 symbol any;
#X obj 262 42 t f b;
#X msg 203 330 symbol any;
#X obj 170 330 list;
#X obj 262 20 receive \$0-undodec;
#X obj 83 406 list trim;
#X obj 101 197 spigot;
#X obj 376 2 t b a b b;
#X obj 312 71 demux;
#X obj 344 354 t f f;
#X obj 74 172 t a a;
#X obj 317 239 ctxfiles/collect;
#X obj 450 193 makefilename :%s;
#X obj 101 222 route :N :NN;
#X obj 135 278 makefilename :%s;
#X obj 135 251 symbol;
#X obj 74 436 s \$0-rules;
#X obj 255 498 cyclone/zl rev;
#X obj 255 521 cyclone/iter;
#X obj 255 544 route symbol;
#X obj 462 589 t s s;
#X obj 462 612 makefilename %.1s;
#X obj 462 635 sel :;
#X obj 462 658 ctxfiles/collect;
#X obj 462 681 cyclone/zl rev;
#X obj 204 475 s \$0-jlab;
#X obj 201 605 ctxfiles/collect;
#X obj 201 628 route bang;
#X obj 201 582 del;
#X obj 427 26 f 1;
#X obj 170 354 ctxfiles/m-store \$0-hbuff;
#X obj 170 402 route 1;
#X obj 317 284 list prepend;
#X obj 386 261 pack f s;
#X obj 317 330 t a b;
#X obj 170 425 list split 1;
#X obj 458 75 t a b;
#X obj 317 307 list append;
#X obj 170 377 cyclone/zl ecils 1;
#X obj 465 284 f 1;
#X obj 74 143 demux 0 1 2;
#X obj 74 350 spigot 1;
#X obj 129 331 f 1;
#X text 504 282 depending on -p \, attach a float on the end which
will set a spigot for the text passing through, f 36;
#X text 518 167 process :N arguments;
#X text 188 201 collect thee message following :N, f 22;
#X text 291 383 set to m-store buffer;
#X text -58 385 comare incoming messages to buffer;
#X text 153 654 send start-stop messages only after a day;
#X obj 255 567 else/routeall stop :ss start :s :st;
#X obj 393 50 route -p;
#X obj 450 144 t s s;
#X obj 421 304 t f;
#X obj 421 327 f;
#X obj 421 350 t f f;
#X text 566 229 s or st switches -p switch;
#X obj 204 451 t a b b a;
#X obj 170 304 t a b b;
#X obj 460 350 ==;
#X obj 477 229 sel s st ss;
#X obj 477 253 t b b;
#X obj 393 75 t a b;
#X obj 259 -22 else/routeall bang 0;
#X connect 0 0 47 0;
#X connect 1 0 69 0;
#X connect 2 0 40 0;
#X connect 2 1 58 0;
#X connect 3 0 47 1;
#X connect 4 0 18 1;
#X connect 4 1 5 2;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 6 1 5 1;
#X connect 7 0 40 1;
#X connect 8 0 15 0;
#X connect 8 1 5 0;
#X connect 9 0 37 0;
#X connect 10 0 37 0;
#X connect 11 0 8 0;
#X connect 12 0 23 0;
#X connect 13 0 20 0;
#X connect 14 0 3 0;
#X connect 14 1 57 0;
#X connect 14 2 7 0;
#X connect 14 3 36 0;
#X connect 15 0 3 1;
#X connect 15 1 3 0;
#X connect 16 0 47 1;
#X connect 16 1 15 1;
#X connect 17 0 48 0;
#X connect 17 1 13 0;
#X connect 18 0 39 0;
#X connect 19 0 40 1;
#X connect 20 1 22 0;
#X connect 20 2 64 0;
#X connect 21 0 64 0;
#X connect 22 0 21 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 56 0;
#X connect 26 1 30 1;
#X connect 27 0 28 0;
#X connect 27 1 30 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 12 0;
#X connect 33 0 34 0;
#X connect 34 1 12 0;
#X connect 35 0 33 0;
#X connect 36 0 15 1;
#X connect 37 0 45 0;
#X connect 37 2 13 1;
#X connect 38 0 42 0;
#X connect 39 0 44 0;
#X connect 40 0 39 1;
#X connect 41 0 37 1;
#X connect 41 1 16 0;
#X connect 42 1 63 0;
#X connect 43 0 2 0;
#X connect 43 1 46 0;
#X connect 44 0 41 0;
#X connect 45 0 38 0;
#X connect 45 1 48 1;
#X connect 46 0 59 0;
#X connect 47 0 17 0;
#X connect 47 1 39 0;
#X connect 47 2 4 0;
#X connect 48 0 23 0;
#X connect 49 0 48 1;
#X connect 56 0 33 1;
#X connect 56 1 33 1;
#X connect 56 2 33 1;
#X connect 56 3 33 1;
#X connect 56 4 33 1;
#X connect 56 5 27 0;
#X connect 57 0 68 0;
#X connect 57 1 43 0;
#X connect 58 0 19 0;
#X connect 58 1 66 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 61 0 44 1;
#X connect 61 1 65 0;
#X connect 63 0 32 0;
#X connect 63 1 30 0;
#X connect 63 2 35 0;
#X connect 63 3 24 0;
#X connect 64 0 10 0;
#X connect 64 1 9 0;
#X connect 64 2 49 0;
#X connect 65 0 60 1;
#X connect 66 0 67 0;
#X connect 66 1 67 0;
#X connect 66 2 67 0;
#X connect 67 0 60 0;
#X connect 67 1 5 2;
#X connect 68 0 2 0;
#X connect 68 1 59 0;
#X connect 69 2 14 0;
#X restore 69 213 pd hold;
#N canvas 366 468 720 299 i'm-embeded 0;
#X obj 269 67 ctxfiles/embeded \$0 4 5 6;
#X msg 458 65 obj 0 100 ctxfiles/c-embed \$1;
#X connect 0 0 1 0;
#X connect 1 0 0 0;
#X restore 548 678 pd i'm-embeded;
#N canvas 67 217 645 389 you're-embeded 0;
#X obj 321 18 receive \$0-ecreate;
#X obj 224 205 s \$0-overlay;
#X msg 224 183 vis 1;
#X obj 224 132 ctxfiles/ou \$0 62 54 3 c x;
#X msg 154 218 1;
#X obj 321 41 receive \$0-asavol;
#X obj 321 85 s \$0-overlay;
#X obj 175 109 receive \$0-aopol;
#X msg 321 63 menusave;
#X obj 106 313 iemguts/sendcanvas;
#X msg 106 292 obj 20 20 ctxfiles/liner \$1;
#X obj 79 249 f \$0;
#X obj 79 228 spigot 1;
#X obj 60 190 t f b b;
#X obj 60 166 receive \$0-opened;
#X obj 463 142 receive \$0-imemb;
#X obj 481 170 sel 1;
#X obj 430 170 spigot;
#X obj 430 116 receive \$0-imon;
#X obj 79 334 s \$0-lineinit;
#X obj 79 271 t b f;
#X obj 154 240 s \$0-:ol;
#X obj 430 259 t f f;
#X obj 430 303 s \$0-myswitch;
#X obj 457 281 s \$0-yourswitch;
#X obj 224 156 t b f;
#X obj 265 183 s \$0-mup;
#X obj 490 234 receive \$0-swittch;
#X obj 490 256 t f f;
#X obj 430 237 demux;
#X obj 43 -19 receive autoclick&&&*;
#X obj 43 25 route;
#X obj 70 3 receive \$0-parent;
#X text -84 3 procress autoclick-->;
#X obj 43 47 t l l b;
#X obj 43 71 ctxfiles/sp01;
#X obj 43 93 list split 2;
#X obj 77 116 list trim;
#X obj 77 138 s \$0-notsafe;
#X obj 471 193 receive \$0-recretime;
#X obj 430 193 sel 0;
#X obj 430 215 del 10;
#X connect 2 0 1 0;
#X connect 3 0 25 0;
#X connect 3 1 35 2;
#X connect 4 0 21 0;
#X connect 5 0 8 0;
#X connect 7 0 25 0;
#X connect 8 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 20 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 13 2 4 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 17 1;
#X connect 16 1 29 0;
#X connect 17 0 40 0;
#X connect 18 0 17 0;
#X connect 20 0 19 0;
#X connect 20 1 10 0;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 25 0 2 0;
#X connect 25 1 26 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 28 1 23 0;
#X connect 29 0 22 0;
#X connect 30 0 31 0;
#X connect 31 0 34 0;
#X connect 32 0 31 1;
#X connect 34 0 35 0;
#X connect 34 1 3 0;
#X connect 34 2 35 1;
#X connect 35 0 36 0;
#X connect 36 1 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 1;
#X connect 40 0 41 0;
#X connect 40 1 29 0;
#X connect 41 0 29 0;
#X restore 548 706 pd you're-embeded;
#N canvas 67 125 450 374 reset 0;
#X obj 96 11 receive \$0-resett;
#X obj 168 312 text define \$0-reset;
#X msg 213 285 read ctxfiles/reset.txt;
#X msg 168 285 clear;
#X obj 255 124 cyclone/iter;
#X obj 255 174 text search \$0-reset;
#X obj 288 218 text get \$0-reset;
#X obj 184 241 text sequence \$0-reset;
#X msg 184 218 line 0 \, bang;
#X obj 255 149 makefilename :%s;
#X obj 255 196 sel -1;
#X obj 228 78 s \$0-roff;
#X obj 183 125 s \$0-roff2;
#X obj 198 102 route -all;
#X obj 153 55 t b b b a b b;
#X obj 153 150 s \$0-symres;
#X obj 96 33 route bang;
#X obj 184 263 s \$0-notsafe;
#X connect 0 0 16 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 9 0;
#X connect 5 0 10 0;
#X connect 6 0 17 0;
#X connect 7 0 17 0;
#X connect 8 0 7 0;
#X connect 9 0 5 0;
#X connect 10 1 6 0;
#X connect 13 0 8 0;
#X connect 13 1 4 0;
#X connect 14 0 15 0;
#X connect 14 1 3 0;
#X connect 14 2 12 0;
#X connect 14 3 13 0;
#X connect 14 4 2 0;
#X connect 14 5 11 0;
#X connect 16 1 14 0;
#X restore 552 364 pd reset;
#N canvas 448 211 374 346 burst-presets 0;
#X obj 84 27 receive \$0-plinp;
#X obj 103 161 text get ^&bpresets();
#X obj 103 137 text search ^&bpresets();
#X obj 103 183 list split 1;
#X obj 103 114 list;
#X obj 137 207 list trim;
#X obj 137 229 route -;
#X obj 84 49 t b a b;
#X obj 123 71 s \$0-roff;
#X obj 84 91 s \$0-roff22;
#X obj 183 252 s \$0-notsafe;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 1 5 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 1 10 0;
#X connect 7 0 9 0;
#X connect 7 1 4 0;
#X connect 7 2 8 0;
#X restore 551 156 pd burst-presets;
#N canvas 67 388 625 300 save 0;
#X obj 169 146 text define -k \$0-save;
#A set \; \; %^ :g 0 \; %^ :X 5 \; %^ :Y 4 \; \; \; %^ :M 0 \; %^ :a
bang \; %^ :b bang \; %^ :c 0 \; %^ :d 0 \; %^ :e 0 \; %^ :f 0 \; %^
:h 0 \; %^ :i clear \; %^ :j clear \; %^ :k 1 \; %^ :l 0 \; %^ :m 1
\; %^ :n clear \; %^ :o 1 \; %^ :p 0 \; %^ :q 1 \; \; \; %^ :t 1 \;
\; %^ :v 1 \; %^ :w 0 \; %^ :x = \; %^ :y = \; %^ :z 10 \; %^ :A 1
\; %^ :B 0.5 \; %^ :C 20 \; %^ :D 1 \; %^ :E 0 \; %^ :F 0 \; %^ :G
0 \; %^ :I 0 \; %^ :J 0 \; %^ :K 0 \; \; \; %^ :O 0 \; %^ :P 0 \; %^
:Q 1 \; %^ :R 0 \; %^ :S bang \; %^ :T bang \; %^ :U bang \; %^ :V
bang \; %^ :W 0 \; %^ :Z 7 \; %^ :ID 0 \; %^ :ex -clear \; %^ :se 0
\; %^ :ba bang \; %^ :es 0 \; %^ :rd 0 \; %^ :ol 0 \; %^ :x1 0 \; %^
:x2 0 \; %^ :y1 0 \; %^ :y2 0 \; %^ :em 0 \; %^ :pr 0 \; %^ :te 100
\; %^ :rm 1 \; %^ :nr 0 \; %^ :ro 0 \; %^ :il 0 \; %^ :ln bang \; %^
:rt 0 \; %^ :ms 0 \; %^ :pu 0 \; %^ :sw 0 \; %^ :me 1 \; %^ :gc 1 \;
%^ :sx 0 \; %^ :sy 0 \; %^ :bs 0 \; %^ :le 0 \; %^ :ze bang \; %^ :on
1 \; %^ :rp 0 \;;
#X msg 169 123 click;
#X obj 169 99 receive \$0-savelist;
#X obj 168 194 ctxfiles/saver \$0 eapp 4;
#X obj 424 87 receive \$0-beforeC;
#X obj 314 107 receive \$0-afterC;
#X obj 451 131 f 55;
#X obj 417 211 list;
#X obj 424 236 text set \$0-save 55;
#X obj 451 153 text get \$0-save;
#X obj 424 109 t b b;
#X obj 424 185 symbol :NN;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 7 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 9 0 7 1;
#X connect 10 0 11 0;
#X connect 10 1 6 0;
#X connect 11 0 8 0;
#X restore 69 269 pd save;
#X text 146 111 distribute init- and loadbangs;
#X text 145 133 read creation arguments and separate input commands
from overlay instructions;
#X text 144 164 receive all command data and process safety;
#N canvas 67 89 796 679 input 0;
#X obj 154 312 s \$0-undodec;
#X obj 348 105 list trim;
#X obj 394 568 s \$0-!store;
#X obj 136 338 t f;
#X msg 416 612 :s;
#X obj 416 636 s \$0-everything;
#X obj 136 360 s \$0-rnum;
#X obj 348 81 receive \$0-inlet-out;
#X obj 313 154 receive \$0-anymessage;
#X obj 565 200 receive \$0safety;
#X obj 565 251 spigot;
#X obj 571 174 t b f;
#X obj 571 152 receive \$0-savestart;
#X obj 266 260 receive \$0-rthen;
#X obj 233 312 route :r record;
#X obj 320 336 t b b;
#X obj 80 171 receive \$0-notsafe;
#X obj 402 255 s \$0-*store;
#X obj 348 190 t a a;
#X obj 408 190 receive \$0-*.*on;
#X obj 375 212 spigot;
#X obj 375 234 t b a;
#X obj 122 199 receive \$0-undone2;
#X obj 153 261 s \$0-tobr;
#X obj 122 236 t b b a b a;
#X obj 348 455 demux;
#X obj 467 152 receive \$0-stp*1;
#X obj 375 432 receive \$0-stp*0;
#X obj 400 316 demux;
#X obj 427 363 t a b b;
#X obj 410 670 receive \$0-oops!;
#X obj 371 694 spigot;
#X obj 371 716 s \$0-restartt;
#X text 457 614 recalculate message if it contains !;
#X obj 313 128 receive context;
#X obj 348 546 t a b a;
#X obj 348 588 relay push;
#X obj 603 323 receive \$0-zend;
#X obj 427 340 demux;
#X obj 477 363 f 1;
#X obj 446 409 t f;
#X obj 582 348 list;
#X obj 582 371 route bang;
#X obj 639 395 s \$0-msteal1;
#X obj 565 298 !=;
#X obj 375 500 t a b b;
#X obj 375 477 demux;
#X obj 425 500 f 1;
#X obj 394 546 t f;
#X obj 394 523 del 25;
#X obj 446 386 del 25;
#X obj 565 224 f 10;
#X obj 565 275 t f f f;
#X obj 122 285 f 1;
#X obj 169 285 f 2;
#X obj 348 286 route ! %> bang !! --help -help;
#X obj 472 319 s help%%%;
#X obj 233 290 spigot;
#X obj 347 361 t f;
#X connect 1 0 18 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 7 0 1 0;
#X connect 8 0 18 0;
#X connect 9 0 51 0;
#X connect 10 0 52 0;
#X connect 11 0 51 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 13 0 57 1;
#X connect 14 2 15 0;
#X connect 15 0 4 0;
#X connect 15 1 58 0;
#X connect 16 0 24 0;
#X connect 18 0 55 0;
#X connect 18 1 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 4 0;
#X connect 21 1 17 0;
#X connect 22 0 24 0;
#X connect 24 0 53 0;
#X connect 24 1 3 0;
#X connect 24 2 23 0;
#X connect 24 3 54 0;
#X connect 24 4 57 0;
#X connect 25 0 35 0;
#X connect 25 1 46 0;
#X connect 26 0 51 0;
#X connect 27 0 25 1;
#X connect 28 0 4 0;
#X connect 28 1 38 0;
#X connect 29 0 4 0;
#X connect 29 1 50 0;
#X connect 29 2 39 0;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 34 0 18 0;
#X connect 35 0 36 0;
#X connect 35 1 31 0;
#X connect 35 2 2 0;
#X connect 36 0 5 0;
#X connect 36 1 4 0;
#X connect 37 0 41 1;
#X connect 38 0 29 0;
#X connect 38 1 41 0;
#X connect 39 0 38 1;
#X connect 40 0 38 1;
#X connect 41 0 42 0;
#X connect 42 1 43 0;
#X connect 44 0 28 1;
#X connect 44 0 25 1;
#X connect 45 0 35 0;
#X connect 45 1 49 0;
#X connect 45 2 47 0;
#X connect 46 0 45 0;
#X connect 46 1 41 0;
#X connect 47 0 46 1;
#X connect 48 0 46 1;
#X connect 49 0 48 0;
#X connect 50 0 40 0;
#X connect 51 0 10 0;
#X connect 52 0 44 0;
#X connect 52 1 50 1;
#X connect 52 2 49 1;
#X connect 53 0 0 0;
#X connect 54 0 0 0;
#X connect 55 0 25 0;
#X connect 55 1 25 0;
#X connect 55 2 28 0;
#X connect 55 4 56 0;
#X connect 55 5 56 0;
#X connect 55 6 24 0;
#X connect 57 0 14 0;
#X connect 58 0 57 1;
#X restore 69 164 pd input;
#X text 144 189 send menu data to other location (if set);
#X text 144 213 hold command data (if set);
#X text 144 237 process all incoming command data;
#X text 137 269 compile and send savelist;
#X text 156 295 calculate cycle time;
#X text 144 322 process start command;
#X text 144 349 process stop command;
#X text 142 376 process pattern and burst playback;
#X text 142 403 determine toggle sets;
#X text 143 431 process and send message output;
#X text 187 459 manipulate context GUI;
#X text 66 73 MAJOR SYSTEMS;
#X text 143 487 distribute various dimension and mode values;
#X text 107 514 calculate ID number;
#X text 137 539 process and store tags;
#X text 653 624 save overlay and compile list;
#X text 655 651 interpret list and execute;
#X text 649 678 store mover interface and line read;
#X text 664 705 create line;
#X text 630 103 seed [random] objects;
#X text 676 127 read presets.txt and interpret :: messages;
#X text 667 156 fetch burst presets;
#X text 637 183 calculate context's position on the parent canvas;
#X text 654 208 modify database messages;
#X text 625 235 execute print command;
#X text 634 259 fetch data from savelist;
#X text 641 287 store and retrieve bank data;
#X text 642 312 process record data;
#X text 642 338 create inlets~ and outlets~;
#X text 641 365 process reset command;
#X text 547 604 OVERLAY;
#X text 551 74 MINOR SYSTEMS;
#X text 47 239 ***;
#X text 46 377 ***;
#X text 46 433 ***;
#N canvas 188 115 846 645 message-mod 0;
#X obj 207 8 receive \$0-pattern-mod;
#X obj 390 62 receive \$0-burst-mod;
#X text 267 23 syntax: operator \, value \, term \, line-no. \,;
#X obj 139 384 ctxfiles/adder;
#X obj 462 283 text get \$0-pattern-st;
#X obj 252 103 list split 2;
#X obj 139 409 list-abs/list-replace;
#X obj 294 249 t f;
#X obj 462 237 v \$0-xsymhere;
#X obj 479 326 cyclone/iter;
#X obj 479 347 route float;
#X obj 509 391 f;
#X obj 534 391 + 1;
#X obj 560 369 t f;
#X obj 494 414 f;
#X obj 482 367 t b b;
#X obj 530 367 t b;
#X obj 462 463 t a a;
#X obj 489 488 list length;
#X msg 528 533 resize \$1;
#X obj 462 586 array set \$0-floats;
#X obj 528 555 array define \$0-floats 1;
#X obj 462 304 t b a a b;
#X obj 286 228 - 1;
#X obj 271 294 f;
#X obj 220 361 text get \$0-pattern-st 0 1;
#X obj 462 260 v \$0-whichterm;
#X obj 220 272 v \$0-whichterm;
#X obj 271 316 min;
#X obj 504 533 - 1;
#X obj 271 338 array get \$0-floats 0 1;
#X obj 139 361 list trim;
#X obj 232 183 t a b;
#X obj 232 228 t a b b;
#X obj 232 205 spigot;
#X obj 489 511 t f f f;
#X obj 139 433 list prepend;
#X obj 139 475 list prepend;
#X obj 393 155 symbol \$0-pattern-st;
#X obj 429 130 symbol \$0-burst-st;
#X obj 208 333 + 1;
#X text 440 98 distinguish between pattern and burst message mod;
#X text 556 250 determine which line no.;
#X text 560 398 collect positions of float terms in an array;
#X text 67 244 interpret incoming message;
#X text 83 316 assign correct line no an term;
#X text 8 424 calculate and replace;
#X obj 437 237 - 1;
#X obj 462 440 ctxfiles/collect;
#X obj 158 570 send \$0-notsafe;
#X obj 178 544 s \$0-roff;
#X obj 139 522 t b a b;
#X obj 139 595 s \$0-roff2;
#X obj 139 454 list prepend ";
#X obj 139 499 list append ";
#X obj 482 217 v \$0-ysymhere;
#X obj 207 30 t a b b b;
#X obj 390 84 t a b b b;
#X obj 254 449 symbol :a;
#X obj 334 449 symbol :b;
#X obj 207 54 t a b;
#X obj 312 181 unpack;
#X obj 292 127 route float;
#X obj 292 149 pack f 1;
#X obj 207 78 route ++;
#X obj 15 -18 t a a;
#X obj 42 5 list split 1;
#X obj 42 28 route float;
#X text 20 -39 accumulate;
#X obj 132 74 v \$0-whichterm;
#X obj 105 74 t f;
#X obj 15 99 list split;
#X obj 105 51 t b b;
#X obj 42 51 t b f;
#X obj 42 74 f 1;
#X obj 69 171 text get \$0-pattern-st;
#X obj 393 182 t s s s;
#X obj 43 199 list prepend;
#X obj 43 222 text set \$0-pattern-st;
#X obj 69 146 t f f;
#X obj 69 122 - 1;
#X connect 0 0 56 0;
#X connect 1 0 57 0;
#X connect 3 0 6 0;
#X connect 4 0 22 0;
#X connect 5 0 32 0;
#X connect 5 1 62 0;
#X connect 6 0 36 0;
#X connect 7 0 24 1;
#X connect 8 0 26 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 10 1 16 0;
#X connect 11 0 12 0;
#X connect 11 0 14 1;
#X connect 12 0 11 1;
#X connect 13 0 11 1;
#X connect 14 0 48 1;
#X connect 15 0 14 0;
#X connect 15 1 11 0;
#X connect 16 0 11 0;
#X connect 17 0 20 0;
#X connect 17 1 18 0;
#X connect 18 0 35 0;
#X connect 19 0 21 0;
#X connect 22 0 48 0;
#X connect 22 1 9 0;
#X connect 22 2 6 2;
#X connect 22 3 13 0;
#X connect 23 0 24 1;
#X connect 24 0 28 0;
#X connect 25 0 3 1;
#X connect 26 0 4 0;
#X connect 27 0 25 0;
#X connect 27 0 40 0;
#X connect 28 0 30 0;
#X connect 29 0 28 1;
#X connect 30 0 25 1;
#X connect 30 0 6 1;
#X connect 31 0 3 0;
#X connect 32 0 34 0;
#X connect 32 1 26 0;
#X connect 33 0 31 0;
#X connect 33 1 27 0;
#X connect 33 2 24 0;
#X connect 34 0 33 0;
#X connect 35 0 34 1;
#X connect 35 1 29 0;
#X connect 35 2 19 0;
#X connect 36 0 53 0;
#X connect 37 0 54 0;
#X connect 38 0 76 0;
#X connect 39 0 76 0;
#X connect 40 0 36 1;
#X connect 47 0 26 0;
#X connect 48 0 17 0;
#X connect 51 0 52 0;
#X connect 51 1 49 0;
#X connect 51 2 50 0;
#X connect 53 0 37 0;
#X connect 54 0 51 0;
#X connect 55 0 26 0;
#X connect 56 0 60 0;
#X connect 56 1 8 0;
#X connect 56 2 58 0;
#X connect 56 3 38 0;
#X connect 57 0 60 0;
#X connect 57 1 55 0;
#X connect 57 2 59 0;
#X connect 57 3 39 0;
#X connect 58 0 37 1;
#X connect 59 0 37 1;
#X connect 60 0 64 0;
#X connect 60 1 7 0;
#X connect 61 0 23 0;
#X connect 61 1 47 0;
#X connect 62 0 63 0;
#X connect 62 1 61 0;
#X connect 63 0 61 0;
#X connect 64 0 65 0;
#X connect 64 1 5 0;
#X connect 65 0 71 0;
#X connect 65 1 66 0;
#X connect 66 0 67 0;
#X connect 67 0 73 0;
#X connect 67 1 72 0;
#X connect 69 0 79 0;
#X connect 70 0 71 1;
#X connect 71 1 77 0;
#X connect 72 0 70 0;
#X connect 72 1 69 0;
#X connect 73 0 74 0;
#X connect 73 1 80 0;
#X connect 74 0 71 1;
#X connect 75 0 77 1;
#X connect 76 0 25 3;
#X connect 76 1 4 3;
#X connect 76 2 75 3;
#X connect 77 0 78 0;
#X connect 79 0 75 0;
#X connect 79 1 78 1;
#X connect 80 0 79 0;
#X restore 552 208 pd message-mod;
#X text 636 391 filter / alter custom rules;
#N canvas 193 173 974 495 rules 0;
#X obj -131 277 demux;
#X obj 49 449 receive \$0-exon;
#X msg 764 110 click;
#X obj 764 132 text define \$0-except;
#X obj 802 243 s \$0-start-exc;
#X obj 802 222 t b;
#X obj 764 88 receive \$0-aopI;
#X obj 658 88 receive \$0-asavI;
#X obj 802 200 receive \$0-conlist;
#X msg 832 110 clear;
#X obj 793 42 receive \$0-acleI;
#X obj 685 155 ctxfiles/t2l2 \$0 except :ex conlist;
#X obj 793 64 t b b b;
#X text 556 62 save and retrieve the exception list;
#X obj 55 471 receive \$0-savestart;
#X obj 52 521 f;
#X obj 52 576 spigot;
#X obj 55 493 t b f;
#X obj 239 146 sel -1;
#X obj 239 38 list split 1;
#X obj 284 582 + 1;
#X obj 284 604 text get \$0-except;
#X obj 284 626 list trim;
#X obj 637 347 text get \$0-except;
#X obj 671 441 list trim;
#X obj 212 220 demux;
#X obj 671 485 t a b;
#X obj 710 485 t a b;
#X obj 318 340 demux;
#X obj 698 510 t f;
#X obj 737 510 f 1;
#X obj 318 362 list length;
#X obj 671 394 s \$0-msteal;
#X obj 671 416 receive \$0-mstole;
#X obj 339 389 receive \$0-cuc;
#X obj 339 411 makefilename \$0-%i-cur;
#X obj 318 435 send;
#X text -114 475 1 turn rule list on or off;
#X text 321 39 2 search first term against rule list;
#X text 284 148 3 continue as usual if no match;
#X text 734 372 4 retrieve rule;
#X text 732 468 5 set whole or counted list;
#X text 1050 565 6 determine which type of comparison;
#X obj 247 195 f 1;
#X text 249 461 7 send input to abstraction;
#X obj 284 490 receive \$0-cchek;
#X obj 257 516 demux;
#X text 387 490 8 receive match;
#X obj 284 560 f;
#X obj 284 538 t b;
#X obj 189 312 ctxfiles/sp01;
#X text 152 540 9 if no match \, abort;
#X text 332 580 10 if match \, retrieve next line of text;
#X text 499 747 12 send to output language and out.;
#X text -105 64 protect against stack overflows;
#X obj 671 463 route ];
#X obj 318 292 list trim;
#X obj 318 315 route =;
#X obj 220 362 ctxfiles/sp01;
#X text 516 686 11.5 if - then cancel original message and send code
immediately. If * then send original message then send code.;
#X obj 216 634 del 0;
#X obj 347 674 t b a b b b;
#X obj 284 648 route c- replace c* after c+ before c/ goto;
#X text 377 621 11 if it doesn't begin with an indicator \, abort;
#X obj -54 615 demux;
#X obj -54 657 s \$0-rulesr;
#X obj -131 255 receive \$0-rules;
#X obj 34 322 f 1;
#X obj -27 636 s \$0-messu;
#X obj -27 254 receive \$0-messager;
#X obj 239 60 list append 0;
#X obj 314 -13 t f;
#X obj 314 13 f;
#X obj 239 168 t f f;
#X obj 211 13 spigot;
#X text 107 -3 repeat;
#X obj 239 124 text search \$0-except 1 >= 0;
#X obj 284 268 list split 1;
#X obj 637 369 list split 2;
#X obj 189 335 ctxfiles/sp01;
#X obj 239 244 t b b a a a b b;
#X obj 175 672 ctxfiles/collect;
#X obj 239 81 demux;
#X obj 52 544 t f f;
#X obj -27 277 demux;
#X text -116 227 Select between input and output mode.;
#X obj 266 102 text search \$0-except 1 < 0;
#X obj 355 -13 f -1;
#X obj 34 344 t f f;
#X obj 340 13 - 1;
#X obj -44 428 t f f;
#X obj 97 360 ctxfiles/sp01;
#X obj -104 300 t a b b b;
#X obj 195 -14 t a a a;
#X obj 142 229 t b b b;
#X obj 443 674 t b a b b;
#X obj 284 674 t b a b;
#X obj 272 168 t f f b b b;
#X obj 671 538 ctxfiles/br2 route 1 \; q< cu \$0 #f < \, less #l \,
lessthan #l \, less-than #l \; q> cu \$0 #f > \, greater #l \, greaterthan
#l \, greater-than #l \; q<= cu \$0 #f <= \, lessor #l \, less-or #l
\; q>= cu \$0 #f >= \, greateror #l \, greater-or #l \; q== cu \$0
#f == \, equals #l \; qn== cu \$0 #f != \, equalsnot #l \, equals-not
#l \; qn= cuu \$0 #f t f f 1 \, containsnot #l \, contains-not #l \;
q= cuu \$0 #f f 1 t f \, contains #l \, ## #l;
#X obj 0 300 t a b b b;
#X obj 181 95 t f;
#X obj 450 763 s \$0-msteal1;
#X text 221 786 exception for directors;
#X obj 363 783 t b a;
#X obj 363 855 s \$0-ruleoutlet;
#X obj 483 785 text define \$0-rulesteal;
#X obj 390 811 list;
#X obj 390 833 text set \$0-rulesteal;
#X obj 363 738 relay <o <i <io <<<;
#X obj 242 737 receive \$0-routeme;
#X obj 242 759 list prepend <io;
#X connect 0 0 65 0;
#X connect 0 1 92 0;
#X connect 1 0 15 0;
#X connect 2 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 11 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 12 0;
#X connect 12 0 4 0;
#X connect 12 1 11 0;
#X connect 12 2 9 0;
#X connect 14 0 17 0;
#X connect 15 0 83 0;
#X connect 16 0 0 1;
#X connect 17 0 15 0;
#X connect 17 1 16 1;
#X connect 18 0 73 0;
#X connect 18 1 97 0;
#X connect 19 0 70 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 62 0;
#X connect 23 0 78 0;
#X connect 24 0 55 0;
#X connect 25 0 91 0;
#X connect 25 1 80 0;
#X connect 26 0 98 0;
#X connect 26 1 29 0;
#X connect 27 0 98 0;
#X connect 27 1 30 0;
#X connect 28 0 31 0;
#X connect 28 1 36 0;
#X connect 29 0 28 1;
#X connect 30 0 28 1;
#X connect 31 0 36 0;
#X connect 33 0 24 0;
#X connect 34 0 35 0;
#X connect 35 0 36 1;
#X connect 43 0 25 1;
#X connect 43 0 74 1;
#X connect 45 0 46 1;
#X connect 46 0 64 0;
#X connect 46 1 49 0;
#X connect 48 0 20 0;
#X connect 49 0 48 0;
#X connect 50 0 79 0;
#X connect 55 0 26 0;
#X connect 55 1 27 0;
#X connect 56 0 57 0;
#X connect 57 0 28 0;
#X connect 57 1 28 0;
#X connect 58 0 60 0;
#X connect 60 0 81 0;
#X connect 61 0 15 0;
#X connect 61 1 81 1;
#X connect 61 2 58 2;
#X connect 61 3 50 2;
#X connect 61 4 83 0;
#X connect 62 0 96 0;
#X connect 62 1 96 0;
#X connect 62 2 61 0;
#X connect 62 3 61 0;
#X connect 62 4 95 0;
#X connect 62 5 95 0;
#X connect 62 6 21 0;
#X connect 62 7 21 0;
#X connect 62 8 50 2;
#X connect 64 0 65 0;
#X connect 64 1 68 0;
#X connect 66 0 0 0;
#X connect 67 0 88 0;
#X connect 69 0 84 0;
#X connect 70 0 82 0;
#X connect 71 0 72 0;
#X connect 72 0 70 1;
#X connect 72 0 89 0;
#X connect 73 0 25 1;
#X connect 73 1 74 1;
#X connect 74 0 93 0;
#X connect 76 0 18 0;
#X connect 77 1 56 0;
#X connect 78 1 32 0;
#X connect 79 0 64 0;
#X connect 80 0 58 0;
#X connect 80 1 79 1;
#X connect 80 2 50 0;
#X connect 80 3 46 0;
#X connect 80 4 77 0;
#X connect 80 5 50 1;
#X connect 80 6 58 1;
#X connect 81 0 96 0;
#X connect 82 0 76 0;
#X connect 82 1 86 0;
#X connect 83 0 16 0;
#X connect 83 1 84 1;
#X connect 84 0 68 0;
#X connect 84 1 99 0;
#X connect 86 0 18 0;
#X connect 87 0 89 1;
#X connect 88 0 90 0;
#X connect 88 1 89 1;
#X connect 89 0 72 1;
#X connect 90 0 64 1;
#X connect 90 1 82 1;
#X connect 91 0 64 0;
#X connect 92 0 93 0;
#X connect 92 1 94 0;
#X connect 92 2 90 0;
#X connect 92 3 87 0;
#X connect 93 0 74 0;
#X connect 93 1 25 0;
#X connect 93 2 19 0;
#X connect 94 0 71 0;
#X connect 94 1 79 2;
#X connect 94 2 91 2;
#X connect 95 0 15 0;
#X connect 95 1 108 0;
#X connect 95 2 50 2;
#X connect 95 3 83 0;
#X connect 96 0 15 0;
#X connect 96 1 108 0;
#X connect 96 2 83 0;
#X connect 97 0 23 0;
#X connect 97 1 48 1;
#X connect 97 2 43 0;
#X connect 97 3 72 0;
#X connect 97 4 91 1;
#X connect 99 0 93 0;
#X connect 99 1 94 0;
#X connect 99 2 67 0;
#X connect 99 3 100 0;
#X connect 100 0 74 1;
#X connect 103 0 104 0;
#X connect 103 1 106 0;
#X connect 106 0 107 0;
#X connect 108 0 103 0;
#X connect 108 1 103 0;
#X connect 108 2 103 0;
#X connect 108 3 103 0;
#X connect 108 4 101 0;
#X connect 109 0 110 0;
#X connect 110 0 103 0;
#X restore 552 391 pd rules;
#N canvas 289 493 413 275 title 1;
#X text 28 29 Context is an abstraction \, so if you want to use it
\, you're looking in the wrong place. Instead \, you'll need to open
another patch and create a [context] object. \; You can use this patch
to edit Context and change its behaviour \, but be warned that it is
not designed in a user-friendly way. If you do make any changes to
context.pd \, make sure that you have done so while the patch was opened
from the menu. If you open and edit an active [context] object \, saving
the patch will probably break Context \, and you'll have to re-download
it. \; Note that context.pd does not contain all of Context's workings--there
are many more in ctxfiles/deletables.pd and ctxfiles/shareables.pd.
\; \; See context_manual.pdf for instructions on how to use Context.
;
#X restore 552 419 pd title;
#N canvas 470 327 450 300 link 0;
#X obj 170 10 receive \$0-link;
#X obj 170 108 route bang;
#X obj 170 152 symbol \$0-yjh34;
#X obj 170 174 iemguts/oreceive \$0-yjh34;
#X obj 227 130 list;
#X obj 170 246 s \$0-anymessage;
#X obj 170 32 route -;
#X obj 170 54 t a b;
#X obj 209 54 t a b;
#X obj 197 77 f 1;
#X obj 236 77 t f;
#X obj 197 220 spigot;
#X obj 170 196 t a b;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 3 0 12 0;
#X connect 4 0 3 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 7 0 1 0;
#X connect 7 1 9 0;
#X connect 8 0 1 0;
#X connect 8 1 10 0;
#X connect 9 0 11 1;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 5 0;
#X connect 12 1 11 0;
#X restore 552 445 pd link;
#X text 635 446 define link connection;
#N canvas 65 85 450 300 delete 0;
#X obj 137 111 receive \$0-deleteme;
#X obj 137 133 iemguts/canvasdelete 3;
#X connect 0 0 1 0;
#X restore 551 471 pd delete;
#N canvas 246 89 1014 679 push 0;
#X obj 118 2 receive \$0-pushd;
#X obj 196 226 - 1;
#X obj 196 270 t f f;
#X obj 196 294 int;
#X obj 196 316 t f f;
#X obj 228 341 -;
#X obj 196 367 spigot;
#X obj 150 139 array get \$0-bu-n;
#X obj 347 226 receive \$0-jisw;
#X obj 196 412 swap;
#X obj 221 389 receive \$0nnumber;
#X obj 229 412 receive \$0-parent;
#X obj 196 501 send;
#X obj 185 46 receive \$0-pusho;
#X obj 150 68 f;
#X obj 150 90 sel 1;
#X obj 415 37 receive \$0-parentn;
#X obj 415 81 iemguts/oreceive \$0nu;
#X text -242 77 1: when push command is received \, check if pusho
is on;
#X text -177 229 2: if so \, collect next burst connections and forward
;
#X obj 118 46 t b b;
#X obj 518 286 f 1;
#X obj 479 310 spigot;
#X obj 535 253 t f;
#X obj 196 206 sel 0;
#X text 529 330 <-- this fires iff it is the last context in the chain
;
#X obj 479 332 t b b;
#X obj 479 379 s \$0-started;
#X obj 511 355 f 1;
#X obj 472 412 receive \$0-end;
#X obj 472 434 spigot;
#X obj 472 594 send;
#X text 558 439 5: at end of cycle \, bump then send bang to previous
context in chain;
#X obj 196 248 array get \$0-jarry 0 1;
#X obj 731 528 array get \$0-bu-n 0 1;
#X obj 495 549 pack f f f;
#X obj 150 112 t b b;
#X obj 699 576 array max \$0-yarry;
#X obj 822 552 receive \$0-yxsw;
#X obj 699 598 ==;
#X text 752 491 6: if bang received \, check to see if the next burst
toggle is at the end of the toggle array.;
#X obj 699 620 sel 1;
#X obj 472 456 t b f;
#X text 741 622 7: if so \, send another push.;
#X obj 150 161 cyclone/iter;
#X obj 150 184 t b l l;
#X obj -55 303 receive \$0-xym;
#X obj -87 324 demux;
#X obj -112 400 send;
#X text -68 395 (send blink messages to toggles);
#X obj -87 346 makefilename \$0-y-%i-blink;
#X obj -55 369 makefilename \$0-x-%i-blink;
#X msg 593 522 bump;
#X obj 593 545 s \$0-notsafe;
#X obj 558 492 t b b b b b f;
#X obj 634 522 s \$0-roff;
#X obj 516 522 s \$0-roff2;
#X msg 446 481 start;
#X obj 400 459 t b b b;
#X obj 231 455 receive \$0-Jpush;
#X obj 217 477 makefilename \$0n;
#X msg 415 59 symbol \$2-c\$1-pusher;
#X obj 415 103 route c bang;
#X obj 484 125 t b l l;
#X text -22 439 3: send ID to next context;
#X text 603 146 4: if ID recived from 3 \, store \, send cancel message
back \, then push again.;
#X obj 545 208 unpack;
#X msg 495 571 symbol \$3-c\$2-pusher;
#X msg 503 149 \; \$2-c\$1-pusher c;
#X obj 196 434 pack;
#X obj 118 24 t b f b;
#X obj 376 328 v \$0-parent;
#X connect 0 0 70 0;
#X connect 1 0 33 0;
#X connect 2 0 3 0;
#X connect 2 1 5 1;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 5 0;
#X connect 5 0 6 1;
#X connect 6 0 9 0;
#X connect 7 0 44 0;
#X connect 8 0 33 2;
#X connect 9 0 69 0;
#X connect 9 1 60 0;
#X connect 10 0 9 1;
#X connect 11 0 69 1;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 15 0 36 0;
#X connect 15 1 58 0;
#X connect 16 0 61 0;
#X connect 17 0 62 0;
#X connect 20 0 22 0;
#X connect 20 1 14 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 22 1;
#X connect 24 1 1 0;
#X connect 26 0 27 0;
#X connect 26 1 28 0;
#X connect 28 0 30 1;
#X connect 29 0 30 0;
#X connect 30 0 42 0;
#X connect 33 0 2 0;
#X connect 34 0 39 1;
#X connect 35 0 67 0;
#X connect 36 0 7 0;
#X connect 36 1 21 0;
#X connect 37 0 39 0;
#X connect 38 0 37 2;
#X connect 39 0 41 0;
#X connect 41 0 31 0;
#X connect 42 0 54 0;
#X connect 42 1 30 1;
#X connect 44 0 45 0;
#X connect 45 0 48 0;
#X connect 45 1 47 0;
#X connect 45 2 24 0;
#X connect 46 0 47 1;
#X connect 47 0 50 0;
#X connect 47 1 51 0;
#X connect 50 0 48 1;
#X connect 51 0 48 1;
#X connect 52 0 53 0;
#X connect 54 0 35 0;
#X connect 54 1 56 0;
#X connect 54 2 52 0;
#X connect 54 3 55 0;
#X connect 54 4 37 0;
#X connect 54 5 34 0;
#X connect 57 0 53 0;
#X connect 58 0 31 0;
#X connect 58 1 35 0;
#X connect 58 2 57 0;
#X connect 59 0 60 0;
#X connect 60 0 12 1;
#X connect 61 0 17 0;
#X connect 62 0 23 0;
#X connect 62 1 54 0;
#X connect 62 2 63 0;
#X connect 63 0 20 0;
#X connect 63 1 68 0;
#X connect 63 2 66 0;
#X connect 66 0 35 1;
#X connect 66 1 35 2;
#X connect 67 0 31 1;
#X connect 69 0 12 0;
#X connect 70 0 20 0;
#X connect 70 1 35 1;
#X connect 70 2 71 0;
#X connect 71 0 35 2;
#X restore 552 495 pd push;
#X text 642 498 push command;
#X text 638 473 delete this context!;
#N canvas 692 211 450 419 patch 0;
#X obj 169 39 receive \$0-glocal;
#X obj 169 105 sel 0 1 2;
#X obj 169 237 v \$0-parent;
#X obj 203 216 v \$0-ovzero;
#X obj 169 83 list 0;
#X obj 247 150 makefilename %s-patchget;
#X obj 220 150 f \$0;
#X obj 220 172 send;
#X obj 243 237 receive \$0-patchgot;
#X obj 220 128 t b s b;
#X obj 259 172 symbol blank;
#X obj 147 18 receive patchgot&Y*U;
#X msg 95 283 symbol c%i;
#X msg 169 283 symbol \$1-c%i;
#X obj 169 333 t s s;
#X msg 196 357 set \$1;
#X obj 196 379 s \$0-Jsend;
#X obj 96 379 s \$0-Jpush;
#X msg 96 357 set \$1-pusher;
#X obj 169 61 t b a;
#X obj 107 -2 receive \$0-lb;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 1 1 12 0;
#X connect 1 2 3 0;
#X connect 1 3 9 0;
#X connect 2 0 13 0;
#X connect 3 0 13 0;
#X connect 4 0 1 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 8 0 13 0;
#X connect 9 0 6 0;
#X connect 9 1 5 0;
#X connect 9 2 10 0;
#X connect 10 0 13 0;
#X connect 11 0 4 0;
#X connect 12 0 14 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 4 0;
#X connect 19 1 4 1;
#X connect 20 0 4 0;
#X restore 68 565 pd patch control;
#X text 175 565 set sphere of influence for toggle-float communication
;
#N canvas 394 210 450 435 ID 0;
#X obj 129 52 receive \$0-iemarg1;
#X obj 190 74 receive \$0-Cbang;
#X obj 146 164 s \$0nnumber;
#X obj 129 187 v \$0nnumber;
#X obj 129 118 ctxfiles/idcontrol \$0;
#X msg 281 262 \; \$4-parentn \$1 \$3;
#X obj 254 239 t l l;
#X obj 254 301 spigot;
#X obj 271 367 send;
#X msg 288 345 symbol \$3-\$2-IDchange;
#X obj 215 274 route 0;
#X obj 254 323 t b f l b;
#X obj 129 140 t f f f f;
#X obj 305 367 s \$0-roff;
#X obj 254 389 s \$0-roff2;
#X obj 254 217 pack f f f \$0;
#X obj 252 96 receive \$0-parent;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 4 0 12 0;
#X connect 4 1 7 1;
#X connect 6 0 10 0;
#X connect 6 1 5 0;
#X connect 7 0 11 0;
#X connect 9 0 8 1;
#X connect 10 1 7 0;
#X connect 11 0 14 0;
#X connect 11 1 8 0;
#X connect 11 2 9 0;
#X connect 11 3 13 0;
#X connect 12 0 3 0;
#X connect 12 1 2 0;
#X connect 12 2 15 1;
#X connect 12 3 15 0;
#X connect 15 0 6 0;
#X connect 16 0 4 2;
#X connect 16 0 15 2;
#X restore 68 513 pd ID;
#X obj 864 478 iemguts/closebang;
#X obj 864 500 s \$0-Cbang;
#N canvas 67 189 450 536 euclid 0;
#X obj 152 32 receive \$0-euclids;
#X obj 284 116 v \$0-xy21;
#X obj 152 55 route x y;
#X obj 109 116 v \$0-xsize-2;
#X obj 194 116 v \$0-ysize-2;
#X obj 153 247 *;
#X obj 153 297 mod;
#X obj 60 347 ctxfiles/collect;
#X obj 60 393 t b l b;
#X obj 99 418 s \$0-roff;
#X obj 32 418 s \$0-roff2;
#X obj 79 443 s \$0-notsafe;
#X obj 60 370 list prepend;
#X obj 318 224 v \$0-xym;
#X obj 318 247 sel 0 1;
#X obj 318 312 symbol :x;
#X obj 337 284 symbol :y;
#X obj 168 223 /;
#X obj 153 272 int;
#X obj 153 323 + 1;
#X obj 66 223 cyclone/uzi 0 0;
#X obj 187 178 min;
#X obj 168 148 t f f f;
#X obj 187 201 t f f;
#X obj 66 197 f;
#X obj 92 90 t b b f b;
#X obj 177 90 t b b f b;
#X obj 267 90 t b b f b;
#X obj 318 340 list append -l =;
#X connect 0 0 2 0;
#X connect 1 0 22 0;
#X connect 2 0 25 0;
#X connect 2 1 26 0;
#X connect 2 2 27 0;
#X connect 3 0 22 0;
#X connect 4 0 22 0;
#X connect 5 0 18 0;
#X connect 6 0 19 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 8 1 11 0;
#X connect 8 2 9 0;
#X connect 12 0 8 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 1 16 0;
#X connect 15 0 28 0;
#X connect 16 0 28 0;
#X connect 17 0 5 1;
#X connect 18 0 6 0;
#X connect 19 0 7 1;
#X connect 20 1 7 0;
#X connect 20 2 5 0;
#X connect 21 0 23 0;
#X connect 22 0 17 0;
#X connect 22 1 21 0;
#X connect 22 2 6 1;
#X connect 23 0 17 1;
#X connect 23 1 24 1;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 25 1 3 0;
#X connect 25 2 21 1;
#X connect 25 3 15 0;
#X connect 26 0 24 0;
#X connect 26 1 4 0;
#X connect 26 2 21 1;
#X connect 26 3 16 0;
#X connect 27 0 24 0;
#X connect 27 1 1 0;
#X connect 27 2 21 1;
#X connect 27 3 13 0;
#X connect 28 0 12 1;
#X restore 551 519 pd euclid;
#X obj 561 6 declare -lib zexy -path zexy -path ./;
#N canvas 67 87 1299 681 commands 0;
#X obj 580 75 demux;
#X obj 427 75 demux;
#X obj 147 65 demux;
#N canvas 450 109 630 648 dripper 0;
#X obj 190 406 +;
#X obj 241 374 f 1;
#X obj 190 375 f 1;
#X obj 205 349 * 1;
#X obj 256 349 * 1;
#X obj 160 176 t b b b b b b;
#X msg 372 243 1;
#X obj 329 376 t f f;
#X obj 254 177 t b b b b b b;
#X obj 163 497 demux;
#X msg 160 229 1;
#X msg 175 209 -1;
#X msg 254 205 -1;
#X msg 269 232 1;
#X obj 190 450 > 0;
#X obj 114 569 ctxfiles/sp01 1;
#X obj 114 520 t b b a;
#X obj 224 569 ctxfiles/sp01 1;
#X obj 224 520 t b b a;
#X obj 176 11 inlet;
#X obj 114 592 outlet l;
#X obj 420 576 sel 0;
#X obj 190 428 t f f;
#X obj 329 304 f 1;
#X obj 329 329 * -1;
#X obj 190 472 t f f;
#X obj 420 549 f;
#X obj 176 126 t b a a;
#X obj 398 125 t b f b b;
#X obj 286 61 t f;
#X obj 235 267 ctxfiles/sp01;
#X obj 329 267 ctxfiles/sp01;
#X obj 224 591 s \$0-othr;
#X obj 215 151 route " ';
#X obj 176 104 route bang;
#X obj 176 35 t a b b b b;
#X obj 176 58 cyclone/iter;
#X obj 176 80 list trim;
#X connect 0 0 22 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 1 1;
#X connect 5 0 10 0;
#X connect 5 1 11 0;
#X connect 5 2 2 0;
#X connect 5 3 31 1;
#X connect 5 4 30 2;
#X connect 5 5 30 0;
#X connect 6 0 7 0;
#X connect 6 0 1 1;
#X connect 6 0 2 1;
#X connect 6 0 23 1;
#X connect 7 0 3 1;
#X connect 7 1 4 1;
#X connect 8 0 12 0;
#X connect 8 1 13 0;
#X connect 8 2 1 0;
#X connect 8 3 30 1;
#X connect 8 4 31 2;
#X connect 8 5 31 0;
#X connect 9 0 16 0;
#X connect 9 1 18 0;
#X connect 10 0 4 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 3 0;
#X connect 14 0 25 0;
#X connect 15 0 20 0;
#X connect 16 0 17 1;
#X connect 16 1 15 2;
#X connect 16 2 15 0;
#X connect 17 0 32 0;
#X connect 18 0 15 1;
#X connect 18 1 17 2;
#X connect 18 2 17 0;
#X connect 19 0 35 0;
#X connect 21 0 28 0;
#X connect 22 0 14 0;
#X connect 22 1 0 1;
#X connect 23 0 24 0;
#X connect 24 0 7 0;
#X connect 25 0 9 1;
#X connect 25 1 26 1;
#X connect 26 0 21 0;
#X connect 27 0 26 0;
#X connect 27 1 9 0;
#X connect 27 2 33 0;
#X connect 28 0 6 0;
#X connect 28 1 0 1;
#X connect 28 2 30 1;
#X connect 28 3 31 1;
#X connect 29 0 9 1;
#X connect 30 0 23 0;
#X connect 31 0 23 0;
#X connect 33 0 5 0;
#X connect 33 1 8 0;
#X connect 34 1 27 0;
#X connect 35 0 36 0;
#X connect 35 1 28 0;
#X connect 35 2 15 2;
#X connect 35 3 17 2;
#X connect 35 4 29 0;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X restore 174 109 pd dripper;
#X obj 607 48 receive \$0-reld;
#X obj 147 138 cyclone/iter;
#X obj 147 160 list trim;
#X obj 75 -25 receive \$0-tobr;
#X obj 75 -3 t b a;
#X text 432 190 INIT DISTRIBUTION;
#X text 588 203 MAIN DISTRIBUTION;
#X text 832 227 SEND TO SETTINGS;
#X obj -56 248 cnv 13 950 1 empty \$0-datagrid init-list 18 -5 0 10
-13330 -66577 0;
#X obj -56 274 cnv 13 950 1 empty \$0-datagrid graphic 18 -5 0 10 -13330
-66577 0;
#X obj -56 287 cnv 13 950 1 empty \$0-datagrid X-size 18 -5 0 10 -13330
-66577 0;
#X obj -56 300 cnv 13 950 1 empty \$0-datagrid Y-size 18 -5 0 10 -13330
-66577 0;
#X obj -56 313 cnv 13 950 1 empty \$0-datagrid i/o-list 18 -5 0 10
-13330 -66577 0;
#X obj -56 326 cnv 13 950 1 empty \$0-datagrid presets 18 -5 0 10 -13330
-66577 0;
#X obj -56 352 cnv 13 950 1 empty \$0-datagrid x-message-list 18 -5
0 10 -13330 -66577 0;
#X obj -56 365 cnv 13 950 1 empty \$0-datagrid y-message-list 18 -5
0 10 -13330 -66577 0;
#X obj -56 378 cnv 13 950 1 empty \$0-datagrid colour 18 -5 0 10 -13330
-66577 0;
#X obj -56 391 cnv 13 950 1 empty \$0-datagrid delay-time 18 -5 0 10
-13330 -66577 0;
#X obj -56 404 cnv 13 950 1 empty \$0-datagrid pattern-length 18 -5
0 10 -13330 -66577 0;
#X obj -56 417 cnv 13 950 1 empty \$0-datagrid burst-length 18 -5 0
10 -13330 -66577 0;
#X obj -56 261 cnv 13 950 1 empty \$0-datagrid empty 18 -5 0 10 -13330
-66577 0;
#X obj -56 430 cnv 13 950 1 empty \$0-datagrid burst-how-many 18 -5
0 10 -13330 -66577 0;
#X obj -56 443 cnv 13 950 1 empty \$0-datagrid i-float 18 -5 0 10 -13330
-66577 0;
#X obj -56 456 cnv 13 950 1 empty \$0-datagrid j-float 18 -5 0 10 -13330
-66577 0;
#X obj -56 469 cnv 13 950 1 empty \$0-datagrid coefficient 18 -5 0
10 -13330 -66577 0;
#X obj -56 482 cnv 13 950 1 empty \$0-datagrid how-many-random 18 -5
0 10 -13330 -66577 0;
#X obj -56 495 cnv 13 950 1 empty \$0-datagrid burst_auto-advance 18
-5 0 10 -13330 -66577 0;
#X obj -56 508 cnv 13 950 1 empty \$0-datagrid tags 18 -5 0 10 -13330
-66577 0;
#X obj -56 521 cnv 13 950 1 empty \$0-datagrid burst-which 18 -5 0
10 -13330 -66577 0;
#X obj -56 534 cnv 13 950 1 empty \$0-datagrid how-many-prog 18 -5
0 10 -13330 -66577 0;
#X obj -56 547 cnv 13 950 1 empty \$0-datagrid random-nozero 18 -5
0 10 -13330 -66577 0;
#X obj -56 560 cnv 13 950 1 empty \$0-datagrid record 18 -5 0 10 -13330
-66577 0;
#X obj -56 573 cnv 13 950 1 empty \$0-datagrid start 18 -5 0 10 -13330
-66577 0;
#X obj -56 586 cnv 13 950 1 empty \$0-datagrid collect 18 -5 0 10 -13330
-66577 0;
#X obj -56 599 cnv 13 950 1 empty \$0-datagrid undo 18 -5 0 10 -13330
-66577 0;
#X obj -56 612 cnv 13 950 1 empty \$0-datagrid saving 18 -5 0 10 -13330
-66577 0;
#X obj -56 625 cnv 13 950 1 empty \$0-datagrid how-many-wrap 18 -5
0 10 -13330 -66577 0;
#X obj -56 638 cnv 13 950 1 empty \$0-datagrid x-toggles 18 -5 0 10
-13330 -66577 0;
#X obj -56 651 cnv 13 950 1 empty \$0-datagrid y-toggles 18 -5 0 10
-13330 -66577 0;
#X obj -56 690 cnv 13 950 1 empty \$0-datagrid position-res 18 -5 0
10 -13330 -66577 0;
#X obj -56 664 cnv 13 950 1 empty \$0-datagrid safety 18 -5 0 10 -13330
-66577 0;
#X obj -56 677 cnv 13 950 1 empty \$0-datagrid auto-save-bank 18 -5
0 10 -13330 -66577 0;
#X obj -56 703 cnv 13 950 1 empty \$0-datagrid position-scale 18 -5
0 10 -13330 -66577 0;
#X obj -56 716 cnv 13 950 1 empty \$0-datagrid random-res 18 -5 0 10
-13330 -66577 0;
#X obj -56 729 cnv 13 950 1 empty \$0-datagrid delay-mode 18 -5 0 10
-13330 -66577 0;
#X obj -56 742 cnv 13 950 1 empty \$0-datagrid X-zoom 18 -5 0 10 -13330
-66577 0;
#X obj -56 755 cnv 13 950 1 empty \$0-datagrid Y-zoom 18 -5 0 10 -13330
-66577 0;
#X obj -56 768 cnv 13 950 1 empty \$0-datagrid exception-onoff 18 -5
0 10 -13330 -66577 0;
#X obj -56 781 cnv 13 950 1 empty \$0-datagrid global-float-send 18
-5 0 10 -13330 -66577 0;
#X obj -56 794 cnv 13 950 1 empty \$0-datagrid coefficient-mode 18
-5 0 10 -13330 -66577 0;
#X obj -56 807 cnv 13 950 1 empty \$0-datagrid burst-presets 18 -5
0 10 -13330 -66577 0;
#X obj -56 339 cnv 13 950 1 empty \$0-datagrid X/Y-switch 18 -5 0 10
-13330 -66577 0;
#X obj -56 820 cnv 13 950 1 empty \$0-datagrid hold_command 18 -5 0
10 -13330 -66577 0;
#X obj -56 833 cnv 13 950 1 empty \$0-datagrid shuffle 18 -5 0 10 -13330
-66577 0;
#X obj -56 846 cnv 13 950 1 empty \$0-datagrid which-prog 18 -5 0 10
-13330 -66577 0;
#X obj -56 859 cnv 13 950 1 empty \$0-datagrid random_d_auto-advance
18 -5 0 10 -13330 -66577 0;
#X obj -56 872 cnv 13 950 1 empty \$0-datagrid which-random 18 -5 0
10 -13330 -66577 0;
#X obj -56 885 cnv 13 950 1 empty \$0-datagrid pattern-prepend 18 -5
0 10 -13330 -66577 0;
#X obj -56 898 cnv 13 950 1 empty \$0-datagrid pattern-append 18 -5
0 10 -13330 -66577 0;
#X obj -56 911 cnv 13 950 1 empty \$0-datagrid burst-prepend 18 -5
0 10 -13330 -66577 0;
#X obj -56 924 cnv 13 950 1 empty \$0-datagrid burst-append 18 -5 0
10 -13330 -66577 0;
#X obj -56 937 cnv 13 950 1 empty \$0-datagrid which-wrap 18 -5 0 10
-13330 -66577 0;
#X obj -56 950 cnv 13 950 1 empty \$0-datagrid Z-size 18 -5 0 10 -13330
-66577 0;
#X obj -56 963 cnv 13 950 1 empty \$0-datagrid ID 18 -5 0 10 -13330
-66577 0;
#X obj -56 1119 cnv 13 950 1 empty \$0-datagrid print 18 -5 0 10 -13330
-66577 0;
#X obj -56 1288 cnv 13 950 1 empty \$0-datagrid single_x 18 -5 0 10
-13330 -66577 0;
#X obj -56 976 cnv 13 950 1 empty \$0-datagrid exception-list 18 -5
0 10 -13330 -66577 0;
#X obj -56 1392 cnv 13 950 1 empty \$0-datagrid bump 18 -5 0 10 -13330
-66577 0;
#X obj -56 1418 cnv 13 950 1 empty \$0-datagrid find 18 -5 0 10 -13330
-66577 0;
#X obj 1127 161 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 950;
#X msg 1127 183 vis_size \$1 1;
#X obj 1127 205 s \$0-datagrid;
#X obj 427 25 receive \$0-f56;
#X text 137 204 IDENTIFY TERMS \, SAVING (tf = no save \, tfs = save)
;
#X obj -56 1431 cnv 13 950 1 empty \$0-datagrid save-list 18 -5 0 10
-13330 -66577 0;
#X obj -56 989 cnv 13 950 1 empty \$0-datagrid settings-to 18 -5 0
10 -13330 -66577 0;
#X obj -56 1002 cnv 13 950 1 empty \$0-datagrid bank-store 18 -5 0
10 -13330 -66577 0;
#X obj -56 1015 cnv 13 950 1 empty \$0-datagrid embed-stop 18 -5 0
10 -13330 -66577 0;
#X obj -56 1444 cnv 13 950 1 empty \$0-datagrid fetch 18 -5 0 10 -13330
-66577 0;
#X obj -56 1457 cnv 13 950 1 empty \$0-datagrid reset 18 -5 0 10 -13330
-66577 0;
#X obj -56 1028 cnv 13 950 1 empty \$0-datagrid reverse-delay 18 -5
0 10 -13330 -66577 0;
#X obj -56 1470 cnv 13 950 1 empty \$0-datagrid rev 18 -5 0 10 -13330
-66577 0;
#X obj -56 1041 cnv 13 950 1 empty \$0-datagrid embedded 18 -5 0 10
-13330 -66577 0;
#X obj -56 1054 cnv 13 950 1 empty \$0-datagrid x1 18 -5 0 10 -13330
-66577 0;
#X obj -56 1067 cnv 13 950 1 empty \$0-datagrid x2 18 -5 0 10 -13330
-66577 0;
#X obj -56 1080 cnv 13 950 1 empty \$0-datagrid y1 18 -5 0 10 -13330
-66577 0;
#X obj -56 1093 cnv 13 950 1 empty \$0-datagrid y2 18 -5 0 10 -13330
-66577 0;
#X obj -56 1106 cnv 13 950 1 empty \$0-datagrid im-embedded 18 -5 0
10 -13330 -66577 0;
#X obj 687 136 t a a;
#X obj 714 161 spigot;
#X obj 714 183 s \$0-toprint;
#X obj 747 114 receive \$0-printme;
#X obj 747 136 >= 2;
#X obj -56 1145 cnv 13 950 1 empty \$0-datagrid message-?_auto-advance
18 -5 0 10 -13330 -66577 0;
#X obj -56 1132 cnv 13 950 1 empty \$0-datagrid tempo 18 -5 0 10 -13330
-66577 0;
#X obj -56 1158 cnv 13 950 1 empty \$0-datagrid ^_fetch_random 18 -5
0 10 -13330 -66577 0;
#X obj -56 1171 cnv 13 950 1 empty \$0-datagrid ?_offset 18 -5 0 10
-13330 -66577 0;
#X obj -56 1483 cnv 13 950 1 empty \$0-datagrid N-empty 18 -5 0 10
-13330 -66577 0;
#X obj 102 18 list trim;
#X obj 102 40 route ##;
#X obj 102 86 s \$0-fsteal;
#X obj 157 40 receive \$0-fstole;
#X obj 687 84 receive \$0-rulesr;
#X obj -56 1496 cnv 13 950 1 empty \$0-datagrid marker 18 -5 0 10 -13330
-66577 0;
#X obj -56 1509 cnv 13 950 1 empty \$0-datagrid content 18 -5 0 10
-13330 -66577 0;
#X obj -56 1522 cnv 13 950 1 empty \$0-datagrid menu 18 -5 0 10 -13330
-66577 0;
#X obj -56 1535 cnv 13 950 1 empty \$0-datagrid overlay_command 18
-5 0 10 -13330 -66577 0;
#X obj -56 1184 cnv 13 950 1 empty \$0-datagrid label 18 -5 0 10 -13330
-66577 0;
#X obj -56 1548 cnv 13 950 1 empty \$0-datagrid start_or_stop 18 -5
0 10 -13330 -66577 0;
#X obj -56 1197 cnv 13 950 1 empty \$0-datagrid link 18 -5 0 10 -13330
-66577 0;
#X obj -56 1561 cnv 13 950 1 empty \$0-datagrid $_var 18 -5 0 10 -13330
-66577 0;
#X obj -56 1574 cnv 13 950 1 empty \$0-datagrid delete 18 -5 0 10 -13330
-66577 0;
#X obj 427 209 ctxfiles/br2 demux 2 \; #f t \; #f s \$0-listbreak \;
## \; #f s \$0-graphstart \; #f s \$0-xxstart \; #f s \$0-yystart \;
#f s \$0-:io \; #f s \$0-prelist;
#X obj 993 89 array define -k \$0-settings 5;
#A 0 5 4 0 1 1;
#X msg 970 31 5 4 0 1 1;
#X text 896 63 0: xsize-2 \; 1: ysize-2 \; 2: parent \; 3: x-limit
\; 4: y-limit;
#X obj -56 1210 cnv 13 950 1 empty \$0-datagrid reverse-toggle-alignment
18 -5 0 10 -13330 -66577 0;
#X obj -56 1223 cnv 13 950 1 empty \$0-datagrid prepend-0 18 -5 0 10
-13330 -66577 0;
#X obj -56 1236 cnv 13 950 1 empty \$0-datagrid structured 18 -5 0
10 -13330 -66577 0;
#X obj -56 1249 cnv 13 950 1 empty \$0-datagrid switch 18 -5 0 10 -13330
-66577 0;
#X obj -56 1405 cnv 13 950 1 empty \$0-datagrid push 18 -5 0 10 -13330
-66577 0;
#X obj -56 1262 cnv 13 950 1 empty \$0-datagrid message_on 18 -5 0
10 -13330 -66577 0;
#X obj -56 1275 cnv 13 950 1 empty \$0-datagrid grid_control 18 -5
0 10 -13330 -66577 0;
#X obj -56 1587 cnv 13 950 1 empty \$0-datagrid loop 18 -5 0 10 -13330
-66577 0;
#X obj -56 1379 cnv 13 950 1 empty \$0-datagrid stop 18 -5 0 10 -13330
-66577 0;
#X obj -56 1301 cnv 13 950 1 empty \$0-datagrid single_y 18 -5 0 10
-13330 -66577 0;
#X obj -56 1314 cnv 13 950 1 empty \$0-datagrid bs_mode 18 -5 0 10
-13330 -66577 0;
#X obj -56 1600 cnv 13 950 1 empty \$0-datagrid route 18 -5 0 10 -13330
-66577 0;
#X obj -56 1613 cnv 13 950 1 empty \$0-datagrid undo 18 -5 0 10 -13330
-66577 0;
#X obj -56 1626 cnv 13 950 1 empty \$0-datagrid copy 18 -5 0 10 -13330
-66577 0;
#X obj -56 1639 cnv 13 950 1 empty \$0-datagrid euclid 18 -5 0 10 -13330
-66577 0;
#X obj -56 1327 cnv 13 950 1 empty \$0-datagrid legacy 18 -5 0 10 -13330
-66577 0;
#X obj -56 1340 cnv 13 950 1 empty \$0-datagrid safety_overflow 18
-5 0 10 -13330 -66577 0;
#X obj -56 1353 cnv 13 950 1 empty \$0-datagrid start_on 18 -5 0 10
-13330 -66577 0;
#X obj 427 48 ctxfiles/recompile \$0 othr;
#X obj -56 1366 cnv 13 950 1 empty \$0-datagrid repeat_point 18 -5
0 10 -13330 -66577 0;
#X obj 101 221 ctxfiles/br2 route 1 \; :H tf \$0 #f 0 \; ## \; :g tfst
\$0 #f g 0 \, gui #l \, GUI #l \; :X tfs \$0 #f X 5 \; :Y tfs \$0 #f
Y 4 \; :io tfs \$0 #f io bang \; :: tf \$0 #f \; :M tfst \$0 #f M 0
\; :a tfspa \$0 #f a bang \; :b tfspa \$0 #f b bang \; :c tfs \$0 #f
c 0 \, colour #l \, color #l \; :d tfs \$0 #f d 0 \, delay #l \, time
#l \, cycle #l \; :e tfs \$0 #f e 0 \; :f tfs \$0 #f f 0 \; :h tfs
\$0 #f h 0 \, quantity #l \; :i tfsij \$0 #f i \; :j tfsij \$0 #f j
\; :k tfs \$0 #f k 1 \; :l tfs \$0 #f l 0 \; :m tfst \$0 #f m 1 \,
advance #l \; :n tfs \$0 #f n clear \, tag #l \, name #l \; :o tfs
\$0 #f o 1 \, which #l \; :p tfs \$0 #f p 0 \; :q tfs \$0 #f q 0 \;
:r tf \$0 #f \, record #l \; :s tf \$0 #f \, start #l \; :t tfst \$0
#f t 1 \, collect #l \; :u tf \$0 #f \, bank #l \; :v tfst \$0 #f v
1 \, saving #l \; :w tfst \$0 #f w 0 \; :x tfsxy \$0 #f x \; :y tfsxy
\$0 #f y \; :z tfst \$0 #f z 1 \, safety #l \; :A tfst \$0 #f A 1 \;
:B tfs \$0 #f B 0.5 \; :C tfs \$0 #f C 20 \; :D tfs \$0 #f D 1 \; :E
tfs \$0 #f E 0 \, mode #l \; :F tfs \$0 #f F 0 \; :G tfs \$0 #f G 0
\; :I tfst \$0 #f I 0 \; :J tfst \$0 #f J 0 \; :K tfs \$0 #f K 0 \;
:L tf \$0 #f \; :N tf \$0 #f 0 \, hold #l \; :O tfs \$0 #f O 0 \, shuffle
#l \; :P tfs \$0 #f P 0 \; :Q tfst \$0 #f Q 1 \; :R tfs \$0 #f R 0
\; :S tfs \$0 #f S bang \; :T tfs \$0 #f T bang \; :U tfs \$0 #f U
bang \; :V tfs \$0 #f V bang \; :W tfst \$0 #f W 0 \; :Z tfs \$0 #f
Z 7 \; :ID tfs \$0 #f ID \, :id #l \; :ex tfspa \$0 #f ex bang 1 \;
:se tfs \$0 #f se 0 \; :ba tfspa \$0 #f ba bang 1 \; :es tfst \$0 #f
es 0 \; :rd tfst \$0 #f rd 0 \; :ol tfs \$0 #f ol 0 \; :x1 tfsn \$0
#f x1 0 \; :x2 tfsn \$0 #f x2 0 \; :y1 tfsn \$0 #f y1 0 \; :y2 tfsn
\$0 #f y2 0 \; :em tfst \$0 #f em 0 \; :pr tfs \$0 #f pr 0 \, print
#l \; :te tfs \$0 #f te 100 \, tempo #l \; :rm tfst \$0 #f rm 1 \;
:nr tfst \$0 #f nr 0 \; :ro tfs \$0 #f ro 0 \; :il tfs \$0 #f il 0
\; :ln tfs \$0 #f ln bang \; :rt tfst \$0 #f rt 0 \; :ms tfst \$0 #f
ms 0 \; :pu tfst \$0 #f pu 0 \; :sw tfst \$0 #f sw 0 \; :me tfsem \$0
#f me 1 \; :gc tfst \$0 #f gc 1 \; :sx tfst \$0 #f sx 0 \; :sy tfst
\$0 #f sy 0 \; :bs tfst \$0 #f bs 0 \; :le tfst \$0 #f le 0 \; :ze
tfspa \$0 #f ze bang 1 \; :on tfst \$0 #f on 1 \; :rp tfs \$0 #f rp
0 \, repeat #l \; stop tf \$0 #f \, :st #l \; bump tf \$0 #f \; push
tf \$0 #f \; find tf \$0 #f \; savelist tf \$0 #f \; fetch tf \$0 #f
\; reset tf \$0 #f \; rev tf \$0 #f \; :NN tf \$0 #f \; marker tf \$0
#f \; content tf \$0 #f \; -menu tf \$0 #f \; -overlay tf \$0 #f \;
:ss tf \$0 #f \; :$ tf \$0 #f \; -delete tf \$0 #f \; loop tf \$0 #f
\; -route tf \$0 #f \; undo tf \$0 #f \; copy tf \$0 #f \; euclid tf
\$0 #f \; -burst tf \$0 #f \; . t \; ## s \$0-othr;
#X obj 578 221 ctxfiles/br2 demux 2 \; #f t \; #f t \; #f s \$0-:g
\; #f s \$0-:X \; #f s \$0-:Y \; #f s \$0-:io \; #f ev \$0 :: \; #f
s \$0-:M \; #f ev \$0 :a \; #f ev \$0 :b \; #f s \$0-:c \; #f delo
\$0 \; #f s \$0-:e \; #f s \$0-:f \; #f s \$0-:h \; #f is \$0 i x 4
6 12 5 \; #f is \$0 j y 3 5 13 4 \; #f s \$0-:k \; #f s \$0-:l \; #f
s \$0-:m \; #f s \$0-names \; #f s \$0-:o \; #f s \$0-:p \; #f s \$0-:q
\; #f ev \$0 :r \; #f ev \$0 :s \; #f s \$0-:t \; #f ev \$0 :u \; #f
s \$0-:v \; #f s \$0-:w \; #f os \$0 x 27 5 6 6 \; #f os \$0 y 28 3
5 4 \; #f s \$0-:z \; #f ar \$0 A \; #f s \$0-:B \; #f s \$0-:C \;
#f s \$0-:D \; #f dmode \$0 \; #f s \$0-:F \; #f s \$0-:G \; #f ar
\$0 I \; #f s \$0-:J \; #f kmode \$0 \; #f ev \$0 :L \; #f ev \$0 :N
\; #f s \$0-:O \; #f s \$0-:P \; #f s \$0-:Q \; #f s \$0-:R \; #f s
\$0-:S \; #f s \$0-:T \; #f s \$0-:U \; #f s \$0-:V \; #f s \$0-:W
\; #f s \$0-:Z \; #f s \$0-:ID \; #f s \$0-:ex \; #f s \$0-:se \; #f
s \$0-:ba \; #f s \$0-:es \; #f s \$0-:rd \; #f ar \$0 ol \; #f s \$0-:x1
\; #f s \$0-:x2 \; #f s \$0-:y1 \; #f s \$0-:y2 \; #f s \$0-:em \;
#f pr \$0 \; #f s \$0-:te \; #f s \$0-:rm \; #f s \$0-:nr \; #f s \$0-:ro
\; #f s \$0-:il \; #f s \$0-:ln \; #f s \$0-:rt \; #f s \$0-:ms \;
#f s \$0-:pu \; #f s \$0-:sw \; #f s \$0-:me \; #f s \$0-:gc \; #f
s \$0-:sx \; #f s \$0-:sy \; #f s \$0-:bs \; #f s \$0-:le \; #f s \$0-:ze
\; #f s \$0-:on \; #f s \$0-:rp \; #f ev \$0 stop \; #f ev \$0 bump
\; #f ev \$0 push \; #f ev \$0 find \; #f ev \$0 savelist \; #f ev
\$0 fetch \; #f ev \$0 reset \; #f ev \$0 rev \; #f ev \$0 :NN \; #f
ev \$0 marker \; #f ev \$0 content \; #f ev \$0 -menu \; #f ev \$0
-overlay \; #f ev \$0 :ss \; #f ev \$0 :$ \; #f ev \$0 -delete \; #f
ev \$0 loop \; #f ev \$0 -route \; #f ev \$0 undo \; #f ev \$0 copy
\; #f ev \$0 euclid \; #f ev \$0 -burst;
#X obj 729 247 ctxfiles/br2 route 1 \; :g s \$0-graphic \; :X s \$0-xsize-2-in
\; :Y s \$0-ysize-2-in \; ## \; :: s \$0-prelist2 \; :M s \$0-xym \;
:a am \$0 pattern x :a 7 \; :b am \$0 burst y :b 8 \; :c s \$0-colours
\; :d delr \$0 \; :e s \$0-xlimit-p \; :f s \$0-ylimit-p \; :h s \$0-numa
\; :i togg \$0 i si 4 float \; :j togg \$0 j xi 3 \; :k s \$0-coefficient
\; :l s \$0-randa \; :m s \$0-aadv \; :n s \$0-j-name \; :o s \$0-witchlist
\; :p s \$0-proga \; :q s \$0-nozero \; :r s \$0-record \; :s ss \$0
startme :s started \; :t s \$0-collect \; :u s \$0-undo \; :v s \$0-saveme
\; :w s \$0-hwrap \; :x togg \$0 x s 4 si 5 10 \; :y togg \$0 y s 3
x 3 6 \; :z s \$0safety \; :A s \$0-autoon \; :B s \$0-pres \; :C s
\$0-pscale \; :D s \$0-rres \; :E s \$0-dellmode \; :F s \$0-xzoomp
\; :G s \$0-yzoomp \; :I s \$0-exon \; :J s \$0-glocal \; :K s \$0-coefmode
\; :L s \$0-plinp \; :N s \$0-Und \; :O s \$0-shuffle \; :P s \$0-progb
\; :Q s \$0-randadv \; :R s \$0-randb \; :S s \$0-patternprepp \; :T
s \$0-patternappp \; :U s \$0-burstprepp \; :V s \$0-burstappp \; :W
s \$0-wwrap \; :Z s \$0-zsize-2-in \; :ID s \$0-cnumbers \; :ex s \$0-conlist
\; :se s \$0-setto \; :ba s \$0-tobank \; :es s \$0-estop \; :rd s
\$0-road \; :ol s \$0-imemb \; :x1 s \$0-x1p \; :x2 s \$0-x2p \; :y1
s \$0-y1p \; :y2 s \$0-y2p \; :em s \$0-imembe \; :pr s \$0-printme
\; :te s \$0-tempo \; :rm s \$0-?off \; :nr s \$0-^set \; :ro s \$0-?offs
\; :il s \$0-lab \; :ln s \$0-link \; :rt s \$0-rev-togs \; :ms s \$0-mesp
\; :pu s \$0-pusho \; :sw s \$0-swittch \; :me s \$0-meson \; :gc s
\$0-gcontrol \; :sx s \$0-sesx \; :sy s \$0-sesy \; :bs s \$0-bsmode
\; :le s \$0-legacy \; :ze s \$0-zend \; :on s \$0-com-on \; :rp s
\$0-prepoint \; stop ss \$0 stopme stop prestop \; bump s \$0-bump
\; push s \$0-pushd \; find s \$0-findme \; savelist s \$0-savelist
\; fetch s \$0-mfetch \; reset s \$0-resett \; rev s \$0-revme \; ##
\; marker s \$0-smarker \; content s \$0-ctntalk \; -menu s \$0-menuc
\; -overlay s \$0-hacklist \; :ss s \$0-sos \; :$ s \$0-var$ \; -delete
s \$0-deleteme \; loop s \$0-loopme \; -route s \$0-routeme \; undo
s \$0-undoo \; copy s \$0-copyme \; euclid s \$0-euclids \; -burst
s \$0-burstnow;
#X obj -56 1652 cnv 13 950 1 empty \$0-datagrid fire_burst 18 -5 0
10 -13330 -66577 0;
#X connect 0 0 116 1;
#X connect 0 1 141 1;
#X connect 1 0 116 0;
#X connect 1 1 141 0;
#X connect 2 0 5 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 0 0 1;
#X connect 4 0 1 1;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 140 0;
#X connect 7 0 8 0;
#X connect 8 0 138 0;
#X connect 8 1 102 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 76 0 138 0;
#X connect 92 0 142 0;
#X connect 92 1 93 0;
#X connect 93 0 94 0;
#X connect 95 0 96 0;
#X connect 96 0 93 1;
#X connect 102 0 103 0;
#X connect 103 0 104 0;
#X connect 103 1 2 0;
#X connect 105 0 2 0;
#X connect 106 0 92 0;
#X connect 138 0 1 0;
#X connect 138 1 0 0;
#X restore 69 238 pd commands;
#N canvas 67 131 655 476 repeat 0;
#X obj 90 -37 receive \$0-prepoint;
#X obj 201 210 receive \$0-xyswp;
#X obj 117 257 zexy/pack 0 \$0-xpro;
#X obj 201 233 t b s;
#X msg 117 280 symbol \$2-p-\$1;
#X obj 134 352 symbol \$0-xpro-p-0;
#X obj 117 303 t s b b s;
#X obj 134 375 t b s;
#X obj 151 327 f 1;
#X obj 134 398 t f;
#X obj 134 421 send;
#X text 42 325 colour toggles;
#X obj 117 184 t f f;
#X obj 125 209 s \$0-rpoint;
#X obj 291 134 receive \$0-pointed;
#X obj 291 157 demux;
#X obj 318 210 s \$0-anymessage;
#X msg 291 180 -burst stop;
#X obj 90 116 swap 5;
#X obj 90 139 -;
#X obj 128 69 receive \$0-xy2;
#X obj 90 162 + 1;
#X obj 90 -14 route end;
#X obj 90 9 t f b;
#X obj 141 9 t f b;
#X obj 168 33 f 1;
#X obj 117 33 t f;
#X obj 90 69 moses;
#X obj 90 92 abs;
#X connect 0 0 22 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 6 1 5 0;
#X connect 6 2 8 0;
#X connect 6 3 10 1;
#X connect 7 0 9 0;
#X connect 7 1 10 1;
#X connect 8 0 10 0;
#X connect 9 0 10 0;
#X connect 12 0 2 0;
#X connect 12 1 13 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 15 1 16 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 21 0;
#X connect 20 0 18 1;
#X connect 21 0 12 0;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 23 0 27 0;
#X connect 23 1 26 0;
#X connect 24 0 27 0;
#X connect 24 1 25 0;
#X connect 25 0 15 1;
#X connect 26 0 15 1;
#X connect 27 0 28 0;
#X connect 27 1 12 0;
#X connect 28 0 18 0;
#X restore 551 567 pd repeat;
#N canvas 67 182 1106 495 burst 0;
#X obj 543 52 t b f;
#N canvas 686 89 551 687 setter 0;
#X obj 237 292 - 1;
#X obj 106 337 f;
#X obj 183 220 t f f f;
#X obj 125 382 f;
#X obj 125 404 demux;
#X obj 219 361 mod;
#X obj 237 194 random 2;
#X obj 125 426 - 2;
#X obj 219 384 + 1;
#X obj 106 358 t b b b f;
#X obj 219 337 - 1;
#X obj 136 29 inlet f;
#X obj 314 212 inlet l;
#X obj 150 293 outlet;
#X obj 106 291 t b b;
#X obj 28 375 f;
#X obj 28 397 + 1;
#X obj 28 419 <;
#X obj 106 315 spigot;
#X obj 53 375 t f;
#X obj 136 57 t b b f b;
#X obj 314 238 array get burstline;
#X obj 314 260 array set \$0-burstr;
#X msg 136 174 -1;
#X obj 105 269 route -1;
#X obj 182 316 array set \$0-burstr;
#X obj 105 203 f;
#X obj 105 225 - 1;
#X obj 136 112 t b b b;
#X obj 105 246 array get \$0-burstr 0 1;
#X obj 210 104 ctxfiles/sp01;
#X obj 237 147 >;
#X obj 210 171 demux;
#X obj 210 194 t f;
#X obj 244 337 receive \$0-burstl;
#X obj 369 212 receive \$0-burstl;
#X obj 237 125 receive \$0-randb;
#X obj 247 171 receive \$0seed5;
#X connect 0 0 25 1;
#X connect 1 0 9 0;
#X connect 2 0 26 1;
#X connect 2 1 0 0;
#X connect 2 2 3 1;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 5 0 8 0;
#X connect 6 0 1 1;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 9 0 28 0;
#X connect 9 1 3 0;
#X connect 9 2 30 1;
#X connect 9 3 4 1;
#X connect 10 0 5 0;
#X connect 11 0 20 0;
#X connect 12 0 21 0;
#X connect 14 0 18 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 16 0 15 1;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 1 0;
#X connect 19 0 15 1;
#X connect 20 0 28 0;
#X connect 20 1 30 2;
#X connect 20 2 10 0;
#X connect 20 3 19 0;
#X connect 21 0 22 0;
#X connect 23 0 25 0;
#X connect 24 0 14 0;
#X connect 24 1 13 0;
#X connect 26 0 27 0;
#X connect 27 0 29 0;
#X connect 28 0 23 0;
#X connect 28 1 26 0;
#X connect 28 2 30 0;
#X connect 29 0 24 0;
#X connect 30 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 1 6 0;
#X connect 33 0 1 1;
#X connect 34 0 5 1;
#X connect 34 0 17 1;
#X connect 35 0 21 1;
#X connect 36 0 31 0;
#X connect 37 0 6 0;
#X restore 435 418 pd setter;
#X obj 778 170 list length;
#X msg 778 214 set \$1;
#X obj 778 236 s \$0-hm;
#X obj 746 317 + 1;
#X obj 392 122 spigot;
#X obj 570 128 mod;
#X obj 570 104 - 1;
#X obj 570 149 + 1;
#X obj 244 263 s \$0-burstl;
#X obj 342 551 route bang;
#X obj 232 116 route 0;
#X msg 1442 547;
#X obj 178 163 t a a;
#X obj 205 187 list length;
#X obj 178 417 array set \$0-burst;
#X msg 205 289 resize \$1;
#X obj 193 314 array define \$0-burst 1;
#X obj 224 237 s linesize%%;
#X obj 205 212 t f f f;
#X obj 193 336 array define \$0-burstr 1;
#X obj 435 490 array get \$0-burst 0 1;
#X obj 435 441 t f f;
#X obj 178 40 array get \$0-yarry;
#X obj 396 177 t b b b;
#X obj 435 465 - 1;
#X text 491 235 Determins how many toggles;
#X text 622 610 feeds data back;
#X obj 586 540 spigot 1;
#X obj 541 312 spigot 1;
#X obj 474 622 list length;
#X msg 474 644 resize \$1;
#X obj 459 733 array set \$0-bu-n;
#X obj 342 574 t f;
#X obj 474 666 array define \$0-bu-n 1;
#X obj 256 -11 receive \$0-yxsw;
#X obj 402 27 receive \$0-savestart;
#X obj 543 10 receive \$0-numa;
#X obj 606 30 receive \$0-burstl;
#X obj 727 126 receive \$0-witchlist;
#X obj 316 658 s \$0-bursting;
#X obj 383 627 s \$0-neburst;
#X obj 350 78 receive \$0-bu-bump;
#X obj 714 466 receive \$0-progb;
#X obj 399 574 sort;
#X obj 606 190 receive \$0-proga;
#X obj 440 150 spigot 1;
#X obj 231 517 receive \$0-aadv;
#X obj 399 599 t b a a b a a;
#X obj 425 658 list;
#X obj 400 681 list;
#X obj 231 539 sel 0;
#X obj 778 192 t f f;
#X obj 334 -96 receive \$0-bump;
#X obj 232 94 cyclone/iter;
#X obj 178 141 ctxfiles/collect;
#X text 10 140 replace with zl/filter-->;
#X obj 746 271 cyclone/iter;
#X obj 653 344 ctxfiles/collect;
#X obj 586 491 ctxfiles/collect;
#X obj 342 517 ctxfiles/collect;
#X obj 435 298 cyclone/uzi;
#X obj 435 246 t b b f f;
#X text 495 420 spread selected numbers over a line so there are no
repeats;
#X text 582 395 determine which;
#X text 118 702 roll back if auto-advance is switched off;
#X obj 746 295 ctxfiles/af \$0-burst;
#X obj 256 11 t b s;
#X obj 498 340 - 1;
#N canvas 451 89 825 679 newpad 0;
#X obj 53 434 inlet;
#X obj 266 74 mux 0 1;
#X obj 285 30 receive \$0-x-thead;
#X obj 266 9 receive \$0-y-thead;
#X obj 305 51 receive \$0-xym;
#X msg 220 303 resize \$1;
#X obj 153 408 moses;
#X obj 153 464 array set \$0-padd;
#X obj 180 431 + 1;
#X obj 205 431 t f;
#X obj 153 386 array get \$0-padd 0 1;
#X obj 153 251 f;
#X obj 153 273 until;
#X obj 153 295 f;
#X obj 153 318 t f f;
#X obj 153 340 - 1;
#X obj 153 362 t f f;
#X obj 350 236 array get \$0-padd;
#X obj 350 258 cyclone/iter;
#X obj 350 280 moses;
#X obj 377 302 sel;
#X obj 392 324 - 1;
#X obj 350 362 t f b;
#X obj 377 389 f;
#X obj 403 389 + 1;
#X obj 392 363 t f;
#X text -267 313 add toggle no. to beginning of padlist and add 1 to
every larger no.;
#X text 220 344 resize array;
#N canvas 363 202 450 442 find 0;
#X obj 76 25 inlet;
#X obj 106 138 cyclone/uzi;
#X obj 169 115 value \$0-ycor;
#X obj 322 161 receive \$0-yxto;
#X obj 169 184 array get \$0-alltogsyo 0 1;
#X obj 76 47 t b b b b f b;
#X obj 169 161 - 1;
#X obj 280 290 f;
#X obj 306 290 + 1;
#X obj 253 268 t f b;
#X obj 265 316 f;
#X obj 253 290 sel;
#X obj 237 342 pack f f f;
#X obj 237 364 list split 1;
#X obj 271 386 outlet;
#X obj 295 268 t f;
#X obj 196 47 receive \$0-xym;
#X obj 169 68 demux;
#X obj 196 89 value \$0-xcor;
#X obj 226 235 sel 0;
#X obj 169 207 route bang;
#X connect 0 0 5 0;
#X connect 1 2 6 0;
#X connect 2 0 1 1;
#X connect 3 0 4 2;
#X connect 4 0 20 0;
#X connect 5 1 12 0;
#X connect 5 2 1 0;
#X connect 5 3 17 0;
#X connect 5 4 11 1;
#X connect 5 5 15 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 7 0 10 1;
#X connect 7 0 12 2;
#X connect 8 0 7 1;
#X connect 9 0 11 0;
#X connect 9 1 7 0;
#X connect 10 0 12 1;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 1 14 0;
#X connect 15 0 7 1;
#X connect 16 0 17 1;
#X connect 17 0 2 0;
#X connect 17 1 18 0;
#X connect 18 0 1 1;
#X connect 19 1 9 0;
#X connect 20 1 19 0;
#X restore 293 142 pd find;
#X obj 293 164 demux;
#X obj 266 98 swap;
#X obj 342 142 >;
#X obj 148 189 unpack;
#X obj 320 213 - 1;
#X obj 181 213 t f f f;
#X obj 320 189 swap;
#X text 410 288 remove toggle no. from padlist and subtract 1 from
every larger item;
#X text 79 143 find toggle position and array size;
#X obj 53 508 t f f;
#X obj 53 530 ctxfiles/ad \$0-padd;
#X obj 53 552 list prepend;
#X obj 53 574 array set \$0-padd;
#X text 139 551 remove from list and prepend incoming values;
#X obj 53 486 cyclone/iter;
#X obj 427 103 spigot;
#X obj 460 81 receive \$0-savestart;
#X text 472 110 reconfigure with x-y switch;
#X obj 427 167 array get \$0-burst;
#X obj 427 189 cyclone/iter;
#X obj 427 125 t b b;
#X obj 454 146 t f;
#X obj 53 456 cyclone/zl rev;
#X obj 436 503 ctxfiles/af \$0-bu-n;
#X obj 436 525 t b;
#X obj 436 577 s \$0-bu-bump;
#X obj 350 214 t b f f b;
#X obj 436 457 spigot;
#X obj 266 120 t f f;
#X text 477 478 restart if toggle off matches bu-next;
#X obj 436 547 del;
#X obj 193 189 receive \$0-imoff;
#X obj 148 165 spigot 1;
#X obj 106 213 t b f b b f;
#X obj 311 457 receive \$0-scroll;
#X obj 281 434 receive \$0-rscroll;
#X msg 281 486 stop;
#X obj 220 325 array define -k \$0-padd 1;
#A 0 1;
#X text -128 272 should this connection be broken? -->;
#X obj 503 387 receive \$0-numa==;
#X obj 503 409 * 1000;
#X obj 379 526 del 0;
#X connect 0 0 51 0;
#X connect 1 0 30 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 4 0 1 2;
#X connect 4 0 44 0;
#X connect 5 0 66 0;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 8 0 7 0;
#X connect 9 0 7 1;
#X connect 10 0 6 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 1 7 1;
#X connect 15 0 16 0;
#X connect 16 0 10 0;
#X connect 16 1 13 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 19 1 20 0;
#X connect 20 1 21 0;
#X connect 21 0 22 0;
#X connect 22 0 7 0;
#X connect 22 1 23 0;
#X connect 23 0 24 0;
#X connect 23 0 7 1;
#X connect 24 0 23 1;
#X connect 25 0 23 1;
#X connect 28 0 29 0;
#X connect 29 0 61 0;
#X connect 29 1 35 0;
#X connect 30 0 57 0;
#X connect 30 1 31 0;
#X connect 31 0 29 1;
#X connect 31 0 56 1;
#X connect 32 0 62 0;
#X connect 32 1 34 0;
#X connect 33 0 5 0;
#X connect 34 0 11 1;
#X connect 34 1 13 1;
#X connect 34 2 5 0;
#X connect 35 0 33 0;
#X connect 35 1 55 0;
#X connect 38 0 39 0;
#X connect 38 1 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 43 0 38 0;
#X connect 44 0 49 0;
#X connect 45 0 44 1;
#X connect 47 0 48 0;
#X connect 48 0 28 0;
#X connect 49 0 47 0;
#X connect 49 1 50 0;
#X connect 50 0 29 1;
#X connect 51 0 43 0;
#X connect 52 0 53 0;
#X connect 53 0 59 0;
#X connect 55 0 17 0;
#X connect 55 1 19 1;
#X connect 55 2 20 1;
#X connect 55 3 25 0;
#X connect 56 0 52 0;
#X connect 57 0 56 0;
#X connect 57 1 28 0;
#X connect 59 0 54 0;
#X connect 60 0 61 1;
#X connect 61 0 32 0;
#X connect 62 0 70 0;
#X connect 62 1 7 0;
#X connect 62 2 9 0;
#X connect 62 3 11 0;
#X connect 62 4 6 1;
#X connect 63 0 65 0;
#X connect 64 0 65 0;
#X connect 65 0 70 0;
#X connect 68 0 69 0;
#X connect 69 0 70 1;
#X connect 70 0 54 0;
#X restore 586 565 pd newpad;
#X obj 498 364 array get \$0-padd 0 1;
#X obj 334 28 s \$0-dbump;
#X obj 435 214 ctxfiles/rando \$0 a h 4;
#X obj 599 312 s \$0-nprog;
#X obj 351 8 s \$0-bump?;
#X obj 368 -12 s \$0-bumpa;
#X obj 386 -33 s \$0-bumpb;
#X obj 334 -74 route d m l R c;
#X obj 403 -53 s \$0-bumpc;
#X obj 459 687 s \$0-nexts;
#X obj 459 710 receive \$0-nburst;
#X obj 178 64 t b a;
#X obj 435 393 ctxfiles/rando \$0 b w 3;
#X obj 714 491 t f f;
#X obj 714 534 -;
#X obj 746 514 int;
#X obj 714 556 ==;
#X obj 606 213 t f f;
#X obj 606 256 -;
#X obj 638 236 int;
#X obj 606 280 ==;
#X obj 231 562 spigot;
#X obj 402 49 t b f f;
#X obj 376 150 spigot 1;
#X obj 727 148 t a b a a b;
#X obj 485 122 t f;
#X obj 606 52 t b f f;
#X obj 570 171 t f f;
#X obj 630 129 s \$0-numa==;
#X text 651 92 If the burst amount is set to all \, the burst will
recalculate immediately on a new entry;
#X obj 630 107 !=;
#X obj 783 -65 receive \$0-bsmode;
#X obj 783 3 * 1;
#X obj 783 -42 ==;
#X obj 783 -20 t b f;
#X obj 178 -36 receive \$0-burstst;
#X obj 440 102 receive \$0-bu-reset;
#X connect 0 0 6 0;
#X connect 0 1 8 0;
#X connect 1 0 23 0;
#X connect 2 0 53 0;
#X connect 3 0 4 0;
#X connect 5 0 59 1;
#X connect 6 0 25 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 98 0;
#X connect 11 0 34 0;
#X connect 11 1 45 0;
#X connect 12 1 56 1;
#X connect 14 0 16 0;
#X connect 14 1 15 0;
#X connect 15 0 20 0;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 20 0 17 0;
#X connect 20 1 19 0;
#X connect 20 2 10 0;
#X connect 22 0 61 1;
#X connect 23 0 26 0;
#X connect 23 1 60 1;
#X connect 24 0 82 0;
#X connect 25 0 61 0;
#X connect 25 1 60 0;
#X connect 25 2 73 0;
#X connect 26 0 22 0;
#X connect 29 0 70 0;
#X connect 30 0 73 1;
#X connect 31 0 32 0;
#X connect 32 0 35 0;
#X connect 34 0 49 0;
#X connect 36 0 68 0;
#X connect 37 0 93 0;
#X connect 38 0 0 0;
#X connect 39 0 97 0;
#X connect 40 0 95 0;
#X connect 43 0 6 0;
#X connect 44 0 84 0;
#X connect 45 0 49 0;
#X connect 46 0 88 0;
#X connect 47 0 25 0;
#X connect 48 0 52 0;
#X connect 48 0 103 0;
#X connect 49 0 41 0;
#X connect 49 1 42 0;
#X connect 49 2 50 1;
#X connect 49 3 50 0;
#X connect 49 4 80 0;
#X connect 49 5 31 0;
#X connect 50 0 51 1;
#X connect 51 0 49 0;
#X connect 52 0 92 0;
#X connect 52 1 25 0;
#X connect 53 0 3 0;
#X connect 53 1 8 0;
#X connect 54 0 78 0;
#X connect 55 0 12 0;
#X connect 56 0 14 0;
#X connect 58 0 67 0;
#X connect 59 0 70 0;
#X connect 60 0 29 0;
#X connect 61 0 11 0;
#X connect 62 0 83 0;
#X connect 62 2 69 0;
#X connect 63 0 62 0;
#X connect 63 1 1 1;
#X connect 63 2 62 1;
#X connect 63 3 30 0;
#X connect 67 0 5 0;
#X connect 68 0 24 0;
#X connect 68 1 24 2;
#X connect 69 0 71 0;
#X connect 71 0 83 1;
#X connect 73 0 63 0;
#X connect 78 0 72 0;
#X connect 78 1 75 0;
#X connect 78 2 76 0;
#X connect 78 3 77 0;
#X connect 78 4 79 0;
#X connect 78 5 6 0;
#X connect 81 0 33 0;
#X connect 82 0 56 0;
#X connect 82 1 55 0;
#X connect 83 0 1 0;
#X connect 84 0 85 0;
#X connect 84 1 86 0;
#X connect 85 0 87 0;
#X connect 86 0 85 1;
#X connect 87 0 29 1;
#X connect 88 0 89 0;
#X connect 88 1 90 0;
#X connect 89 0 91 0;
#X connect 90 0 89 1;
#X connect 91 0 30 1;
#X connect 91 0 74 0;
#X connect 92 0 51 0;
#X connect 93 0 94 0;
#X connect 93 1 6 1;
#X connect 93 2 92 1;
#X connect 94 0 25 0;
#X connect 95 0 49 0;
#X connect 95 1 59 0;
#X connect 95 2 58 0;
#X connect 95 3 2 0;
#X connect 95 4 96 0;
#X connect 96 0 94 1;
#X connect 97 0 8 0;
#X connect 97 1 7 1;
#X connect 97 2 101 1;
#X connect 98 0 73 1;
#X connect 98 1 101 0;
#X connect 101 0 99 0;
#X connect 102 0 104 0;
#X connect 103 0 47 1;
#X connect 104 0 105 0;
#X connect 105 0 103 0;
#X connect 105 1 103 1;
#X connect 106 0 24 0;
#X connect 107 0 47 0;
#X restore 68 589 pd burst;
#X text 128 589 set burst toggles;
#X text 640 518 calculate Euclidean rhythm;
#X text 640 567 calculate end point;
#N canvas 459 132 692 605 minor-commands 0;
#X obj 140 56 receive \$0-meson;
#X obj 167 106 >;
#X obj 140 180 s \$0-meson2;
#X obj 140 154 != -1;
#X obj 167 129 s \$0-meson1;
#X obj 140 81 t f f;
#X obj 138 247 receive \$0-copyme;
#X text 241 273 send copy command to shareables;
#X obj 138 269 t a b b;
#X obj 177 293 v \$0-parent;
#X obj 177 315 s rthYJuk&U;
#X obj 157 338 v \$0nnumber;
#X obj 157 360 s dc&gkO9ID;
#X obj 138 388 s GG7HJ8I@;
#X obj 157 479 receive \$0-lastmess;
#X obj 157 502 t a b;
#X obj 157 547 list prepend;
#X obj 184 524 v \$0-ysize-2;
#X text 281 519 help process :a -last command;
#X obj 157 570 s \$0-ylostmess;
#X text 262 109 process mute command;
#X obj 424 334 receive \$0-burstnow;
#X obj 424 357 t b b b;
#X obj 463 380 s \$0-boo;
#X obj 443 403 s \$0-bu-n;
#X obj 424 426 s \$0-bu-reset;
#X text 530 394 process -burst command;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 1 0;
#X connect 6 0 8 0;
#X connect 8 0 13 0;
#X connect 8 1 11 0;
#X connect 8 2 9 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 17 0;
#X connect 16 0 19 0;
#X connect 17 0 16 1;
#X connect 21 0 22 0;
#X connect 22 0 25 0;
#X connect 22 1 24 0;
#X connect 22 2 23 0;
#X restore 551 543 pd minor-commands;
#X text 668 543 parse minor commands;
#X connect 21 0 22 0;
#X connect 80 0 81 0;
#X restore 20 100 pd guts;
#N canvas 424 89 622 679 e 0;
#X obj 285 139 inlet main;
#X obj 402 106 inlet key;
#X obj 129 685 outlet;
#X obj 192 476 iemguts/sendcanvas 1;
#X obj 285 162 route symbol;
#X obj 354 186 l2s;
#X msg 144 499 fontsize 9;
#X obj 129 186 unpack f f;
#X obj 186 208 - 5;
#X obj 129 230 pack f f f;
#X obj 129 252 cyclone/zl rev;
#X msg 180 306 obj 100 101 flatgui/entry \$3 \$2 grey black;
#X obj 163 329 * 3;
#X obj 129 283 t b b f a;
#X obj 163 376 t f f f f;
#X obj 402 247 f;
#X msg 470 173 1;
#X obj 470 250 s \$0-entryon;
#X obj 285 222 s \$0-symr;
#X msg 402 279 delete \$1;
#X obj 129 163 list;
#X obj 129 548 list;
#X obj 402 195 del 50;
#X obj 402 130 sel return escape;
#X obj 129 75 receive \$0-editor;
#X obj 205 120 receive \$0-pixsize;
#X obj 402 217 t b f;
#X obj 216 185 receive \$0-xsize-2;
#X obj 129 97 ctxfiles/sp01 1;
#X obj 129 137 t b b b;
#X obj 402 172 t b b b;
#X msg 197 404 connect 2 0 \$1 0;
#X msg 180 426 connect \$1 0 2 0;
#X msg 163 448 connect \$1 1 2 1;
#X obj 163 351 + 21;
#X obj 288 563 list trim;
#X obj 129 664 cyclone/prepend set;
#X obj 170 543 receive \$0-syms;
#X obj 288 585 route set;
#X obj 288 614 list;
#X obj 288 636 s2l;
#X obj 169 520 receive \$0-symrr;
#X obj 451 151 t b b;
#X connect 0 0 4 0;
#X connect 1 0 23 0;
#X connect 4 0 18 0;
#X connect 4 1 5 0;
#X connect 5 0 18 0;
#X connect 6 0 2 0;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 3 0;
#X connect 12 0 34 0;
#X connect 13 0 21 0;
#X connect 13 1 6 0;
#X connect 13 2 12 0;
#X connect 13 3 11 0;
#X connect 14 0 33 0;
#X connect 14 1 32 0;
#X connect 14 2 31 0;
#X connect 14 3 15 1;
#X connect 15 0 19 0;
#X connect 16 0 17 0;
#X connect 19 0 3 0;
#X connect 20 0 7 0;
#X connect 21 0 36 0;
#X connect 22 0 26 0;
#X connect 23 0 30 0;
#X connect 23 1 42 0;
#X connect 24 0 28 0;
#X connect 25 0 20 1;
#X connect 26 0 15 0;
#X connect 26 1 17 0;
#X connect 27 0 9 2;
#X connect 28 0 29 0;
#X connect 29 0 20 0;
#X connect 29 1 16 0;
#X connect 29 2 28 1;
#X connect 30 0 22 0;
#X connect 30 1 2 0;
#X connect 30 2 28 2;
#X connect 31 0 3 0;
#X connect 32 0 3 0;
#X connect 33 0 3 0;
#X connect 34 0 14 0;
#X connect 35 0 38 0;
#X connect 36 0 2 0;
#X connect 37 0 21 1;
#X connect 38 0 39 0;
#X connect 38 1 39 0;
#X connect 39 0 40 0;
#X connect 40 0 36 0;
#X connect 41 0 21 1;
#X connect 42 0 22 0;
#X connect 42 1 28 2;
#X restore 101 112 pd e;
#X obj 100 39 ctxfiles/license;
#X obj -539 -16 iemguts/initbang;
#X obj -539 6 ctxfiles/myinit 2;
#X obj -539 28 s \$0-myinit;
#X obj -438 5 iemguts/propertybang;
#X obj -438 27 s \$0-:g;
#X obj -681 6 iemguts/canvasargs;
#X obj -681 -18 receive \$0-iemargr;
#X obj -681 28 s \$0-iemargs;
#X obj 101 101 ctxfiles/overlay-0 \$0;
#X obj 102 102 cnv 2 2 34 empty \$0-block empty 0 -12 1 12 -262143
-1 0;
#N canvas 102 179 1157 573 face 0;
#X obj 857 419 iemguts/sendcanvas;
#X obj 857 397 receive \$0-facecan;
#X obj 488 34 + 1;
#X obj 488 56 +;
#X obj 493 154 f;
#X obj 493 179 * 6;
#X obj 666 138 f;
#X obj 666 160 - 1;
#X obj 493 201 t f f;
#X obj 666 182 div 36;
#X obj 257 240 receive \$0-search;
#X obj 257 476 s2l;
#X obj 488 78 max;
#X obj 257 262 list fromsymbol;
#X obj 284 306 cyclone/iter;
#X obj 317 354 moses 97;
#X obj 362 378 moses 123;
#X obj 362 402 - 32;
#X obj 257 284 t b l;
#X obj 257 454 list tosymbol;
#X obj 666 204 t f f f;
#X obj 705 228 moses;
#X obj 666 85 t b b;
#X msg 693 108 1;
#X obj 257 432 ctxfiles/collect;
#X obj 666 -14 receive \$0-mbangs;
#X obj 488 12 receive \$0-helpout;
#X obj 488 222 text get @(prefs@(;
#X text 378 354 force upper case;
#X obj 693 131 s \$0-blippp;
#X obj 257 499 text search @(prefs@( 1;
#X obj 639 62 demux;
#X obj 705 250 t b b;
#X obj 705 272 t f;
#X obj 559 101 !=;
#X obj 700 55 ctxfiles/sp01;
#X obj 666 31 del 200;
#X text 733 24 sense double clicks;
#N canvas 703 230 450 300 relabel 0;
#X obj 130 48 inlet;
#X obj 164 144 else/order;
#X obj 164 167 list append \$0;
#X msg 164 189 \; \$3-\$1-rehelp \$2;
#X obj 130 73 t a b;
#X obj 130 122 list split 1;
#X obj 157 97 s \$0-relbof;
#X msg 104 167 set \$1;
#X obj 104 189 s \$0-symr;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 7 0;
#X connect 5 1 1 0;
#X connect 7 0 8 0;
#X restore 488 355 pd relabel;
#N canvas 493 166 450 348 print 0;
#X obj 183 27 inlet;
#X obj 217 144 text fromlist \$0-printm;
#X obj 63 198 text define \$0-printm;
#X obj 200 198 text sequence \$0-printm;
#X msg 200 169 line 0 \, bang;
#X msg 227 242  ;
#X obj 200 265 list trim;
#X obj 200 220 t a b;
#X msg 63 177 clear;
#X obj 183 51 t b b a a;
#X obj 234 77 list split 1;
#X msg 234 99 set \$1;
#X obj 234 121 s \$0-symr;
#X obj 200 287 print -n;
#X connect 0 0 9 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 13 0;
#X connect 6 0 13 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 8 0 2 0;
#X connect 9 0 8 0;
#X connect 9 1 4 0;
#X connect 9 2 1 0;
#X connect 9 3 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X restore 488 380 pd print;
#X obj 493 128 receive \$0-relbof;
#N canvas 395 196 805 437 f-input 0;
#X obj 325 8 inlet;
#X obj 401 97 makefilename \$0-%s-fetch;
#X obj 382 121 symbol \$0-fifetch;
#X obj 382 143 send;
#X obj 382 165 receive \$0-fifetch;
#X obj 382 188 unpack s f;
#X obj 472 275 inlet;
#X obj 439 253 receive \$0-morphf;
#X obj 439 296 spigot;
#X obj 382 74 t b s s;
#X obj 508 296 makefilename :%s;
#X msg 439 210 set \$1;
#X obj 439 232 s \$0-dr;
#X obj 439 348 list prepend;
#X obj 325 30 list split 2;
#X obj 325 52 unpack s s;
#X obj 226 314 list append $ 0;
#X obj 226 358 s \$0-dr;
#X msg 226 336 param 5 \$1 \$2 - - \$3\$4-dr \$3\$4-:d2;
#X obj 306 99 t b;
#X obj 306 121 s \$0-dirtyy;
#X obj 110 164 list trim;
#X text 28 189 special cases;
#X obj 110 324 pack;
#X obj 439 370 s \$0-undone2;
#X obj 110 214 unpack;
#X obj 143 238 t b f;
#X obj 190 214 unpack;
#X obj 223 238 t b f;
#X obj 131 295 +;
#X obj 439 320 t f b;
#X obj 519 370 s \$0-sett1;
#X obj 535 348 outlet;
#X obj 508 318 t s s;
#X obj 131 273 v \$0-xy21;
#X obj 223 274 v \$0-yx21;
#X obj 110 188 route #p #q #r;
#X obj 285 188 v \$0-xy21;
#X obj 285 211 + 1;
#X obj 285 234 t f f;
#X obj 285 257 * -1;
#X connect 0 0 14 0;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 5 1 11 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 30 0;
#X connect 9 0 2 0;
#X connect 9 1 1 0;
#X connect 9 2 10 0;
#X connect 10 0 33 0;
#X connect 11 0 12 0;
#X connect 13 0 24 0;
#X connect 14 0 15 0;
#X connect 14 1 21 0;
#X connect 15 0 19 0;
#X connect 15 1 9 0;
#X connect 16 0 18 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 21 0 36 0;
#X connect 23 0 16 0;
#X connect 25 0 23 0;
#X connect 25 1 26 0;
#X connect 26 0 34 0;
#X connect 26 1 29 1;
#X connect 27 0 23 0;
#X connect 27 1 28 0;
#X connect 28 0 35 0;
#X connect 28 1 29 1;
#X connect 29 0 23 1;
#X connect 30 0 13 0;
#X connect 30 1 31 0;
#X connect 33 0 13 1;
#X connect 33 1 32 0;
#X connect 34 0 29 0;
#X connect 35 0 29 0;
#X connect 36 0 25 0;
#X connect 36 1 27 0;
#X connect 36 2 37 0;
#X connect 36 3 16 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 1 23 1;
#X connect 40 0 23 0;
#X restore 488 404 pd f-input;
#X obj 732 272 s \$0-symprop;
#X obj 98 119 cnv 1 30 1 empty \$0-underline empty 20 12 0 14 -262143
-1 0;
#X obj 214 90 bng 17 250 50 0 \$0-mbangs \$0-mbangr ^ 4 12 0 15 -128975
-262144 -262144;
#X obj 92 117 ctxfiles/helpm \$0 ► TIMING           
0;
#X obj 92 134 ctxfiles/helpm \$0 ► BURST            
1;
#N canvas 110 138 450 389 underline 0;
#X obj 153 22 inlet;
#X msg 222 312 pos 98 119;
#X obj 222 334 s \$0-underline;
#X obj 122 206 outlet;
#X obj 165 206 outlet;
#X obj 209 206 outlet;
#X obj 153 44 list split 1;
#X obj 48 98 t b b f f;
#X obj 119 98 t b b f f;
#X obj 260 98 t b b f f;
#X obj 153 70 sel -f -s -c;
#X obj 190 98 t f b f f;
#X obj 122 183 f 1;
#X obj 165 182 f 1;
#X obj 208 182 f 1;
#X obj 73 233 f 24;
#X obj 123 233 f 27;
#X obj 73 260 array get params£ 0 3;
#X msg 73 284 pos \$2 90 \, vis_size \$1 \$3;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 6 0 10 0;
#X connect 7 0 15 0;
#X connect 7 1 12 0;
#X connect 7 2 4 0;
#X connect 7 3 5 0;
#X connect 8 0 16 0;
#X connect 8 1 13 0;
#X connect 8 2 3 0;
#X connect 8 3 5 0;
#X connect 9 0 1 0;
#X connect 9 1 14 0;
#X connect 9 2 4 0;
#X connect 9 3 3 0;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 10 2 11 0;
#X connect 10 3 9 0;
#X connect 11 0 5 0;
#X connect 11 1 1 0;
#X connect 11 2 3 0;
#X connect 11 3 4 0;
#X connect 12 0 3 0;
#X connect 13 0 4 0;
#X connect 14 0 5 0;
#X connect 15 0 17 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 2 0;
#X restore 557 355 pd underline;
#X obj 488 101 t f f f;
#X obj 525 331 cyclone/iter;
#N canvas 649 167 481 492 s-input 0;
#X obj 109 7 inlet;
#X obj 189 102 makefilename \$0-%s-fetch;
#X obj 170 148 send;
#X obj 231 303 inlet;
#X obj 143 52 t b s s;
#X obj 300 399 makefilename :%s;
#X msg 204 238 set \$1;
#X obj 231 443 list prepend;
#X obj 231 465 s \$0-undone2;
#X obj 204 281 receive \$0-morphsy;
#X obj 170 193 list split 1;
#X obj 204 215 l2s;
#X obj 231 369 s2l;
#X obj 143 77 demux;
#X msg 143 238 set  ;
#X obj 204 260 s \$0-symr;
#X obj 170 170 receive \$0-smfetch;
#X obj 170 126 symbol \$0-smfetch;
#X obj 109 29 unpack s s f f;
#X obj 231 391 demux;
#X obj 245 415 s \$0ncs;
#X obj 258 369 s \$0-sett1;
#X obj 231 346 t s b;
#X obj 319 443 outlet;
#X msg 366 443 set 0;
#X obj 366 465 s \$0-dr;
#X obj 300 421 t s s b;
#X obj 204 324 demux;
#X obj 158 369 s \$0-search;
#X connect 0 0 18 0;
#X connect 1 0 2 1;
#X connect 3 0 27 1;
#X connect 4 0 13 0;
#X connect 4 1 1 0;
#X connect 4 2 5 0;
#X connect 5 0 26 0;
#X connect 6 0 15 0;
#X connect 7 0 8 0;
#X connect 9 0 27 0;
#X connect 10 1 11 0;
#X connect 11 0 6 0;
#X connect 12 0 19 0;
#X connect 13 0 14 0;
#X connect 13 1 17 0;
#X connect 14 0 15 0;
#X connect 16 0 10 0;
#X connect 17 0 2 0;
#X connect 18 1 4 0;
#X connect 18 2 13 1;
#X connect 18 3 19 1;
#X connect 19 0 7 0;
#X connect 19 1 20 0;
#X connect 22 0 12 0;
#X connect 22 1 21 0;
#X connect 24 0 25 0;
#X connect 26 0 7 1;
#X connect 26 1 23 0;
#X connect 26 2 24 0;
#X connect 27 0 28 0;
#X connect 27 1 22 0;
#X restore 488 427 pd s-input;
#N canvas 556 168 721 588 select 0;
#X obj 286 7 inlet;
#X obj 313 172 list split 3;
#X obj 313 194 unpack s s f;
#X obj 286 29 t a a;
#X obj 313 53 list split 1;
#X obj 313 75 t s s;
#X msg 353 124 1;
#X text 387 97 detect double clicks;
#X obj 286 149 demux;
#X obj 228 335 mod;
#X obj 228 312 f;
#X obj 254 312 + 1;
#X obj 366 241 makefilename \$0-%s-fetch;
#X obj 347 287 send;
#X obj 347 352 unpack s f;
#X obj 347 218 t b s s;
#X obj 347 265 symbol \$0-sifetch;
#X obj 347 309 receive \$0-sifetch;
#X obj 314 125 t f;
#X obj 454 413 t a b;
#X obj 454 435 cyclone/iter;
#X msg 539 435 clear;
#X obj 539 457 text define \$0-symcycle;
#X obj 454 485 text set \$0-symcycle 99999;
#X obj 228 511 text get \$0-symcycle;
#X obj 336 376 makefilename :%s;
#X obj 267 422 list prepend;
#X text 500 408 send options to buffer;
#X text 87 366 cycle through options;
#X msg 228 533 set \$1;
#X obj 228 357 t f f f;
#X msg 247 468 set \$1;
#X obj 247 490 s \$0-dr;
#X obj 228 555 s \$0-symr;
#X obj 428 180 inlet;
#X obj 48 232 spigot;
#X obj 48 208 receive \$0-morphsy;
#X obj 194 254 spigot;
#X obj 194 230 receive \$0-morphf;
#X obj 48 276 moses;
#X obj 48 254 text search \$0-symcycle;
#X obj 347 331 t a b;
#X obj 300 357 t f;
#X obj 267 381 spigot;
#X obj 228 281 t a b;
#X msg 290 335 1;
#X obj 314 102 sel dUm;
#X obj 480 154 sel 0;
#X msg 480 176 symbol dUm;
#X obj 267 444 s \$0-undone2;
#X obj 363 443 outlet;
#X obj 276 172 t b b;
#X obj 336 398 t s s;
#X obj 363 421 symbol;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 1 19 0;
#X connect 2 1 15 0;
#X connect 2 2 9 1;
#X connect 3 0 8 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 46 1;
#X connect 5 1 46 0;
#X connect 6 0 8 1;
#X connect 8 0 51 0;
#X connect 8 1 1 0;
#X connect 9 0 30 0;
#X connect 10 0 9 0;
#X connect 10 0 11 0;
#X connect 11 0 10 1;
#X connect 12 0 13 1;
#X connect 14 1 10 0;
#X connect 15 0 16 0;
#X connect 15 1 12 0;
#X connect 15 2 25 0;
#X connect 16 0 13 0;
#X connect 17 0 41 0;
#X connect 18 0 8 1;
#X connect 19 0 20 0;
#X connect 19 1 21 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 24 0 29 0;
#X connect 25 0 52 0;
#X connect 26 0 49 0;
#X connect 29 0 33 0;
#X connect 30 0 24 0;
#X connect 30 1 31 0;
#X connect 30 2 43 0;
#X connect 31 0 32 0;
#X connect 34 0 35 1;
#X connect 34 0 37 1;
#X connect 34 0 47 0;
#X connect 35 0 40 0;
#X connect 36 0 35 0;
#X connect 37 0 44 0;
#X connect 38 0 37 0;
#X connect 39 1 44 0;
#X connect 40 0 39 0;
#X connect 41 0 14 0;
#X connect 41 1 42 0;
#X connect 42 0 43 1;
#X connect 43 0 26 0;
#X connect 44 0 10 0;
#X connect 44 1 45 0;
#X connect 45 0 43 1;
#X connect 46 0 18 0;
#X connect 46 1 6 0;
#X connect 47 0 48 0;
#X connect 48 0 46 1;
#X connect 51 0 44 0;
#X connect 51 1 53 0;
#X connect 52 0 26 1;
#X connect 52 1 53 0;
#X connect 53 0 50 0;
#X restore 488 449 pd select;
#N canvas 651 456 590 297 shortcuts 0;
#X obj 166 54 inlet;
#X obj 166 122 text get *(shortcuts@#;
#X obj 166 78 t b;
#X obj 166 100 t f;
#X obj 166 144 outlet;
#X obj 343 57 inlet;
#X obj 343 79 list split 1;
#X obj 377 101 t b f;
#X obj 377 123 t f;
#X obj 377 145 text get *(shortcuts@#;
#X obj 377 167 list split 1;
#X obj 377 189 outlet;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 5 0 6 0;
#X connect 6 1 7 0;
#X connect 7 0 8 0;
#X connect 7 1 9 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X restore 488 493 pd shortcuts;
#X msg 58 307 symbol  ;
#X obj 284 328 sel 45;
#X msg 284 402 194 160;
#X obj 92 185 ctxfiles/helpm \$0 ► OTHER            
4;
#X obj 92 202 ctxfiles/helpm \$0 ► SHORTCUTS         5;
#X obj 92 168 ctxfiles/helpm \$0 ► ID               
3;
#X obj 92 151 ctxfiles/helpm \$0 ► MESSAGES          2
;
#X obj 305 51 sel 0;
#N canvas 65 89 450 300 command 0;
#X obj 121 42 inlet;
#X obj 121 80 list split 1;
#X obj 155 102 s \$0-undone2;
#X obj 116 134 l2s;
#X msg 116 156 set \$1;
#X obj 116 178 s \$0-symr;
#X connect 0 0 1 0;
#X connect 1 1 2 0;
#X connect 1 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X restore 488 471 pd command;
#X obj 197 203 cnv 15 2 15 empty empty empty 0 8 0 14 -1 -262144 0
;
#X obj 198 203 cnv 15 25 15 empty \$0-menlab empty 0 8 0 14 -262127
-1 0;
#X msg 426 503 label \$1;
#X obj 426 525 s \$0-menlab;
#X msg 404 480 label;
#X msg 613 451 set  ;
#X obj 613 474 s \$0-symr;
#X obj 639 403 t b b;
#X obj 666 8 t b b b b;
#X obj 856 471 receive \$0-helpdel;
#X obj 856 493 iemguts/canvasdelete 1;
#X obj 488 309 route -m -p -g -f -s -t -c -h -l;
#X obj 488 287 t a a b;
#X obj 488 265 list trim;
#X obj 269 148 receive \$0-menuc;
#X obj 269 170 route float;
#X obj 332 193 l2s;
#X obj 666 427 s \$0-:g;
#X obj 591 36 pipe 201;
#X msg 234 91 label ^ \, label_font 0 15 \, label_pos 4 12;
#X msg 236 116 label < \, label_font 0 10 \, label_pos 5 8;
#X text 773 100 -m re-label menu: TITLE l1 l2 l3 l4 l5 l6 ( ** for
blank ) \; -p print: TITLE :: list par1 [separator] par2 \; -g goto
location: line-no \; -f float input: TITLE indicator min max (special:
#p #q or #r \, bottom \, top offset) \; -s symbol input: TITE \, indicator
\, display-opt \; -t select input: TITLE indicator length opt1 opt2...
\; -c context command: TITLE command \; -h shortcuts title \; -l shortcuts
list;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 12 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 8 0 3 1;
#X connect 8 1 6 1;
#X connect 9 0 20 0;
#X connect 10 0 13 0;
#X connect 11 0 30 0;
#X connect 12 0 48 0;
#X connect 13 0 18 0;
#X connect 14 0 54 0;
#X connect 15 0 24 1;
#X connect 15 1 16 0;
#X connect 16 0 17 0;
#X connect 16 1 24 1;
#X connect 17 0 24 1;
#X connect 18 0 24 0;
#X connect 18 1 14 0;
#X connect 19 0 11 0;
#X connect 20 0 12 0;
#X connect 20 1 4 0;
#X connect 20 2 21 0;
#X connect 21 0 32 0;
#X connect 22 0 6 0;
#X connect 22 1 23 0;
#X connect 23 0 29 0;
#X connect 24 0 19 0;
#X connect 25 0 70 0;
#X connect 26 0 2 0;
#X connect 27 0 75 0;
#X connect 30 0 12 0;
#X connect 31 0 69 0;
#X connect 31 1 22 0;
#X connect 32 0 33 0;
#X connect 32 1 42 0;
#X connect 33 0 31 1;
#X connect 34 0 60 0;
#X connect 34 0 80 0;
#X connect 35 0 69 0;
#X connect 36 0 35 1;
#X connect 40 0 4 0;
#X connect 41 0 64 0;
#X connect 41 0 67 0;
#X connect 47 0 41 1;
#X connect 47 1 50 1;
#X connect 47 2 51 1;
#X connect 48 0 27 0;
#X connect 48 1 4 1;
#X connect 48 2 34 0;
#X connect 49 0 27 0;
#X connect 50 0 64 0;
#X connect 51 0 64 0;
#X connect 52 0 38 0;
#X connect 52 1 13 0;
#X connect 54 0 55 0;
#X connect 54 1 15 0;
#X connect 55 0 24 1;
#X connect 60 0 81 0;
#X connect 60 1 82 0;
#X connect 64 0 65 0;
#X connect 66 0 65 0;
#X connect 67 0 68 0;
#X connect 69 0 67 0;
#X connect 69 1 79 0;
#X connect 70 0 36 0;
#X connect 70 1 35 2;
#X connect 70 2 35 0;
#X connect 70 3 31 0;
#X connect 71 0 72 0;
#X connect 73 0 38 0;
#X connect 73 1 39 0;
#X connect 73 2 49 0;
#X connect 73 3 41 0;
#X connect 73 4 50 0;
#X connect 73 5 51 0;
#X connect 73 6 61 0;
#X connect 73 7 52 0;
#X connect 73 8 52 1;
#X connect 74 0 73 0;
#X connect 74 1 47 0;
#X connect 74 2 66 0;
#X connect 75 0 74 0;
#X connect 76 0 77 0;
#X connect 77 0 2 0;
#X connect 77 1 78 0;
#X connect 78 0 13 0;
#X connect 80 0 31 1;
#X connect 81 0 44 0;
#X connect 82 0 44 0;
#X coords 0 -1 1 1 145 138 0;
#X restore 100 98 pd face;
#X floatatom 101 101 3 0 0 0 - #0-dr #0-:d2, f 3;
#X symbolatom 124 101 3 0 0 0 - #0-symr #0-syms, f 3;
#N canvas 340 179 450 293 box 0;
#X obj 188 35 iemguts/sendcanvas;
#X obj 188 13 receive \$0-xboxes;
#X obj 101 98 tgl 12 0 \$0-x1 \$0-x1r empty 3 6 1 12 -128991 -128991
-128991 0 1;
#X obj 113 98 tgl 12 0 \$0-x2 \$0-x2r empty 3 6 1 12 -128991 -128991
-128991 0 2;
#X obj 125 98 tgl 12 0 \$0-x3 \$0-x3r empty 3 6 1 12 -128991 -128991
-128991 0 3;
#X obj 137 98 tgl 12 0 \$0-x4 \$0-x4r empty 3 6 1 12 -128991 -128991
-128991 0 4;
#X obj 149 98 tgl 12 0 \$0-x5 \$0-x5r empty 3 6 1 12 -128991 -128991
-128991 0 5;
#X connect 1 0 0 0;
#X coords 0 -1 1 1 62 12 2 100 98;
#X restore 100 137 pd box;
#N canvas 458 260 450 300 box 0;
#X obj 188 35 iemguts/sendcanvas;
#X obj 188 13 receive \$0-yboxes;
#X obj 100 98 tgl 12 0 \$0-y1 \$0-y1r empty 3 7 0 8 -128991 -128991
-128991 0 1;
#X obj 100 110 tgl 12 0 \$0-y2 \$0-y2r empty 3 7 0 8 -128991 -128991
-128991 0 2;
#X obj 100 122 tgl 12 0 \$0-y3 \$0-y3r empty 3 7 0 8 -128991 -128991
-128991 0 3;
#X connect 1 0 0 0;
#X coords 0 -1 1 1 12 36 2 100 98;
#X restore 149 101 pd box;
#X obj -573 59 receive \$0-myswitch;
#X obj -573 81 switch~;
#X obj -240 0 ctxfiles/cx 1 \$0 0 101;
#X obj -240 -23 inlet;
#X obj -240 24 outlet;
#X obj -180 5 ctxfiles/cx 2 \$0 1 113;
#X obj -180 -23 inlet;
#X obj -180 24 outlet;
#X obj -120 -3 ctxfiles/cx 3 \$0 2 125;
#X obj -120 -23 inlet;
#X obj -120 24 outlet;
#X obj -60 0 ctxfiles/cx 4 \$0 3 137;
#X obj -60 -22 inlet;
#X obj -60 24 outlet;
#X obj 0 0 ctxfiles/cx 5 \$0 4 149;
#X obj 0 -22 inlet;
#X obj 0 24 outlet;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 19 0 20 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 24 0 26 0;
#X connect 25 0 24 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;
#X coords 0 -1 1 1 62 54 2 100 98;