untik.pd

#N canvas 616 173 889 345 10;
#N canvas 624 75 434 119 NETPD 0;
#N canvas 315 75 403 152 abslist 0;
#X msg 6 33 untik-pattern-editor;
#X msg 7 80 untik-pattern-selector;
#X msg 7 56 untik-pattern-editor-display;
#X msg 6 10 untik-pattern-instance;
#X msg 243 11 untik-clock-provider;
#X msg 244 36 untik-clock-consumer;
#X msg 243 62 untik-event-scheduler;
#X msg 8 103 untik-pattern-player;
#X restore 12 38 pd abslist;
#X msg 11 63 singleton;
#X msg 12 8 version 0 1 1;
#X restore 10 14 pd NETPD 2 0;
#X obj 10 44 netpd_head \$1 untik;
#N canvas 614 40 761 55 \$1-untik 1;
#X obj 250 4 cnv 18 240 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 452 7 hsl 33 39 0 127 0 0 \$0.stepbeat.display.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 410 7 hsl 33 39 0 127 0 0 \$0.beatbar.display.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 256 7 hsl 75 39 0 127 0 0 \$0.step.display.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 340 7 hsl 61 39 0 127 0 0 \$0.bar.display.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 253 14 cnv 18 80 32 empty \$0.step.display 24764 5 16 0 24 #404060 #ccffcc 0;
#X obj 449 14 cnv 18 38 32 empty \$0.stepbeat.display 01 5 16 0 24 #404060 #ccffcc 0;
#X obj 407 14 cnv 18 38 32 empty \$0.beatbar.display 04 5 16 0 24 #404060 #ccffcc 0;
#X obj 337 14 cnv 18 66 32 empty \$0.bar.display 1548 5 16 0 24 #404060 #ccffcc 0;
#X obj 253 7 cnv 10 80 10 empty \$0.step.label pos 4 5 0 10 #404060 #ccffcc 0;
#X obj 449 7 cnv 10 38 10 empty \$0.stepbeat.label tick 4 5 0 10 #404060 #ccffcc 0;
#X obj 407 7 cnv 10 38 10 empty \$0.beatbar.label beat 4 5 0 10 #404060 #ccffcc 0;
#X obj 337 7 cnv 10 66 10 empty \$0.bar.label bar 4 5 0 10 #404060 #ccffcc 0;
#X obj 5 4 cnv 18 240 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 181 20 nbx 2 20 1 400 0 0 \$1-ticksperbeat \$1-ticksperbeat empty 0 -9 0 24 #404060 #00ff04 #000000 0 256;
#X obj 181 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 232 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 192 7 cnv 10 40 13 empty empty ticks 0 5 0 10 #404060 #00ff04 0;
#X obj 192 40 cnv 6 40 6 empty empty empty 0 5 0 10 #404060 #00ff04 0;
#X obj 177 4 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 174 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 121 20 nbx 2 20 1 400 0 0 \$1-beatsperbar \$1-beatsperbar empty 0 -9 0 24 #404060 #00ff04 #000000 0 256;
#X obj 121 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 172 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 132 7 cnv 10 40 13 empty empty beats 0 5 0 10 #404060 #00ff04 0;
#X obj 132 40 cnv 6 40 6 empty empty empty 0 5 0 10 #404060 #00ff04 0;
#X obj 117 4 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 44 20 nbx 3 20 1 400 0 0 \$1-bpm \$1-bpm empty 0 -9 0 24 #404060 #00ff04 #000000 0 256;
#X obj 44 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 114 7 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 55 7 cnv 10 66 13 empty empty bpm 0 5 0 10 #404060 #00ff04 0;
#X obj 55 40 cnv 6 66 6 empty empty empty 0 5 0 10 #404060 #00ff04 0;
#X obj 40 4 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 8 7 tgl 39 0 \$1-run \$1-run empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 8 7 cnv 12 39 39 empty empty empty 20 12 0 10 #404060 #404040 0;
#X obj 11 10 cnv 12 33 33 empty \$0.run.button.front empty 20 12 0 10 #00ff00 #00ff00 0;
#X obj 629 4 cnv 3 126 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 635 7 hsl 115 18 0 127 0 0 \$0.pattern.editor.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 635 28 hsl 115 18 0 127 0 0 \$0.loop.editor.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 632 7 cnv 10 120 18 empty \$0.pattern.editor.label pattern\ editor 3 9 0 14 #404060 #ccffcc 0;
#X obj 632 28 cnv 10 120 18 empty \$0.loop.editor.label loop\ editor 3 9 0 14 #404060 #ccffcc 0;
#X obj 495 4 cnv 18 129 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 501 7 hsl 75 39 0 127 0 0 \$0.sync.display.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 498 14 cnv 18 80 32 empty \$0.sync.display 0.0 5 16 0 24 #404060 #bcbcdc 0;
#X obj 498 7 cnv 10 80 10 empty \$0.sync.label sync\ delay 4 5 0 10 #404060 #bcbcdc 0;
#X obj 584 7 hsl 35 11 0 127 0 0 \$0.sync.auto.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 581 7 cnv 10 40 11 empty \$0.sync.auto.label auto 4 5 0 10 #404060 #00ff00 0;
#X obj 584 35 hsl 35 11 0 127 0 0 \$0.sync.ticks.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 584 21 hsl 35 11 0 127 0 0 \$0.sync.ms.click empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 581 21 cnv 10 40 11 empty \$0.sync.ms.label ms 4 5 0 10 #404060 #bcbcdc 0;
#X obj 581 35 cnv 10 40 11 empty \$0.sync.ticks.label ticks 4 5 0 10 #404060 #ccffcc 0;
#X restore 370 14 pd \$1-untik;
#X obj 10 114 loadbang;
#N canvas 1231 49 598 869 pattern.store 0;
#X msg 350 77 8;
#X obj 350 124 f;
#X obj 350 147 t a a;
#X obj 404 110 + 1;
#X obj 350 100 until;
#X obj 17 115 r \$0.patsel;
#X obj 17 138 route select;
#X obj 17 161 t a b;
#X msg 68 166 1;
#X obj 17 245 s \$0.pattern.name.r;
#X msg 17 222 set \$1;
#X obj 22 338 r \$0.pattern.name.s;
#X obj 91 363 r \$0.patsel;
#X obj 91 386 route select;
#X obj 22 409 list prepend;
#X msg 55 454 \$1;
#X obj 22 524 list append;
#X obj 22 547 t a a, f 18;
#X obj 22 572 list split 1;
#X obj 55 500 list split 1;
#X obj 243 251 r \$0.patted;
#X obj 356 257 r \$0.patsel;
#X obj 356 280 route select;
#X msg 434 327 1;
#X obj 268 376 list prepend, f 15;
#X obj 243 301 route pattern set;
#X text 21 317 -- change pattern name--;
#X text 14 94 -- set pattern name editor --;
#X text 250 232 -- write pattern to text --;
#X text 240 496 -- read pattern from text --;
#X obj 243 515 r \$0.patsel;
#X obj 243 538 route select;
#X obj 243 684 list split 1;
#X obj 243 342 t a b;
#X obj 356 328 f;
#X msg 395 329 0;
#X obj 356 303 t a a b b, f 13;
#X obj 243 276 spigot 1;
#X obj 277 710 t b a b;
#X msg 277 734 1;
#X msg 316 734 0;
#X obj 262 762 t a;
#N canvas 0 0 216 294 display.pattern 0;
#X obj 53 68 list prepend set;
#X obj 53 91 list trim;
#X obj 53 114 s \$0.patted;
#X obj 26 246 s \$0.pattern.length;
#X obj 60 206 s \$0.pattern.ticks;
#X obj 26 138 list split 1;
#X obj 60 160 list length;
#X msg 60 183 set \$1;
#X msg 26 225 set \$1;
#X obj 26 20 inlet;
#X obj 26 43 t a a;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 8 0 3 0;
#X connect 9 0 10 0;
#X connect 10 0 5 0;
#X connect 10 1 0 0;
#X restore 296 772 pd display.pattern;
#X obj 17 197 text get \$1-patterns;
#X obj 15 57 s \$0.pats.o.0;
#X obj 103 57 s \$0.pats.o.1;
#X obj 192 56 s \$0.pats.o.2;
#X obj 15 5 r \$0.pats.i;
#X text 348 6 -- INIT ----------;
#X msg 207 140 click;
#X obj 207 163 s \$0.pats.i;
#X obj 356 350 text get \$1-patterns;
#X obj 243 654 text get \$1-patterns;
#X obj 55 477 text get \$1-patterns;
#X obj 56 596 list prepend, f 13;
#X obj 56 618 list trim;
#X obj 56 642 s \$0.pats.i;
#X msg 382 378 set \$1 -1;
#X msg 127 573 set \$1 -1;
#X obj 268 405 list prepend;
#X obj 268 428 list trim;
#X obj 268 451 s \$0.pats.i;
#X obj 15 30 netpd_text \$1 patterns, f 30;
#X obj 350 192 text set \$1-patterns;
#X obj 350 51 t b b;
#X msg 439 119 1e+15;
#X msg 350 170 symbol pattern\$1;
#X obj 350 25 r \$0.loadbang.0;
#X obj 22 432 t a a, f 6;
#X obj 373 571 r \$0.pats.o.2;
#X obj 373 635 route set;
#X obj 373 659 route -1;
#X obj 373 681 list split 2;
#X obj 437 598 r \$1.NETPD;
#X obj 437 621 route remote_origin;
#X obj 373 600 spigot 0;
#N canvas 45 143 711 655 update.pattern.names 0;
#X obj 9 95 s \$0.patsel;
#X obj 9 26 r \$0.pats.o.2;
#X obj 9 49 route set;
#X msg 9 72 \$1 setlabel \$3;
#X text 7 2 -- update pattern name ---;
#X obj 235 32 r \$0.pats.o.2;
#X obj 235 55 route fromlist;
#X text 215 2 -- refresh all names after dump ---;
#X msg 235 105 8;
#X obj 235 152 f;
#X obj 297 161 + 1;
#X obj 235 128 until;
#X obj 235 79 t b b;
#X msg 286 119 0;
#X obj 256 198 text get \$1-patterns;
#X obj 235 175 t a a a;
#X obj 255 293 list split 1;
#X obj 235 397 s \$0.patsel;
#X obj 235 321 list append;
#X msg 235 374 \$1 setlabel \$2;
#X obj 480 361 r \$0.patsel;
#X obj 480 384 route select;
#X obj 435 408 route -1;
#X obj 235 344 t a a;
#X msg 435 455 set \$1;
#X obj 435 477 s \$0.pattern.name.r;
#X obj 435 431 symbol;
#X obj 256 221 t a a;
#X obj 235 248 t a a;
#X text 443 3 -- refresh pattern-player after dump ---;
#X obj 563 77 list prepend -1;
#X obj 500 121 list append;
#X obj 500 144 list prepend set;
#X obj 500 167 list trim;
#X obj 500 190 s \$0.pats.o.2;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 8 0 11 0;
#X connect 9 0 15 0;
#X connect 10 0 9 1;
#X connect 11 0 9 0;
#X connect 12 0 8 0;
#X connect 12 1 13 0;
#X connect 13 0 9 1;
#X connect 14 0 27 0;
#X connect 15 0 28 0;
#X connect 15 1 14 0;
#X connect 15 2 10 0;
#X connect 16 0 18 1;
#X connect 18 0 23 0;
#X connect 19 0 17 0;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 19 0;
#X connect 23 1 22 0;
#X connect 24 0 25 0;
#X connect 26 0 24 0;
#X connect 27 0 16 0;
#X connect 27 1 30 0;
#X connect 28 0 18 0;
#X connect 28 1 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X restore 20 701 pd update.pattern.names;
#X msg 373 714 set \$2;
#X obj 373 737 s \$0.pattern.name.r;
#X obj 255 561 r \$0.pats.o.2;
#X obj 255 584 route fromlist;
#X obj 243 630 f;
#X obj 255 607 b;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 66 0;
#X connect 2 1 3 0;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 43 0;
#X connect 7 1 8 0;
#X connect 8 0 43 2;
#X connect 10 0 9 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 68 0;
#X connect 15 0 53 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 58 0;
#X connect 18 1 54 0;
#X connect 19 1 16 1;
#X connect 20 0 37 0;
#X connect 21 0 22 0;
#X connect 22 0 36 0;
#X connect 23 0 51 2;
#X connect 24 0 59 0;
#X connect 25 0 33 0;
#X connect 25 1 33 0;
#X connect 30 0 31 0;
#X connect 31 0 71 1;
#X connect 31 0 81 0;
#X connect 32 1 38 0;
#X connect 33 0 24 0;
#X connect 33 1 34 0;
#X connect 34 0 51 0;
#X connect 35 0 51 1;
#X connect 36 0 34 0;
#X connect 36 1 57 0;
#X connect 36 2 35 0;
#X connect 36 3 23 0;
#X connect 37 0 25 0;
#X connect 38 0 39 0;
#X connect 38 1 42 0;
#X connect 38 2 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 0;
#X connect 41 0 37 1;
#X connect 43 0 10 0;
#X connect 47 0 62 0;
#X connect 49 0 50 0;
#X connect 51 0 24 1;
#X connect 52 0 32 0;
#X connect 53 0 19 0;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 57 0 59 1;
#X connect 58 0 54 1;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 62 0 44 0;
#X connect 62 1 45 0;
#X connect 62 2 46 0;
#X connect 64 0 0 0;
#X connect 64 1 65 0;
#X connect 65 0 63 1;
#X connect 66 0 63 0;
#X connect 67 0 64 0;
#X connect 68 0 16 0;
#X connect 68 1 15 0;
#X connect 69 0 75 0;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 72 0 77 0;
#X connect 72 1 38 0;
#X connect 73 0 74 0;
#X connect 74 0 75 1;
#X connect 75 0 70 0;
#X connect 77 0 78 0;
#X connect 79 0 80 0;
#X connect 80 0 82 0;
#X connect 81 0 52 0;
#X connect 82 0 81 0;
#X restore 180 74 pd pattern.store;
#N canvas 0 0 261 500 create.regular.grid 0;
#X obj 10 150 t a a a, f 22;
#X obj 139 174 /;
#X msg 74 174 \$2;
#X msg 119 222 0;
#X obj 74 222 until;
#X obj 74 247 f;
#X obj 74 271 t a a;
#X obj 114 252 + 1;
#X obj 74 297 *, f 11;
#X obj 49 374 list store;
#X msg 74 322 append \$1;
#X obj 10 331 t a b b;
#X obj 10 400 list append;
#X msg 10 177 \$1;
#X obj 74 197 t a b, f 8;
#X obj 10 423 list prepend set;
#X obj 10 446 list trim;
#X obj 10 469 s \$0.patted;
#X obj 10 6 r \$0.pattern.length;
#X obj 137 10 r \$0.pattern.ticks;
#X obj 137 57 t b a;
#X obj 10 112 pack 4 4;
#X obj 10 86 f;
#X obj 137 32 route float set;
#X obj 10 32 route float set;
#X connect 0 0 13 0;
#X connect 0 1 2 0;
#X connect 0 2 1 0;
#X connect 1 0 8 1;
#X connect 2 0 14 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 9 0 12 1;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 11 1 9 1;
#X connect 11 2 9 0;
#X connect 12 0 15 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 3 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 18 0 24 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 20 1 21 1;
#X connect 21 0 0 0;
#X connect 22 0 21 0;
#X connect 23 0 20 0;
#X connect 23 1 21 1;
#X connect 24 0 22 0;
#X connect 24 1 22 1;
#X restore 180 104 pd create.regular.grid;
#N canvas 1386 40 660 150 \$1-untik-pattern-editor 0;
#X obj 8 63 cnv 18 641 46 empty empty empty 20 12 0 10 #8080a0 #404040 0;
#X obj 46 66 untik-pattern-editor \$0.patted;
#X obj 12 66 cnv 18 30 40 empty empty empty 20 12 0 10 #303050 #404040 0;
#X obj 11 66 nbx 2 20 1 99 0 0 \$0.pattern.length \$0.pattern.length empty 0 -9 0 10 #303050 #66dd00 #ffffff 0 256;
#X obj 11 86 nbx 2 20 1 99 0 0 \$0.pattern.ticks \$0.pattern.ticks empty 0 -9 0 10 #303050 #66dd00 #ffffff 0 256;
#X obj 8 32 cnv 18 641 30 empty empty empty 20 12 0 10 #606080 #404040 0;
#X obj 11 35 untik-pattern-selector \$0 0;
#X obj 91 35 untik-pattern-selector \$0 1;
#X obj 171 35 untik-pattern-selector \$0 2;
#X obj 251 35 untik-pattern-selector \$0 3;
#X obj 331 35 untik-pattern-selector \$0 4;
#X obj 411 35 untik-pattern-selector \$0 5;
#X obj 491 35 untik-pattern-selector \$0 6;
#X obj 571 35 untik-pattern-selector \$0 7;
#X obj 8 110 cnv 18 641 30 empty empty empty 4 14 0 16 #606080 #c0c0e0 0;
#X obj 184 113 cnv 18 82 23 empty empty empty 20 12 0 10 #b0b0d0 #404040 0;
#X symbolatom 184 113 9 0 0 0 - \$0.pattern.name.r \$0.pattern.name.s 16;
#X obj 8 7 cnv 18 641 24 empty empty untik\ pattern\ editor 4 12 0 20 #404060 #8080a0 0;
#N canvas 45 143 480 288 \$0.pattern.enable 0;
#X obj 23 20 hsl 95 21 0 127 0 0 \$0.pat.en.click empty empty -2 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 20 20 cnv 20 100 21 empty \$0.pat.en.label active 4 11 0 14 #8080a0 #ccffcc 0;
#X obj 81 88 sel 0;
#X obj 121 89 t a;
#X obj 81 65 r \$0.pat.en.click;
#X obj 264 225 s \$0.pat.en.label;
#X msg 335 163 label \$1;
#X obj 335 135 symbol;
#X obj 81 111 == 0;
#X obj 233 61 sel 0 1, f 16;
#X msg 233 137 #bcbcdc;
#X msg 233 189 color #8080a0 0 \$1;
#X obj 233 165 symbol;
#X msg 335 108 inactive;
#X msg 396 107 active;
#X obj 114 165 route set;
#X obj 24 137 t a a;
#X obj 51 160 t a a;
#X msg 24 189 enable \$1;
#X obj 24 212 s \$0.pat.en;
#X obj 114 142 r \$0.pat.en;
#X msg 279 108 #ccffcc;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 16 0;
#X connect 9 0 13 0;
#X connect 9 0 10 0;
#X connect 9 1 14 0;
#X connect 9 1 21 0;
#X connect 10 0 12 0;
#X connect 11 0 5 0;
#X connect 12 0 11 0;
#X connect 13 0 7 0;
#X connect 14 0 7 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 16 1 17 0;
#X connect 17 0 8 1;
#X connect 17 1 9 0;
#X connect 18 0 19 0;
#X connect 20 0 15 0;
#X connect 21 0 12 0;
#X coords 0 -1 1 1 100 21 2 20 20;
#X restore 12 114 pd \$0.pattern.enable;
#X obj 268 110 cnv 18 60 30 empty empty empty 4 14 0 16 #606080 #c0c0e0 0;
#X obj 124 110 cnv 18 60 30 empty empty name: 4 14 0 16 #606080 #c0c0e0 0;
#X restore 370 44 pd \$1-untik-pattern-editor;
#N canvas 382 54 325 612 active.state 0;
#X msg 15 489 set \$1;
#X obj 19 56 route enable;
#X obj 19 33 r \$0.pat.en;
#X obj 15 514 s \$0.pat.en;
#X obj 15 274 route select;
#X obj 15 251 r \$0.patsel;
#X obj 15 420 list length;
#X obj 15 443 > 1;
#X text 5 234 -- reflect state in "active" button --;
#X obj 91 496 sel 0;
#X obj 15 466 t a a;
#X msg 91 519 set 0;
#X obj 101 541 s \$0.pattern.ticks;
#X obj 91 561 s \$0.pattern.length;
#X obj 46 169 s \$0.pattern.ticks;
#X obj 19 190 s \$0.pattern.length;
#X text 18 12 -- create regular grid ---;
#X obj 19 124 t a a;
#X msg 46 146 set \$1;
#X obj 19 78 sel 1 0;
#X obj 195 174 s \$0.patted;
#X msg 195 151 set;
#X obj 15 397 text get \$1-patterns;
#X obj 19 100 f 5, f 4;
#X obj 116 260 r \$0.pats.o.2;
#X obj 116 306 b;
#X obj 15 360 f;
#X obj 116 283 route fromlist set;
#X obj 168 328 route -1;
#X obj 15 298 t a a;
#X obj 168 366 list length;
#X obj 168 389 > 2;
#X obj 55 101 netpd_r \$1 ticksperbeat;
#X connect 0 0 3 0;
#X connect 1 0 19 0;
#X connect 2 0 1 0;
#X connect 4 0 29 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 0 0;
#X connect 10 1 9 0;
#X connect 11 0 12 0;
#X connect 11 0 13 0;
#X connect 17 0 15 0;
#X connect 17 1 18 0;
#X connect 18 0 14 0;
#X connect 19 0 23 0;
#X connect 19 1 21 0;
#X connect 21 0 20 0;
#X connect 22 0 6 0;
#X connect 23 0 17 0;
#X connect 24 0 27 0;
#X connect 25 0 26 0;
#X connect 26 0 22 0;
#X connect 27 0 25 0;
#X connect 27 1 28 0;
#X connect 28 0 30 0;
#X connect 29 0 26 0;
#X connect 29 1 28 1;
#X connect 30 0 31 0;
#X connect 31 0 10 0;
#X connect 32 0 23 1;
#X restore 180 134 pd active.state;
#X obj 10 137 t b b b;
#X obj 49 161 s \$0.loadbang.0;
#X msg 10 182 select 0;
#X obj 10 205 s \$0.patsel;
#N canvas 1383 43 731 802 main.clock 0;
#X obj 22 112 metro 1 120 permin;
#X obj 22 135 f;
#X obj 22 219 t a a;
#X obj 96 149 + 1, f 4;
#X msg 22 74 tempo \$1 \$2;
#X obj 22 23 r \$0.untik;
#X obj 22 307 s \$0.untik;
#X obj 22 46 route tempo run set;
#X msg 248 252 tempo \$1 permin;
#X obj 234 300 t a;
#X msg 234 104 run \$1;
#X obj 234 330 s \$0.untik;
#X obj 248 226 *, f 5;
#X obj 248 176 t b a;
#X obj 26 398 r \$0.untik;
#X obj 151 515 mod;
#X obj 166 470 netpd_r \$1 ticksperbeat;
#X obj 151 537 change -1;
#X obj 324 468 netpd_r \$1 ticksperbeat;
#X obj 316 572 change -1;
#X obj 316 515 div;
#X obj 324 491 t b a;
#X obj 343 547 t b a;
#X obj 343 524 netpd_r \$1 beatsperbar;
#X obj 316 546 mod;
#X obj 166 492 t b a;
#X obj 481 618 change -1;
#X obj 481 595 div;
#X obj 489 571 t b a;
#X obj 489 475 netpd_r \$1 beatsperbar;
#X obj 497 497 netpd_r \$1 ticksperbeat;
#X obj 489 547 *;
#X obj 497 522 t b a;
#X msg 481 667 bar \$1;
#X msg 316 616 beat \$1;
#X msg 151 580 tick \$1;
#X obj 481 643 + 1;
#X obj 316 594 + 1;
#X obj 151 559 + 1;
#X obj 20 725 list trim;
#X text 25 374 -- create bar \, beat \, tick from pos ------------------------;
#X text 20 -1 -- MAIN METRO -----------;
#X text 230 5 -- netpd-ize main controls ---------;
#X obj 486 199 r \$0.untik;
#X obj 234 79 t a a, f 34;
#X obj 435 104 sel 1;
#X obj 438 173 f;
#X obj 438 196 sel 1;
#X obj 438 219 f;
#X msg 438 266 set \$1;
#X obj 20 702 list prepend clock main;
#X obj 20 748 s \$0.untik;
#X obj 26 420 route pos set;
#N canvas 1439 344 450 300 precise.start 0;
#X obj 37 37 inlet;
#X obj 37 254 outlet;
#X obj 37 60 sel 0 1;
#X obj 156 18 netpd_r \$1 pos;
#X obj 156 39 wrap;
#X msg 37 133 0;
#X msg 156 62 1 \$1;
#X obj 156 85 -;
#X obj 107 131 f;
#X msg 107 207 1;
#X obj 107 180 delay;
#X msg 66 133 stop;
#X msg 240 139 tempo \$1 \$2;
#X obj 240 88 r \$0.untik;
#X obj 240 111 route tempo;
#X obj 156 108 route 1;
#X msg 156 131 0;
#X connect 0 0 2 0;
#X connect 2 0 5 0;
#X connect 2 0 11 0;
#X connect 2 1 8 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 8 0 10 0;
#X connect 9 0 1 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 15 1 8 1;
#X connect 16 0 8 1;
#X restore 234 49 pd precise.start;
#X obj 234 26 netpd_f \$1 run 0;
#N canvas 1157 281 731 335 sync.pos.logic 0;
#X obj 9 102 timer;
#X obj 9 11 r \$0.untik;
#X obj 9 58 b;
#X obj 71 86 netpd-dump \$1;
#X obj 24 158 r \$0.untik;
#X obj 24 180 route pos;
#X obj 9 210 +;
#X obj 9 253 netpd_s \$1 pos;
#X obj 235 26 netpd_r \$1 pos;
#X msg 235 75 set \$1;
#X obj 235 98 s \$0.untik;
#X obj 99 111 netpd_r \$1 run;
#X obj 71 111 f;
#X obj 71 134 sel 1 0;
#X obj 9 33 route pos tempo;
#X msg 52 57 tempo \$1 \$2;
#X text 133 150 Send exact position while running;
#X text 112 167 Send last complete step while not running;
#X obj 235 50 int;
#X obj 406 53 r \$1-run;
#X obj 406 99 sel 1;
#X obj 406 200 f;
#X obj 406 237 netpd_s \$1 pos;
#X obj 421 148 r \$0.untik;
#X obj 421 171 route pos;
#X obj 406 76 route float;
#X text 395 27 send current pos before start;
#X obj 520 96 r \$0.untik;
#X obj 520 119 route restart.active;
#X obj 406 122 t b b, f 17;
#X obj 505 147 f;
#X obj 505 171 sel 1;
#X obj 505 238 netpd_s \$1 restart/now;
#X obj 505 194 1;
#X text 525 69 send restart signal;
#X obj 90 222 f -1;
#X text 126 221 <- so that we start at 0;
#X connect 0 0 6 0;
#X connect 1 0 14 0;
#X connect 2 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 5 0 35 1;
#X connect 6 0 7 0;
#X connect 8 0 18 0;
#X connect 9 0 10 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 0 1;
#X connect 13 1 35 0;
#X connect 14 0 2 0;
#X connect 14 1 15 0;
#X connect 15 0 0 0;
#X connect 18 0 9 0;
#X connect 19 0 25 0;
#X connect 20 0 29 0;
#X connect 21 0 22 0;
#X connect 23 0 24 0;
#X connect 24 0 21 1;
#X connect 25 0 20 0;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 29 0 21 0;
#X connect 29 1 30 0;
#X connect 30 0 31 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 7 0;
#X restore 537 51 pd sync.pos.logic;
#X obj 257 200 netpd_f \$1 bpm 120;
#X obj 248 153 netpd_f \$1 ticksperbeat 4;
#X obj 390 295 netpd_f \$1 beatsperbar 4;
#X obj 486 222 route restart.pos;
#X obj 476 174 netpd_r \$1 restart/now;
#X msg 477 152 0;
#X obj 435 127 t b b;
#X obj 26 445 t a a;
#X obj 151 423 t a a a, f 54;
#X obj 151 402 max 0;
#X obj 234 127 t a a;
#X obj 248 275 t a a;
#N canvas 1305 490 735 350 loop 0;
#X obj 42 26 inlet;
#X obj 42 295 outlet;
#X obj 123 23 r \$0.untik;
#X obj 123 47 route loop.active loop.length restart.pos;
#X obj 154 205 mod 4;
#X obj 154 180 - 0;
#X obj 154 235 + 0;
#X obj 42 100 list prepend 0;
#X obj 42 123 route 0 1, f 38;
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 7 1;
#X connect 3 1 4 1;
#X connect 3 2 5 1;
#X connect 3 2 6 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 5 0;
#X restore 22 193 pd loop;
#X obj 438 241 - 1;
#X obj 22 167 mod 25200;
#N canvas 0 40 450 446 request.response 0;
#X obj 16 14 inlet;
#X obj 16 368 list trim;
#X obj 16 407 s \$0.untik;
#X obj 16 342 list prepend clock main;
#X obj 87 232 f;
#X msg 87 255 run \$1;
#X obj 158 68 list;
#X obj 158 199 t b a;
#X obj 158 244 list append;
#X obj 158 267 list prepend tempo;
#X obj 158 290 list trim;
#X obj 278 60 route main;
#X obj 278 14 r \$0.untik;
#X obj 314 132 b;
#X obj 351 130 b;
#X obj 278 37 route get;
#X obj 16 37 route pos run tempo, f 36;
#X obj 16 224 f;
#X obj 278 85 route pos run tempo;
#X obj 278 128 b;
#X obj 16 135 change -1;
#X msg 16 282 pos \$1 \, ttt 1;
#X connect 0 0 16 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 3 0;
#X connect 11 0 18 0;
#X connect 12 0 15 0;
#X connect 13 0 4 0;
#X connect 14 0 8 0;
#X connect 15 0 11 0;
#X connect 16 0 20 0;
#X connect 16 1 4 0;
#X connect 16 2 6 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 18 1 13 0;
#X connect 18 2 14 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 21 0 3 0;
#X restore 335 325 pd request.response;
#X obj 22 279 t a a;
#X msg 22 250 pos \$1;
#X connect 0 0 1 0;
#X connect 1 0 70 0;
#X connect 2 0 73 0;
#X connect 2 1 3 0;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 0 0;
#X connect 7 2 3 0;
#X connect 8 0 67 0;
#X connect 9 0 11 0;
#X connect 10 0 66 0;
#X connect 12 0 8 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X connect 14 0 52 0;
#X connect 15 0 17 0;
#X connect 16 0 25 0;
#X connect 17 0 38 0;
#X connect 18 0 21 0;
#X connect 19 0 37 0;
#X connect 20 0 24 0;
#X connect 21 0 20 0;
#X connect 21 1 20 1;
#X connect 22 0 24 0;
#X connect 22 1 24 1;
#X connect 23 0 22 0;
#X connect 24 0 19 0;
#X connect 25 0 15 0;
#X connect 25 1 15 1;
#X connect 26 0 36 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 28 1 27 1;
#X connect 29 0 31 0;
#X connect 30 0 32 0;
#X connect 31 0 28 0;
#X connect 32 0 31 0;
#X connect 32 1 31 1;
#X connect 33 0 50 0;
#X connect 34 0 50 0;
#X connect 35 0 50 0;
#X connect 36 0 33 0;
#X connect 37 0 34 0;
#X connect 38 0 35 0;
#X connect 39 0 51 0;
#X connect 43 0 59 0;
#X connect 44 0 10 0;
#X connect 44 1 45 0;
#X connect 45 0 62 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 69 0;
#X connect 49 0 9 0;
#X connect 50 0 39 0;
#X connect 52 0 63 0;
#X connect 52 1 63 0;
#X connect 53 0 44 0;
#X connect 54 0 53 0;
#X connect 56 0 12 0;
#X connect 57 0 13 0;
#X connect 59 0 48 1;
#X connect 60 0 46 1;
#X connect 61 0 46 1;
#X connect 62 0 61 0;
#X connect 62 1 46 0;
#X connect 63 1 65 0;
#X connect 64 0 15 0;
#X connect 64 1 20 0;
#X connect 64 2 27 0;
#X connect 65 0 64 0;
#X connect 66 0 9 0;
#X connect 66 1 71 0;
#X connect 67 0 9 0;
#X connect 67 1 71 0;
#X connect 68 0 2 0;
#X connect 69 0 49 0;
#X connect 70 0 68 0;
#X connect 72 0 6 0;
#X connect 72 1 71 0;
#X connect 73 0 72 0;
#X restore 180 14 pd main.clock;
#N canvas 868 550 450 300 gui.stuff 0;
#N canvas 745 328 374 491 pos.display 0;
#X obj 61 178 s \$0.step.display;
#X obj 11 124 makefilename %05d;
#X msg 61 156 label \$1;
#X obj 56 214 r \$0.step.display.click;
#X obj 83 239 t a;
#X obj 56 260 == 0;
#X obj 92 260 t a;
#X obj 56 238 sel;
#X msg 56 341 symbol #AAAAAA;
#X obj 11 316 t b b, f 8;
#X obj 11 339 del 40;
#X msg 11 362 symbol #404060;
#X obj 11 413 t a a;
#X obj 11 294 spigot 0;
#X obj 48 446 s \$0.step.display;
#X obj 11 147 t a a;
#X obj 11 467 s \$0.step.label;
#X obj 11 74 route main;
#X obj 11 97 route pos;
#X msg 11 390 color \$1 0 #ccffcc;
#X obj 11 31 route clock;
#X obj 11 11 r \$0.untik;
#X connect 1 0 15 0;
#X connect 2 0 0 0;
#X connect 3 0 7 0;
#X connect 4 0 7 1;
#X connect 5 0 6 0;
#X connect 5 0 13 1;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 1 4 0;
#X connect 8 0 19 0;
#X connect 9 0 10 0;
#X connect 9 1 8 0;
#X connect 10 0 11 0;
#X connect 11 0 19 0;
#X connect 12 0 16 0;
#X connect 12 1 14 0;
#X connect 13 0 9 0;
#X connect 15 0 13 0;
#X connect 15 1 2 0;
#X connect 17 0 18 0;
#X connect 18 0 1 0;
#X connect 19 0 12 0;
#X connect 20 0 17 0;
#X connect 21 0 20 0;
#X restore 12 11 pd pos.display;
#N canvas 1015 253 328 465 bar.display 0;
#X msg 64 151 label \$1;
#X obj 58 391 s \$0.bar.display;
#X obj 64 127 makefilename %04d;
#X obj 24 126 t a a;
#X msg 69 297 symbol #AAAAAA;
#X obj 24 272 t b b, f 8;
#X obj 24 295 del 40;
#X msg 24 318 symbol #404060;
#X obj 24 365 t a a;
#X obj 24 415 s \$0.bar.label;
#X obj 24 240 spigot 0;
#X obj 99 180 r \$0.bar.display.click;
#X obj 126 203 t a;
#X obj 99 226 == 0;
#X obj 135 226 t a;
#X obj 99 203 sel;
#X obj 24 69 route main;
#X obj 24 92 route bar;
#X msg 24 345 color \$1 0 #ccffcc;
#X obj 24 38 route clock;
#X obj 24 18 r \$0.untik;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 3 0 10 0;
#X connect 3 1 2 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 7 0 18 0;
#X connect 8 0 9 0;
#X connect 8 1 1 0;
#X connect 10 0 5 0;
#X connect 11 0 15 0;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 13 0 10 1;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 15 1 12 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 18 0 8 0;
#X connect 19 0 16 0;
#X connect 20 0 19 0;
#X restore 12 41 pd bar.display;
#N canvas 827 368 512 493 beat.display 0;
#X msg 72 175 label \$1;
#X obj 72 151 makefilename %02d;
#X obj 58 430 s \$0.beatbar.display;
#X obj 25 140 t a a;
#X msg 70 319 symbol #AAAAAA;
#X obj 25 294 t b b, f 8;
#X obj 25 317 del 40;
#X msg 25 340 symbol #404060;
#X obj 25 399 t a a;
#X obj 25 450 s \$0.beatbar.label;
#X obj 85 201 r \$0.beatbar.display.click;
#X obj 113 225 t a;
#X obj 85 246 == 0;
#X obj 121 246 t a;
#X obj 85 225 sel;
#X obj 25 270 spigot;
#X obj 25 90 route main;
#X obj 25 113 route beat;
#X msg 25 367 color \$1 0 #ccffcc;
#X obj 25 54 route clock;
#X obj 25 34 r \$0.untik;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 15 0;
#X connect 3 1 1 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 7 0 18 0;
#X connect 8 0 9 0;
#X connect 8 1 2 0;
#X connect 10 0 14 0;
#X connect 11 0 14 1;
#X connect 12 0 13 0;
#X connect 12 0 15 1;
#X connect 13 0 12 1;
#X connect 14 0 12 0;
#X connect 14 1 11 0;
#X connect 15 0 5 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 18 0 8 0;
#X connect 19 0 16 0;
#X connect 20 0 19 0;
#X restore 12 71 pd beat.display;
#N canvas 996 557 363 490 tick.display 0;
#X msg 86 173 label \$1;
#X obj 65 345 s \$0.stepbeat.display;
#X obj 86 149 makefilename %02d;
#X obj 28 145 t a a;
#X msg 73 240 symbol #AAAAAA;
#X obj 28 215 t b b, f 8;
#X obj 28 238 del 40;
#X msg 28 261 symbol #404060;
#X obj 28 312 t a a;
#X obj 28 366 s \$0.stepbeat.label;
#X obj 31 412 r \$0.stepbeat.display.click;
#X obj 59 436 t a;
#X obj 31 457 == 0;
#X obj 67 457 t a;
#X obj 31 436 sel;
#X obj 28 193 spigot 0;
#X obj 28 93 route main;
#X obj 28 116 route tick;
#X msg 28 289 color \$1 0 #ccffcc;
#X obj 28 54 route clock;
#X obj 28 34 r \$0.untik;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 3 0 15 0;
#X connect 3 1 2 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 7 0 18 0;
#X connect 8 0 9 0;
#X connect 8 1 1 0;
#X connect 10 0 14 0;
#X connect 11 0 14 1;
#X connect 12 0 13 0;
#X connect 12 0 15 1;
#X connect 13 0 12 1;
#X connect 14 0 12 0;
#X connect 14 1 11 0;
#X connect 15 0 5 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 18 0 8 0;
#X connect 19 0 16 0;
#X connect 20 0 19 0;
#X restore 12 101 pd tick.display;
#N canvas 813 157 663 300 run.button 0;
#X obj 8 163 s \$0.run.button.front;
#X msg 8 140 color \$1 \$1 \$1;
#X msg 9 85 #8080a0;
#X obj 9 117 symbol;
#X msg 244 168 #ccffcc;
#X msg 301 169 #bbeebb;
#X msg 356 170 #aaddaa;
#X obj 244 62 r \$0.untik;
#X obj 244 85 route pos;
#X msg 412 170 #99cc99;
#X msg 467 171 #88bb88;
#X obj 244 131 sel 0 1 2 3 4 5 6 7;
#X obj 244 108 mod 8;
#X msg 67 85 #00ff00;
#X obj 9 60 sel 0 1, f 20;
#X obj 244 210 t a;
#X text 246 29 some experiment;
#X obj 9 29 netpd_r \$1 run;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 15 0;
#X connect 5 0 15 0;
#X connect 6 0 15 0;
#X connect 8 0 12 0;
#X connect 9 0 15 0;
#X connect 10 0 15 0;
#X connect 11 0 4 0;
#X connect 11 1 5 0;
#X connect 11 2 6 0;
#X connect 11 3 9 0;
#X connect 11 4 10 0;
#X connect 11 5 9 0;
#X connect 11 6 6 0;
#X connect 11 7 5 0;
#X connect 12 0 11 0;
#X connect 13 0 3 0;
#X connect 14 0 2 0;
#X connect 14 1 13 0;
#X connect 17 0 14 0;
#X restore 12 161 pd run.button;
#N canvas 1527 165 410 281 window.buttons 0;
#X msg 8 220 vis 1;
#X obj 8 243 s pd-\$1-untik-pattern-editor;
#X obj 8 10 r \$0.pattern.editor.click;
#X obj 8 33 sel;
#X obj 38 33 t a;
#X msg 35 123 #ccffcc;
#X msg 86 123 #00ff00;
#X msg 35 172 color #404060 0 \$1;
#X obj 35 149 symbol;
#X obj 35 196 s \$0.pattern.editor.label;
#X obj 35 78 t b b, f 9;
#X obj 35 101 del 100;
#X obj 8 56 t b b;
#X msg 198 220 vis 1;
#X obj 198 33 sel;
#X obj 228 33 t a;
#X msg 225 123 #ccffcc;
#X msg 276 123 #00ff00;
#X msg 225 172 color #404060 0 \$1;
#X obj 225 149 symbol;
#X obj 225 78 t b b, f 9;
#X obj 225 101 del 100;
#X obj 198 56 t b b;
#X obj 198 10 r \$0.loop.editor.click;
#X obj 225 196 s \$0.loop.editor.label;
#X obj 198 243 s pd-\$1-untik-loop-editor;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 12 0;
#X connect 3 1 4 0;
#X connect 4 0 3 1;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 11 0;
#X connect 10 1 6 0;
#X connect 11 0 5 0;
#X connect 12 0 0 0;
#X connect 12 1 10 0;
#X connect 13 0 25 0;
#X connect 14 0 22 0;
#X connect 14 1 15 0;
#X connect 15 0 14 1;
#X connect 16 0 19 0;
#X connect 17 0 19 0;
#X connect 18 0 24 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 20 1 17 0;
#X connect 21 0 16 0;
#X connect 22 0 13 0;
#X connect 22 1 20 0;
#X connect 23 0 14 0;
#X restore 12 131 pd window.buttons;
#N canvas 1291 467 1339 483 restart.loop 0;
#X obj 5 12 netpd_r \$1 restart/select;
#X obj 345 183 s \$0.init.select.bars.label;
#X msg 345 160 color #404060 0 \$1;
#X msg 345 115 #bcbcdc;
#X msg 397 115 #00ff00;
#X obj 345 138 symbol;
#X obj 345 70 == 0;
#X obj 345 93 sel 0 1, f 18;
#X obj 5 35 t a a a;
#X msg 175 160 color #404060 0 \$1;
#X msg 175 115 #bcbcdc;
#X msg 227 115 #00ff00;
#X obj 175 138 symbol;
#X obj 175 93 sel 0 1, f 18;
#X msg 5 160 color #404060 0 \$1;
#X msg 5 115 #bcbcdc;
#X msg 57 115 #00ff00;
#X obj 5 138 symbol;
#X obj 5 93 sel 0 1, f 18;
#X obj 175 70 == 1;
#X obj 5 70 == 2;
#X obj 175 183 s \$0.init.select.beats.label;
#X obj 5 183 s \$0.init.select.ticks.label;
#X msg 518 160 color \$1 \$1 \$1;
#X msg 519 105 #8080a0;
#X obj 519 137 symbol;
#X msg 577 105 #00ff00;
#X obj 519 81 sel 0 1, f 20;
#X obj 519 25 netpd_r \$1 restart/active;
#X obj 685 175 s \$1-restart/pos;
#X obj 685 129 symbol;
#X msg 740 101 #00ff00;
#X msg 685 100 #bcbcdc;
#X msg 685 152 color #404060 \$1 \$1;
#X obj 685 76 sel 0 1, f 20;
#X obj 790 175 s \$0.restart.label;
#X obj 518 183 s \$0.restart.button.front;
#X msg 345 370 color #404060 0 \$1;
#X msg 345 325 #bcbcdc;
#X msg 397 325 #00ff00;
#X obj 345 348 symbol;
#X obj 345 280 == 0;
#X obj 345 303 sel 0 1, f 18;
#X obj 5 245 t a a a;
#X msg 175 370 color #404060 0 \$1;
#X msg 175 325 #bcbcdc;
#X msg 227 325 #00ff00;
#X obj 175 348 symbol;
#X obj 175 303 sel 0 1, f 18;
#X msg 5 370 color #404060 0 \$1;
#X msg 5 325 #bcbcdc;
#X msg 57 325 #00ff00;
#X obj 5 348 symbol;
#X obj 5 303 sel 0 1, f 18;
#X obj 175 280 == 1;
#X obj 5 280 == 2;
#X msg 518 370 color \$1 \$1 \$1;
#X msg 519 315 #8080a0;
#X obj 519 347 symbol;
#X msg 577 315 #00ff00;
#X obj 519 291 sel 0 1, f 20;
#X obj 685 339 symbol;
#X msg 740 311 #00ff00;
#X msg 685 310 #bcbcdc;
#X msg 685 362 color #404060 \$1 \$1;
#X obj 685 286 sel 0 1, f 20;
#X obj 5 222 netpd_r \$1 loop/select;
#X obj 5 393 s \$0.loop.select.ticks.label;
#X obj 175 393 s \$0.loop.select.beats.label;
#X obj 345 393 s \$0.loop.select.bars.label;
#X obj 518 393 s \$0.loop.button.front;
#X obj 809 387 s \$0.loop.label;
#X obj 685 385 s \$1-loop/length;
#X obj 519 235 netpd_r \$1 loop/active;
#X obj 685 54 ||;
#X obj 758 23 t b a;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 7 1 4 0;
#X connect 8 0 20 0;
#X connect 8 1 19 0;
#X connect 8 2 6 0;
#X connect 9 0 21 0;
#X connect 10 0 12 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 13 0 10 0;
#X connect 13 1 11 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 16 0 17 0;
#X connect 17 0 14 0;
#X connect 18 0 15 0;
#X connect 18 1 16 0;
#X connect 19 0 13 0;
#X connect 20 0 18 0;
#X connect 23 0 36 0;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 26 0 25 0;
#X connect 27 0 24 0;
#X connect 27 1 26 0;
#X connect 28 0 27 0;
#X connect 28 0 74 0;
#X connect 30 0 33 0;
#X connect 31 0 30 0;
#X connect 32 0 30 0;
#X connect 33 0 29 0;
#X connect 33 0 35 0;
#X connect 34 0 32 0;
#X connect 34 1 31 0;
#X connect 37 0 69 0;
#X connect 38 0 40 0;
#X connect 39 0 40 0;
#X connect 40 0 37 0;
#X connect 41 0 42 0;
#X connect 42 0 38 0;
#X connect 42 1 39 0;
#X connect 43 0 55 0;
#X connect 43 1 54 0;
#X connect 43 2 41 0;
#X connect 44 0 68 0;
#X connect 45 0 47 0;
#X connect 46 0 47 0;
#X connect 47 0 44 0;
#X connect 48 0 45 0;
#X connect 48 1 46 0;
#X connect 49 0 67 0;
#X connect 50 0 52 0;
#X connect 51 0 52 0;
#X connect 52 0 49 0;
#X connect 53 0 50 0;
#X connect 53 1 51 0;
#X connect 54 0 48 0;
#X connect 55 0 53 0;
#X connect 56 0 70 0;
#X connect 57 0 58 0;
#X connect 58 0 56 0;
#X connect 59 0 58 0;
#X connect 60 0 57 0;
#X connect 60 1 59 0;
#X connect 61 0 64 0;
#X connect 62 0 61 0;
#X connect 63 0 61 0;
#X connect 64 0 71 0;
#X connect 64 0 72 0;
#X connect 65 0 63 0;
#X connect 65 1 62 0;
#X connect 66 0 43 0;
#X connect 73 0 60 0;
#X connect 73 0 65 0;
#X connect 73 0 75 0;
#X connect 74 0 34 0;
#X connect 75 0 74 0;
#X connect 75 1 74 1;
#X restore 12 191 pd restart.loop;
#N canvas 1325 577 768 377 loop.indicator 0;
#X obj 173 222 s \$0.loop.indicator;
#X obj 28 19 r \$0.untik;
#X obj 28 43 route pos loop.active loop.length restart.pos;
#X obj 28 160 mod 4;
#X obj 28 135 - 0;
#X obj 28 229 + 0;
#X obj 161 90 t a a;
#X obj 28 183 t a a;
#X obj 173 171 /;
#X msg 173 194 set \$1;
#X msg 457 269 #00ff00;
#X msg 397 329 color #404060 \$1 -1;
#X obj 397 301 symbol;
#X msg 389 265 #bcbcdc;
#X obj 387 145 >=;
#X obj 28 68 t a a;
#X obj 387 111 t a a;
#X obj 473 121 +;
#X obj 460 146 <;
#X obj 470 95 t b a;
#X obj 389 171 &&;
#X obj 389 194 change -1;
#X obj 389 224 sel 0 1;
#X connect 1 0 2 0;
#X connect 2 0 15 0;
#X connect 2 2 6 0;
#X connect 2 2 17 0;
#X connect 2 3 4 1;
#X connect 2 3 5 1;
#X connect 2 3 14 1;
#X connect 2 3 19 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 6 0 3 1;
#X connect 6 1 8 1;
#X connect 7 0 5 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 12 0;
#X connect 11 0 0 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 20 0;
#X connect 15 0 4 0;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 16 1 18 0;
#X connect 17 0 18 1;
#X connect 18 0 20 1;
#X connect 19 0 17 0;
#X connect 19 1 17 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 13 0;
#X connect 22 1 10 0;
#X restore 12 218 pd loop.indicator;
#N canvas 1221 308 865 444 sync 0;
#X obj 18 18 r \$0.sync.ms.click;
#X obj 153 22 r \$0.sync.ticks.click;
#X obj 18 44 sel 0;
#X obj 58 44 t a;
#X obj 153 46 sel 0;
#X obj 193 46 t a;
#X obj 499 74 sel 0;
#X obj 539 74 t a;
#X obj 499 50 r \$0.sync.auto.click;
#X obj 18 97 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X obj 153 91 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X obj 18 226 symbol;
#X msg 18 188 #bcbcdc;
#X obj 18 277 s \$0.sync.ms.label;
#X obj 169 283 s \$0.sync.ticks.label;
#X obj 499 297 s \$0.sync.auto.label;
#X msg 18 250 color #404060 -1 \$1;
#X msg 80 189 #ccffcc;
#X obj 169 227 symbol;
#X msg 169 189 #bcbcdc;
#X msg 169 251 color #404060 -1 \$1;
#X msg 231 190 #ccffcc;
#X obj 499 240 symbol;
#X msg 499 202 #bcbcdc;
#X msg 499 264 color #404060 -1 \$1;
#X msg 561 203 #00ff00;
#X obj 499 101 == 0;
#X obj 533 101 t a;
#X obj 499 163 sel 0 1;
#X obj 309 25 r \$0.untik;
#X obj 333 312 s \$0.sync.display;
#X msg 333 289 label \$1;
#X obj 379 233 makefilename %.1f;
#X obj 669 314 s \$0.sync.display;
#X obj 685 290 s \$0.sync.label;
#X obj 669 233 symbol;
#X msg 669 195 #bcbcdc;
#X msg 669 257 color #404060 -1 \$1;
#X msg 731 196 #ccffcc;
#X msg 788 197 #00ff00;
#X msg 641 86 sync_auto_on \$1;
#X obj 499 127 t a a;
#X obj 641 109 s \$0.untik;
#X obj 21 323 r \$0.sync.display.click;
#X obj 21 346 sel 0;
#X obj 63 347 t a;
#X msg 21 371 sync_manual_trigger;
#X obj 21 394 s \$0.untik;
#X obj 96 65 loadbang;
#X obj 573 73 loadbang;
#X obj 322 206 sel -1e+06;
#X msg 322 257 symbol --;
#X obj 254 71 route sync_delay_ticks sync_delay_ms;
#X obj 254 104 f;
#X obj 360 101 f;
#X msg 254 127 0 \$1;
#X msg 360 127 1 \$1;
#X obj 306 160 route 0;
#X obj 193 110 t b b;
#X msg 220 135 0;
#X obj 62 104 t b b;
#X msg 97 126 1;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 2 1 3 0;
#X connect 3 0 2 1;
#X connect 4 0 10 0;
#X connect 4 1 5 0;
#X connect 5 0 4 1;
#X connect 6 0 26 0;
#X connect 6 1 7 0;
#X connect 7 0 6 1;
#X connect 8 0 6 0;
#X connect 9 0 17 0;
#X connect 9 0 19 0;
#X connect 9 0 60 0;
#X connect 10 0 12 0;
#X connect 10 0 21 0;
#X connect 10 0 58 0;
#X connect 11 0 16 0;
#X connect 12 0 11 0;
#X connect 16 0 13 0;
#X connect 17 0 11 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 0 14 0;
#X connect 21 0 18 0;
#X connect 22 0 24 0;
#X connect 23 0 22 0;
#X connect 24 0 15 0;
#X connect 25 0 22 0;
#X connect 26 0 27 0;
#X connect 26 0 41 0;
#X connect 27 0 26 1;
#X connect 28 0 23 0;
#X connect 28 1 25 0;
#X connect 29 0 52 0;
#X connect 31 0 30 0;
#X connect 32 0 31 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 37 0 33 0;
#X connect 37 0 34 0;
#X connect 38 0 35 0;
#X connect 39 0 35 0;
#X connect 40 0 42 0;
#X connect 41 0 28 0;
#X connect 41 1 40 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 44 1 45 0;
#X connect 45 0 44 1;
#X connect 46 0 47 0;
#X connect 48 0 10 0;
#X connect 49 0 26 0;
#X connect 50 0 51 0;
#X connect 50 1 32 0;
#X connect 51 0 31 0;
#X connect 52 0 53 0;
#X connect 52 1 54 0;
#X connect 53 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 57 0;
#X connect 56 0 57 0;
#X connect 57 0 50 0;
#X connect 58 0 53 0;
#X connect 58 1 59 0;
#X connect 59 0 57 1;
#X connect 60 0 54 0;
#X connect 60 1 61 0;
#X connect 61 0 57 1;
#X restore 12 243 pd sync;
#X restore 180 44 pd gui.stuff;
#X msg 607 84 #606080;
#X msg 607 54 #8080a0;
#X msg 737 24 #ccffcc;
#X msg 607 24 #bcbcdc;
#X obj 666 20 cnv 24 48 24 empty empty empty 20 12 0 10 #bcbcdc #404040 0;
#X obj 796 20 cnv 24 48 24 empty empty empty 20 12 0 10 #ccffcc #404040 0;
#X obj 666 50 cnv 24 48 24 empty empty empty 20 12 0 10 #8080a0 #404040 0;
#X obj 666 80 cnv 24 48 24 empty empty empty 20 12 0 10 #606080 #404040 0;
#X obj 666 110 cnv 24 48 24 empty empty empty 20 12 0 10 #404060 #404040 0;
#X msg 607 114 #404060;
#X obj 796 50 cnv 24 48 24 empty empty empty 20 12 0 10 #00ff00 #404040 0;
#X msg 737 54 #00ff00;
#X text 9 86 -- INIT -------------;
#X obj 382 207 route pos;
#X floatatom 382 233 5 0 0 0 - - - 0;
#N canvas 1195 351 645 181 pattern.players 1;
#X obj 8 7 untik-pattern-instance \$0 0;
#X obj 8 27 untik-pattern-instance \$0 1;
#X obj 8 47 untik-pattern-instance \$0 2;
#X obj 8 67 untik-pattern-instance \$0 3;
#X obj 8 87 untik-pattern-instance \$0 4;
#X obj 8 107 untik-pattern-instance \$0 5;
#X obj 8 127 untik-pattern-instance \$0 6;
#X obj 8 147 untik-pattern-instance \$0 7;
#X restore 180 194 pd pattern.players;
#N canvas 599 513 551 529 untik.client.com 0;
#X obj 44 136 text get \$1-patterns;
#X obj 44 64 until;
#X obj 44 87 f;
#X obj 44 110 t a a;
#X obj 91 95 + 1;
#X obj 161 160 sel 2;
#X msg 89 62 0;
#X obj 44 161 list split 2;
#X obj 34 211 list store;
#X msg 44 183 append \$1;
#X obj 7 37 t b b b, f 13;
#X obj 7 184 t b b;
#X obj 7 15 r \$0.pats.o.2;
#N canvas 368 731 410 222 list-compare 0;
#X obj 155 24 inlet;
#X obj 27 23 inlet;
#X obj 27 165 outlet;
#N canvas 374 532 492 461 compare-elements 0;
#X obj 83 157 t a b;
#X obj 264 48 inlet;
#X obj 65 36 inlet;
#X obj 241 111 list;
#X obj 83 112 until;
#X obj 83 256 select 0;
#X obj 83 288 t b b;
#X msg 83 317 0;
#X obj 65 379 outlet;
#X obj 65 356 f 1;
#X obj 65 59 t b b a b b;
#X msg 125 319 1;
#N canvas 795 566 450 300 list-dripslow 0;
#X obj 148 186 list split 1;
#X obj 148 161 list append;
#X obj 148 237 outlet;
#X obj 148 37 inlet;
#X obj 229 237 outlet;
#X obj 222 35 inlet;
#X obj 148 72 b;
#X text 265 36 list;
#X text 103 37 bang;
#X text 273 237 EOL;
#X text 89 236 element;
#X obj 229 207 b;
#X connect 0 0 2 0;
#X connect 0 1 1 1;
#X connect 0 2 11 0;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 11 0 4 0;
#X restore 155 192 pd list-dripslow;
#N canvas 714 957 450 300 list-dripslow 0;
#X obj 148 186 list split 1;
#X obj 148 161 list append;
#X obj 148 237 outlet;
#X obj 148 37 inlet;
#X obj 229 237 outlet;
#X obj 222 35 inlet;
#X obj 148 72 b;
#X text 265 36 list;
#X text 103 37 bang;
#X text 273 237 EOL;
#X text 89 236 element;
#X obj 229 207 b;
#X connect 0 0 2 0;
#X connect 0 1 1 1;
#X connect 0 2 11 0;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 11 0 4 0;
#X restore 83 135 pd list-dripslow;
#N canvas 0 0 430 237 compare-symbols 0;
#X obj 31 17 inlet;
#X obj 231 31 inlet;
#X obj 40 162 outlet;
#X obj 31 63 select __;
#X msg 40 124 1;
#X msg 87 129 0;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X restore 83 227 pd compare-symbols;
#X connect 0 0 14 0;
#X connect 0 1 12 0;
#X connect 1 0 3 1;
#X connect 2 0 10 0;
#X connect 3 0 12 1;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 4 1;
#X connect 7 0 9 1;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 10 1 4 0;
#X connect 10 2 13 1;
#X connect 10 3 3 0;
#X connect 10 4 11 0;
#X connect 11 0 9 1;
#X connect 12 0 14 1;
#X connect 13 0 0 0;
#X connect 13 1 4 1;
#X connect 14 0 5 0;
#X restore 27 102 pd compare-elements;
#X msg 149 133 0;
#N canvas 446 369 450 300 compare-lengths 0;
#X obj 45 102 ==;
#X obj 45 123 select 1 0;
#X obj 144 35 inlet;
#X obj 45 20 inlet;
#X obj 45 203 outlet;
#X obj 77 182 outlet;
#X obj 45 45 t a a;
#X obj 45 154 list;
#X obj 45 67 list length;
#X obj 144 68 list length;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 5 0;
#X connect 2 0 9 0;
#X connect 3 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 7 1;
#X connect 7 0 4 0;
#X connect 8 0 0 0;
#X connect 9 0 0 1;
#X restore 27 59 pd compare-lengths;
#X connect 0 0 5 1;
#X connect 0 0 3 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 4 0;
#X restore 34 281 pd list-compare;
#X obj 202 228 loadbang;
#X obj 34 304 sel 0;
#X obj 34 257 t a a;
#X obj 34 327 list append;
#X obj 34 350 t a a;
#X msg 202 251 list __ __;
#X obj 34 234 list prepend main;
#X obj 34 396 list trim;
#X obj 34 373 list prepend clocklist;
#X obj 34 439 untik-clock-provider untik u;
#X obj 198 318 r \$0.untik;
#X obj 198 389 list trim;
#X obj 198 366 list prepend clock;
#X obj 185 191 loadbang;
#X text 243 190 make sure to initialize with main in list;
#X obj 198 341 route clock;
#X obj 34 417 t a a;
#X obj 34 486 s \$0.untik;
#X obj 34 462 t a a;
#X obj 328 318 r \$0.untik;
#X obj 328 389 list trim;
#X obj 328 341 route event;
#X obj 328 366 list prepend event;
#X connect 0 0 7 0;
#X connect 0 1 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 1 1;
#X connect 6 0 2 1;
#X connect 7 0 9 0;
#X connect 8 0 20 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 1 0;
#X connect 10 2 6 0;
#X connect 11 0 8 1;
#X connect 11 1 8 0;
#X connect 12 0 10 0;
#X connect 13 0 15 0;
#X connect 14 0 19 0;
#X connect 15 0 17 0;
#X connect 16 0 13 0;
#X connect 16 1 17 1;
#X connect 17 0 18 0;
#X connect 18 0 22 0;
#X connect 18 1 13 1;
#X connect 19 0 13 1;
#X connect 20 0 16 0;
#X connect 21 0 30 0;
#X connect 22 0 21 0;
#X connect 23 0 32 0;
#X connect 24 0 29 0;
#X connect 25 0 30 0;
#X connect 26 0 25 0;
#X connect 27 0 20 0;
#X connect 29 0 26 0;
#X connect 30 0 23 0;
#X connect 32 0 31 0;
#X connect 33 0 35 0;
#X connect 34 0 30 0;
#X connect 35 0 36 0;
#X connect 36 0 34 0;
#X restore 179 224 pd untik.client.com;
#X obj 382 116 r untik;
#X obj 382 139 route clock;
#X obj 382 162 route untik;
#X obj 382 185 route main, f 11;
#N canvas 1385 0 353 71 \$1-untik-loop-editor 0;
#X obj 4 3 cnv 3 168 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 127 6 vradio 13 1 0 3 \$1-restart/select \$1-restart/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 140 6 vradio 13 1 0 3 \$1-restart/select \$1-restart/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 150 6 vradio 13 1 0 3 \$1-restart/select \$1-restart/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 156 6 vradio 13 1 0 3 \$1-restart/select \$1-restart/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 118 19 hsl 25 20 0 127 0 0 empty empty empty -2 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 28 19 nbx 5 20 0 25200 0 0 \$1-restart/pos \$1-restart/pos empty 0 -9 0 24 #404060 #bcbcdc #bcbcdc 0 256;
#X obj 28 6 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 39 6 cnv 10 73 13 empty \$0.restart.label from 0 5 0 10 #404060 #bcbcdc 0;
#X obj 39 39 cnv 6 73 6 empty empty empty 0 5 0 10 #404060 #00ff04 0;
#X obj 24 3 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 116 3 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 113 6 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 127 6 cnv 10 42 13 empty \$0.init.select.bars.label bars 4 6 0 10 #404060 #00ff00 0;
#X obj 127 19 cnv 10 42 13 empty \$0.init.select.beats.label beats 4 6 0 10 #404060 #bcbcdc 0;
#X obj 127 32 cnv 10 42 13 empty \$0.init.select.ticks.label ticks 4 6 0 10 #404060 #bcbcdc 0;
#X obj 7 6 tgl 24 0 \$1-restart/active \$1-restart/active empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 7 21 tgl 24 0 \$1-restart/active \$1-restart/active empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 7 6 cnv 6 24 39 empty empty empty 20 12 0 10 #404060 #404040 0;
#X obj 10 9 cnv 12 18 33 empty \$0.restart.button.front empty 20 12 0 10 #8080a0 #8080a0 0;
#X obj 177 3 cnv 3 168 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 300 6 vradio 13 1 0 3 \$1-loop/select \$1-loop/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 200 19 nbx 4 20 1 25200 0 0 \$1-loop/length \$1-loop/length empty 0 -9 0 24 #404060 #bcbcdc #bcbcdc 0 256;
#X obj 201 6 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 212 6 cnv 10 73 13 empty \$0.loop.label loop 0 5 0 10 #404060 #bcbcdc 0;
#X obj 212 39 cnv 6 73 6 empty empty empty 0 5 0 10 #404060 #00ff04 0;
#X obj 197 3 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 289 3 cnv 10 10 45 empty empty empty 2 12 0 10 #8080a0 #00ff00 0;
#X obj 286 6 cnv 10 10 39 empty empty empty 2 12 0 10 #404060 #00ff00 0;
#X obj 180 6 tgl 24 0 \$1-loop/active \$1-loop/active empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 180 21 tgl 24 0 \$1-loop/active \$1-loop/active empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 180 6 cnv 6 24 39 empty empty empty 20 12 0 10 #404060 #404040 0;
#X obj 183 9 cnv 12 18 33 empty \$0.loop.button.front empty 20 12 0 10 #8080a0 #8080a0 0;
#X obj 313 6 vradio 13 1 0 3 \$1-loop/select \$1-loop/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 326 6 vradio 13 1 0 3 \$1-loop/select \$1-loop/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 329 6 vradio 13 1 0 3 \$1-loop/select \$1-loop/select empty 0 -9 0 10 #fcfcfc #000000 #000000 0;
#X obj 300 6 cnv 10 42 13 empty \$0.loop.select.bars.label bars 4 6 0 10 #404060 #00ff00 0;
#X obj 300 19 cnv 10 42 13 empty \$0.loop.select.beats.label beats 4 6 0 10 #404060 #bcbcdc 0;
#X obj 300 32 cnv 10 42 13 empty \$0.loop.select.ticks.label ticks 4 6 0 10 #404060 #bcbcdc 0;
#X obj 7 52 hsl 336 8 0 1 0 0 \$0.blubli \$0.loop.indicator empty -2 5 0 10 #404060 #bcbcdc #000000 0 1;
#X restore 370 67 pd \$1-untik-loop-editor;
#N canvas 1683 290 669 467 restart.loop 0;
#X obj 14 19 netpd_f \$1 restart/select 0;
#X obj 31 239 netpd_f \$1 restart/pos 0;
#X obj 128 287 netpd_f \$1 restart/active 0;
#X obj 41 77 netpd_r \$1 beatsperbar;
#X obj 119 103 netpd_r \$1 ticksperbeat;
#X obj 14 157 *;
#X obj 43 127 t b a;
#X obj 14 115 f;
#X obj 14 183 list prepend 0;
#X obj 105 145 f;
#X obj 105 183 list prepend 1;
#X msg 198 158 1;
#X obj 198 183 list prepend 2;
#X obj 14 215 route 0, f 46;
#X obj 14 42 t b a, f 46;
#X obj 31 262 t b a;
#X obj 14 286 *;
#X obj 14 381 s \$0.untik;
#X msg 14 343 restart.pos \$1;
#X msg 128 312 restart.active \$1;
#X obj 361 77 netpd_r \$1 beatsperbar;
#X obj 439 103 netpd_r \$1 ticksperbeat;
#X obj 334 157 *;
#X obj 363 127 t b a;
#X obj 334 115 f;
#X obj 334 183 list prepend 0;
#X obj 425 145 f;
#X obj 425 183 list prepend 1;
#X msg 518 158 1;
#X obj 518 183 list prepend 2;
#X obj 334 215 route 0, f 46;
#X obj 334 42 t b a, f 46;
#X obj 351 262 t b a;
#X obj 334 286 *;
#X obj 334 381 s \$0.untik;
#X obj 334 19 netpd_f \$1 loop/select 0;
#X obj 448 287 netpd_f \$1 loop/active 0;
#X msg 334 343 loop.length \$1;
#X msg 448 312 loop.active \$1;
#X obj 351 239 netpd_f \$1 loop/length 1;
#X connect 0 0 14 0;
#X connect 1 0 15 0;
#X connect 2 0 19 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 5 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 14 0 7 0;
#X connect 14 0 9 0;
#X connect 14 0 11 0;
#X connect 14 1 13 1;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 18 0;
#X connect 18 0 17 0;
#X connect 19 0 17 0;
#X connect 20 0 24 0;
#X connect 21 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 25 0;
#X connect 23 0 22 0;
#X connect 23 1 22 1;
#X connect 24 0 22 0;
#X connect 25 0 30 0;
#X connect 26 0 27 0;
#X connect 27 0 30 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 33 0;
#X connect 31 0 24 0;
#X connect 31 0 26 0;
#X connect 31 0 28 0;
#X connect 31 1 30 1;
#X connect 32 0 33 0;
#X connect 32 1 33 1;
#X connect 33 0 37 0;
#X connect 35 0 31 0;
#X connect 36 0 38 0;
#X connect 37 0 34 0;
#X connect 38 0 34 0;
#X connect 39 0 32 0;
#X restore 180 164 pd restart.loop;
#N canvas 1266 535 358 200 offset.detection 0;
#N canvas 710 189 368 170 request 0;
#X text 128 50 request packet transmission;
#X obj 28 5 inlet;
#N canvas 197 233 386 390 timestamp 0;
#X obj 62 16 inlet;
#X obj 62 309 outlet;
#X obj 62 38 t b b;
#X obj 62 258 f;
#X obj 171 22 r \$0.untik;
#X obj 171 45 route pos tempo, f 29;
#X obj 256 100 list trim;
#X obj 256 77 list prepend tempo;
#X obj 171 185 timer;
#X obj 171 210 +, f 13;
#X obj 171 145 t b a, f 13;
#X obj 62 283 t a a;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 8 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 1 0;
#X restore 28 34 pd timestamp;
#X obj 28 74 netpd_s \$1 ntp/rqpt;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X restore 15 61 pd request;
#N canvas 183 205 365 481 response 0;
#X obj 23 122 t a b;
#X obj 23 170 list append;
#X text 145 142 request packet reception;
#X obj 23 308 t a b;
#X obj 23 356 list append;
#X text 132 332 response packet transmission;
#X obj 23 39 list prepend;
#X obj 23 378 t a a;
#X obj 23 400 list split 1;
#X msg 165 403 \$1;
#X obj 104 218 random 76;
#X obj 104 240 + 20;
#X obj 23 65 spigot;
#X obj 23 192 t a b;
#X obj 23 224 unpack f f f;
#X obj 23 262 pipe 0 0 0 100;
#X obj 23 284 pack f f f;
#X obj 152 9 r \$1.NETPD;
#X obj 152 34 route sender remote_origin;
#X obj 152 61 route float;
#X obj 23 88 spigot;
#X msg 152 84 1;
#X msg 184 103 0;
#N canvas 197 233 386 390 timestamp 0;
#X obj 62 16 inlet;
#X obj 62 309 outlet;
#X obj 62 38 t b b;
#X obj 62 258 f;
#X obj 171 22 r \$0.untik;
#X obj 171 45 route pos tempo, f 29;
#X obj 256 100 list trim;
#X obj 256 77 list prepend tempo;
#X obj 171 185 timer;
#X obj 171 210 +, f 13;
#X obj 171 145 t b a, f 13;
#X obj 62 283 t a a;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 8 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 1 0;
#X restore 50 146 pd timestamp;
#N canvas 197 233 386 390 timestamp 0;
#X obj 62 16 inlet;
#X obj 62 309 outlet;
#X obj 62 38 t b b;
#X obj 62 258 f;
#X obj 171 22 r \$0.untik;
#X obj 171 45 route pos tempo, f 29;
#X obj 256 100 list trim;
#X obj 256 77 list prepend tempo;
#X obj 171 185 timer;
#X obj 171 210 +, f 13;
#X obj 171 145 t b a, f 13;
#X obj 62 283 t a a;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 8 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 1 0;
#X restore 52 328 pd timestamp;
#X obj 23 13 netpd_r \$1 ntp/rqpt;
#X obj 24 425 netpd-s /\$1/untik/ntp/rspt;
#X connect 0 0 1 0;
#X connect 0 1 23 0;
#X connect 1 0 13 0;
#X connect 3 0 4 0;
#X connect 3 1 24 0;
#X connect 4 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 1 26 0;
#X connect 9 0 26 1;
#X connect 10 0 11 0;
#X connect 11 0 15 3;
#X connect 12 0 20 0;
#X connect 13 0 14 0;
#X connect 13 1 10 0;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 14 2 15 2;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 15 2 16 2;
#X connect 16 0 3 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 12 1;
#X connect 19 0 6 1;
#X connect 19 0 21 0;
#X connect 19 1 22 0;
#X connect 20 0 0 0;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 1 1;
#X connect 24 0 4 1;
#X connect 25 0 6 0;
#X restore 15 81 pd response;
#N canvas 435 149 376 278 evaluation 0;
#X obj 23 36 t a b;
#X text 159 63 response packet reception;
#X obj 23 82 list append;
#X obj 23 104 t a a;
#X msg 23 129 \$2 \$1;
#X obj 23 151 -;
#X obj 66 150 -;
#X msg 67 128 \$3 \$4;
#X obj 23 174 +;
#X obj 23 196 / 2;
#X obj 23 240 outlet;
#X obj 23 218 list prepend;
#N canvas 197 233 386 390 timestamp 0;
#X obj 62 16 inlet;
#X obj 62 309 outlet;
#X obj 62 38 t b b;
#X obj 62 258 f;
#X obj 171 22 r \$0.untik;
#X obj 171 45 route pos tempo, f 29;
#X obj 256 100 list trim;
#X obj 256 77 list prepend tempo;
#X obj 171 185 timer;
#X obj 171 210 +, f 13;
#X obj 171 145 t b a, f 13;
#X obj 62 283 t a a;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 8 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 1 0;
#X restore 50 58 pd timestamp;
#X obj 23 14 netpd-r /\$1/untik/ntp/rspt;
#X connect 0 0 2 0;
#X connect 0 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 5 0;
#X connect 5 0 8 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 11 0 10 0;
#X connect 12 0 2 1;
#X connect 13 0 0 0;
#X connect 13 1 11 1;
#X restore 15 101 pd evaluation;
#N canvas 904 541 472 474 examination 0;
#X obj 12 18 inlet;
#X obj 318 227 s \$0.data;
#X msg 318 150 const 0;
#N canvas 533 532 420 315 store.data 0;
#X msg 81 19 \$1;
#X obj 138 116 + 1;
#X obj 119 219 list append, f 17;
#X obj 81 169 +;
#X obj 12 207 list prepend;
#X obj 12 39 t a a;
#X obj 12 231 s \$0.data;
#X msg 12 92 \$2;
#X obj 12 1 inlet;
#X obj 81 131 * 3;
#X obj 297 179 mod 3;
#X obj 131 164 outlet;
#X obj 119 242 s \$0.count;
#X obj 138 139 t a a a, f 27;
#X obj 138 95 tabread \$0.count;
#X obj 228 221 list append, f 12;
#X obj 119 187 t a a;
#X obj 228 244 s \$0.index;
#X obj 144 65 tabread \$0.index;
#X obj 81 41 t a b a a a;
#X obj 96 96 f;
#X connect 0 0 19 0;
#X connect 1 0 13 0;
#X connect 2 0 12 0;
#X connect 3 0 4 1;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 5 1 0 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 15 1;
#X connect 13 0 20 1;
#X connect 13 1 2 1;
#X connect 13 2 10 0;
#X connect 14 0 1 0;
#X connect 15 0 17 0;
#X connect 16 0 2 0;
#X connect 16 1 15 0;
#X connect 18 0 3 1;
#X connect 19 0 9 0;
#X connect 19 1 20 0;
#X connect 19 2 16 0;
#X connect 19 3 14 0;
#X connect 19 4 18 0;
#X connect 20 0 11 0;
#X restore 12 44 pd store.data;
#N canvas 567 375 309 496 group.by.peer 0;
#X obj 27 32 t b b;
#X msg 66 59 0;
#X msg 27 54 100;
#X obj 27 76 until;
#X obj 27 98 f;
#X obj 68 99 + 1;
#X obj 27 10 inlet;
#X obj 27 318 outlet;
#X obj 27 148 tabread \$0.count;
#X obj 27 124 t a a, f 9;
#X obj 27 171 >= 2;
#X obj 27 194 sel 1;
#X obj 27 217 f, f 9;
#X obj 27 287 array get \$0.data;
#X msg 76 263 3;
#X obj 27 240 t a b;
#X obj 27 263 * 3;
#X connect 0 0 2 0;
#X connect 0 1 1 0;
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 12 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 7 0;
#X connect 14 0 13 1;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 16 0 13 0;
#X restore 31 214 pd group.by.peer;
#N canvas 0 44 391 248 median 0;
#N canvas 0 44 705 480 list-sort 0;
#X obj 103 217 list split 1;
#X obj 137 238 list split 1;
#X obj 103 280 list append;
#X obj 31 253 list;
#X obj 31 194 > 0;
#X obj 118 349 outlet;
#X obj 31 215 sel 1 0;
#X obj 137 46 inlet;
#X text 29 420 2008 Michal Seta;
#X obj 207 300 list prepend;
#X obj 289 301 t l;
#X obj 118 327 list append;
#X obj 137 110 t l l l l b;
#X obj 137 67 t l b;
#X text 266 190 [list-sort] sort an incoming list of numerical values in an ascending order;
#X obj 31 173 list length;
#N canvas 0 44 679 481 list-minmax 0;
#X obj 128 120 route float;
#X obj 159 256 f;
#X obj 106 394 outlet;
#X obj 165 369 f;
#X obj 165 396 outlet;
#X obj 106 305 t b b;
#X obj 106 10 inlet;
#X obj 106 366 f;
#N canvas 0 0 450 300 once 0;
#X obj 110 75 inlet;
#X obj 105 187 spigot 1;
#X obj 110 104 t b f;
#X msg 125 151 0;
#X msg 165 99 1;
#X obj 165 63 inlet;
#X obj 102 219 outlet;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 1 1;
#X connect 4 0 1 1;
#X connect 5 0 4 0;
#X restore 260 183 pd once;
#X obj 275 258 f;
#X obj 244 257 max;
#X obj 128 256 min;
#X obj 128 150 t a a a;
#X obj 106 30 t b a b;
#X text 321 183 prime [min] and [max] with first item once;
#N canvas 0 44 705 479 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 128 80 pd list-drip;
#X connect 0 0 12 0;
#X connect 1 0 11 1;
#X connect 3 0 4 0;
#X connect 5 0 7 0;
#X connect 5 1 3 0;
#X connect 6 0 13 0;
#X connect 7 0 2 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 9 0 10 1;
#X connect 10 0 9 0;
#X connect 10 0 3 1;
#X connect 11 0 1 0;
#X connect 11 0 7 1;
#X connect 12 0 11 0;
#X connect 12 1 10 0;
#X connect 12 2 8 0;
#X connect 13 0 5 0;
#X connect 13 1 15 0;
#X connect 13 2 8 1;
#X connect 15 0 0 0;
#X restore 175 145 pd list-minmax;
#N canvas 0 44 622 509 list-find 0;
#X obj 91 359 f;
#X obj 91 51 inlet;
#X obj 183 47 inlet;
#X obj 91 396 outlet;
#X text 60 27 value to find;
#X obj 91 210 t a b;
#X obj 91 158 list;
#X text 180 27 list to search in;
#X text 208 103 [list-find] Find positions of a value (symbol or float) in a list.;
#X obj 91 317 select 1;
#N canvas 0 0 450 300 count 0;
#X obj 120 148 f 0;
#X obj 148 149 + 1;
#X obj 163 100 0;
#X obj 117 24 inlet;
#X obj 119 176 outlet;
#X obj 181 25 inlet;
#X obj 114 47 b;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X restore 121 245 pd count;
#X obj 91 80 t b a b b;
#X obj 176 395 outlet;
#X obj 248 351 + 1;
#X obj 176 375 f;
#X obj 219 350 f 1;
#X msg 235 317 1;
#X msg 199 318 0;
#N canvas 0 44 551 485 compare-any 0;
#X obj 118 28 inlet;
#X obj 118 451 outlet;
#X obj 118 336 ==;
#X obj 118 358 select 1;
#N canvas 272 259 450 300 demux 0;
#X obj 76 87 inlet;
#X obj 169 86 inlet;
#X obj 76 145 list prepend 0;
#X obj 76 186 route 0 1;
#X obj 76 242 outlet;
#X obj 105 213 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 118 230 pd demux;
#X msg 169 207 0;
#X msg 200 206 1;
#X obj 118 295 route float;
#X obj 219 293 route symbol;
#X obj 359 199 print HUH?;
#X obj 219 272 list;
#X obj 238 164 route float symbol;
#X obj 238 136 list;
#X msg 118 423 1;
#X msg 190 418 0;
#X obj 238 28 inlet;
#X obj 219 356 select [DUMMY-SYMBOL];
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 3 1 14 0;
#X connect 4 0 7 0;
#X connect 4 1 10 0;
#X connect 5 0 4 1;
#X connect 6 0 4 1;
#X connect 7 0 2 0;
#X connect 7 1 14 0;
#X connect 8 0 16 0;
#X connect 8 1 14 0;
#X connect 10 0 8 0;
#X connect 11 0 2 1;
#X connect 11 0 5 0;
#X connect 11 1 6 0;
#X connect 11 1 16 1;
#X connect 11 2 9 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 13 0;
#X connect 16 1 14 0;
#X restore 91 281 pd compare-any;
#N canvas 0 44 705 479 list-drip 0;
#X obj 63 84 t a a;
#X obj 63 241 spigot;
#X obj 102 149 bang;
#X obj 102 168 1;
#X obj 223 149 route bang;
#X obj 183 150 bang;
#X obj 183 169 0;
#X obj 102 114 list split 2;
#X obj 232 379 list split;
#X obj 299 328 list length;
#X obj 299 350 >> 1;
#X obj 63 260 t a a a a;
#X obj 63 446 list split;
#X obj 130 398 list length;
#X obj 130 423 >> 1;
#X obj 31 19 inlet;
#X obj 290 175 outlet;
#X text 73 19 Copyright 2009 by Mathieu Bouchard;
#X obj 31 53 t b a;
#X obj 465 119 outlet;
#X text 520 121 signal end of list;
#X text 381 23 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 91 185 pd list-drip;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 2 0 6 1;
#X connect 5 0 18 0;
#X connect 5 1 10 0;
#X connect 6 0 19 0;
#X connect 9 0 0 0;
#X connect 9 0 15 0;
#X connect 10 0 0 1;
#X connect 11 0 6 0;
#X connect 11 1 18 1;
#X connect 11 2 10 1;
#X connect 11 3 16 0;
#X connect 11 3 17 0;
#X connect 13 0 15 1;
#X connect 14 0 12 0;
#X connect 15 0 14 1;
#X connect 15 0 13 0;
#X connect 16 0 15 1;
#X connect 17 0 14 1;
#X connect 18 0 9 0;
#X connect 19 0 5 0;
#X connect 19 1 14 0;
#X restore 160 180 pd list-find;
#X connect 0 0 2 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 1 1 2 1;
#X connect 2 0 3 1;
#X connect 3 0 12 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 11 0;
#X connect 7 0 13 0;
#X connect 9 0 10 0;
#X connect 9 0 11 1;
#X connect 10 0 9 1;
#X connect 11 0 5 0;
#X connect 12 0 15 0;
#X connect 12 1 0 0;
#X connect 12 2 16 0;
#X connect 12 3 17 1;
#X connect 13 0 12 0;
#X connect 13 1 9 1;
#X connect 15 0 4 0;
#X connect 16 0 17 0;
#X connect 17 0 0 1;
#X restore 44 120 pd list-sort;
#X obj 127 131 / 2;
#X obj 127 109 - 1;
#X obj 44 174 list split;
#X msg 72 199 \$1;
#X obj 44 34 inlet;
#X obj 44 56 t a a;
#X obj 127 83 list length;
#X obj 72 222 outlet;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 1 7 0;
#X connect 7 0 2 0;
#X restore 31 241 pd median;
#X obj 12 190 t b b b;
#X msg 51 264 -1000;
#X obj 59 287 t a;
#X obj 31 287 max;
#X obj 12 308 f;
#X obj 12 330 max 0;
#X obj 12 368 outlet;
#X msg 291 253 -1e+06;
#X obj 291 81 r \$0.untik;
#X obj 291 104 route sync_reset_data;
#X obj 291 127 t b b;
#X text 49 73 <- we receive 3 samples;
#X msg 12 136 1;
#X msg 51 137 0;
#X obj 307 47 table \$0.data 300;
#X obj 307 6 table \$0.count 100;
#X obj 339 182 s \$0.count;
#X obj 329 205 s \$0.index;
#X obj 307 26 table \$0.index 100;
#X obj 12 73 sel 3;
#X obj 12 164 metro 703;
#X obj 12 96 delay 300;
#X obj 145 10 r \$0.untik;
#X obj 145 33 route run;
#X obj 145 56 sel 0;
#X msg 145 97 stop;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 22 0;
#X connect 2 0 23 0;
#X connect 3 0 25 0;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 6 1 4 0;
#X connect 6 2 7 0;
#X connect 7 0 9 1;
#X connect 7 0 10 1;
#X connect 8 0 9 1;
#X connect 9 0 8 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 0 19 0;
#X connect 16 0 13 0;
#X connect 16 1 2 0;
#X connect 18 0 26 0;
#X connect 19 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 6 0;
#X connect 27 0 18 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 27 0;
#X restore 15 125 pd examination;
#N canvas 1443 544 435 371 schedule 0;
#X obj 105 300 outlet;
#X obj 105 9 r \$0.untik;
#X obj 105 32 route run;
#N canvas 837 192 430 280 detect-drop-outs 0;
#X obj 176 55 t b b;
#X obj 132 107 -;
#X obj 112 9 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 112 34 t b b;
#X obj 131 83 realtime;
#X obj 192 84 timer;
#X obj 176 30 metro 38.3928;
#X obj 176 5 loadbang;
#X obj 132 157 > 150;
#X obj 132 182 sel 1;
#X obj 132 207 t b b;
#X obj 59 71 t b;
#X text 133 8 reset;
#X obj 158 242 outlet;
#N canvas 1085 470 360 226 avg_of_3 0;
#X obj 18 39 t a a b b;
#X obj 38 71 f;
#X obj 69 92 f;
#X obj 37 114 +;
#X obj 18 137 +;
#X obj 18 159 / 3;
#X obj 18 17 inlet;
#X obj 18 184 outlet;
#X connect 0 0 4 0;
#X connect 0 1 1 1;
#X connect 0 2 1 0;
#X connect 0 3 2 0;
#X connect 1 0 2 1;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X restore 132 132 pd avg_of_3;
#X connect 0 0 4 1;
#X connect 0 1 5 1;
#X connect 1 0 14 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 1 0;
#X connect 5 0 1 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 13 0;
#X connect 11 0 3 0;
#X connect 14 0 8 0;
#X restore 172 8 pd detect-drop-outs;
#X obj 105 212 t b b b, f 22;
#X obj 105 237 del 615;
#X obj 234 235 b;
#X obj 105 267 t b;
#X obj 169 236 del 207;
#X obj 105 189 metro 9218;
#X obj 172 113 spigot 0;
#X obj 105 55 t a a;
#X msg 172 136 0 \, 1;
#X obj 105 159 t a a;
#X obj 261 141 sel 0;
#X msg 261 163 sync_reset_data;
#X obj 261 186 s \$0.untik;
#X obj 241 30 r \$0.untik;
#X obj 241 53 route sync_fix_wait_expired;
#X obj 241 76 b;
#X connect 1 0 2 0;
#X connect 2 0 11 0;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 4 1 8 0;
#X connect 4 2 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 11 1 10 1;
#X connect 12 0 13 0;
#X connect 13 0 9 0;
#X connect 13 1 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 10 0;
#X restore 15 37 pd schedule;
#N canvas 663 284 465 730 application 0;
#X obj 22 12 inlet;
#N canvas 1246 512 236 203 tick.length.in.ms 0;
#X obj 9 11 r \$0.untik;
#X obj 9 34 route tempo;
#X obj 9 57 list;
#X msg 9 80 \$2 \$1;
#X obj 9 103 route permin;
#X msg 9 126 60000 \$1;
#X obj 9 149 /;
#X obj 9 172 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X restore 37 98 pd tick.length.in.ms;
#X obj 22 121 *;
#X obj 22 193 select 1;
#X obj 22 168 > 300;
#X obj 22 216 f, f 25;
#N canvas 197 233 386 390 current.pos 0;
#X obj 62 16 inlet;
#X obj 62 309 outlet;
#X obj 62 38 t b b;
#X obj 62 258 f;
#X obj 171 22 r \$0.untik;
#X obj 171 45 route pos tempo, f 29;
#X obj 256 100 list trim;
#X obj 256 77 list prepend tempo;
#X obj 171 185 timer;
#X obj 171 210 +, f 13;
#X obj 171 145 t b a, f 13;
#X obj 62 283 t a a;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 8 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 3 1;
#X connect 10 0 8 0;
#X connect 10 1 9 1;
#X connect 11 0 1 0;
#X restore 49 380 pd current.pos;
#X obj 22 404 +, f 5;
#X obj 22 458 int;
#X obj 79 455 wrap;
#X msg 79 479 1 \$1;
#X obj 79 502 -;
#X obj 22 432 t a a, f 10;
#X obj 22 529 pack f f, f 10;
#X text 67 408 target pos;
#X obj 88 691 s \$0.untik;
#X obj 22 552 t a a b;
#X msg 139 625 run 0;
#X msg 22 599 \$2;
#X obj 22 622 del;
#X msg 88 625 set \$1;
#X obj 111 533 r \$0.untik;
#X obj 111 556 route tempo;
#X msg 22 648 run 1;
#X msg 111 579 tempo \$1 \$2;
#X obj 22 144 t a a;
#X msg 226 133 sync_delay_ms \$1;
#X msg 261 164 sync_delay_ticks \$1;
#X obj 226 200 s \$0.untik;
#X text 115 430 --- compensation -----------;
#X text 118 340 --- calculate target pos -----------;
#X text 172 389 current_pos + offset;
#X obj 22 75 t a a a, f 48;
#X obj 22 243 spigot 1;
#X obj 180 242 r \$0.untik;
#X obj 180 265 route sync_auto_on sync_manual_trigger;
#X obj 292 301 b;
#X obj 34 270 f, f 13;
#X obj 22 35 sel -1e+06;
#X msg 250 105 -1e+06;
#X obj 22 338 t a b a, f 9;
#X obj 103 298 pack f f;
#N canvas 1092 869 434 150 print.offset.correction 0;
#X obj 11 13 inlet;
#X obj 11 73 print UNTIK;
#X msg 11 43 sync delay adjusted by \$1 ticks (\$2 ms);
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 103 320 pd print.offset.correction;
#N canvas 785 463 450 300 rate.limit 0;
#X obj 7 8 inlet;
#X obj 7 186 outlet;
#X obj 7 82 spigot 1;
#X obj 7 147 t a b;
#X msg 65 109 0;
#X obj 124 92 delay 2000;
#X obj 124 115 t b b;
#X msg 151 149 1;
#X msg 124 187 sync_fix_wait_expired;
#X obj 124 210 s \$0.untik;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 3 1 5 0;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 7 0 2 1;
#X connect 8 0 9 0;
#X restore 22 299 pd rate.limit;
#N canvas 1609 655 432 212 advertize_sync_correction 0;
#X obj 30 25 inlet;
#X obj 30 78 s \$0.untik;
#X msg 30 53 clock main resync \$1 \, resync \$1;
#X text 158 70 send resync also to pattern players;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 210 498 pd advertize_sync_correction;
#X connect 0 0 38 0;
#X connect 1 0 2 1;
#X connect 2 0 25 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 33 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 1;
#X connect 12 0 8 0;
#X connect 12 1 9 0;
#X connect 13 0 16 0;
#X connect 16 0 18 0;
#X connect 16 1 20 0;
#X connect 16 2 17 0;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 20 0 15 0;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 23 0 15 0;
#X connect 24 0 19 0;
#X connect 25 0 4 0;
#X connect 25 1 26 0;
#X connect 25 1 41 1;
#X connect 26 0 28 0;
#X connect 27 0 28 0;
#X connect 32 0 2 0;
#X connect 32 1 5 1;
#X connect 32 1 37 1;
#X connect 32 2 27 0;
#X connect 33 0 43 0;
#X connect 34 0 35 0;
#X connect 35 0 33 1;
#X connect 35 1 36 0;
#X connect 36 0 37 0;
#X connect 37 0 43 0;
#X connect 38 0 39 0;
#X connect 38 1 32 0;
#X connect 39 0 26 0;
#X connect 39 0 27 0;
#X connect 40 0 7 0;
#X connect 40 1 6 0;
#X connect 40 2 41 0;
#X connect 40 2 44 0;
#X connect 41 0 42 0;
#X connect 43 0 40 0;
#X restore 15 150 pd application;
#X text 8 15 offset detection/correction;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X restore 179 254 pd offset.detection;
#N canvas 592 664 355 351 event.scheduler 0;
#X obj 36 165 untik-event-scheduler;
#X obj 159 37 route clock;
#X obj 159 14 r \$0.untik;
#X obj 159 60 route main;
#X obj 35 40 route schedule;
#X obj 35 13 r \$0.untik;
#X obj 35 67 list split 1;
#X obj 36 218 list prepend event;
#X obj 36 241 list trim;
#X obj 36 264 s \$0.untik;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 0 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 1 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X restore 179 307 pd event.scheduler;
#N canvas 1515 467 485 476 timestamp 0;
#X obj 16 38 route get;
#X obj 50 140 route timestamp;
#X obj 16 92 list split 1;
#X obj 50 116 list trim;
#X obj 205 135 r \$0.untik;
#X obj 50 186 f;
#X obj 50 211 sel 0 1, f 19;
#X obj 205 158 route run pos tempo;
#X obj 279 191 list prepend tempo;
#X obj 279 214 list trim;
#X obj 78 293 timer;
#X obj 78 266 t b a, f 10;
#X obj 50 252 f;
#X obj 78 316 +, f 10;
#X obj 50 341 t a;
#X obj 16 395 pack s f;
#X msg 16 419 clock \$1 timestamp \$2;
#X obj 16 442 s \$0.untik;
#X obj 16 15 r \$0.untik;
#X obj 16 372 spigot;
#X obj 16 65 t a b, f 26;
#X obj 50 163 t b b, f 20;
#X msg 167 187 1;
#X msg 169 93 0;
#X obj 210 329 t a;
#X connect 0 0 20 0;
#X connect 1 0 21 0;
#X connect 2 0 19 0;
#X connect 2 1 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 6 1 10 1;
#X connect 7 0 5 1;
#X connect 7 1 11 0;
#X connect 7 1 12 1;
#X connect 7 2 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
#X connect 11 1 13 1;
#X connect 12 0 14 0;
#X connect 13 0 14 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 18 0 0 0;
#X connect 19 0 15 0;
#X connect 20 0 2 0;
#X connect 20 1 23 0;
#X connect 21 0 5 0;
#X connect 21 1 22 0;
#X connect 22 0 24 0;
#X connect 23 0 24 0;
#X connect 24 0 19 1;
#X restore 179 280 pd timestamp;
#X connect 3 0 8 0;
#X connect 8 0 10 0;
#X connect 8 2 9 0;
#X connect 10 0 11 0;
#X connect 27 0 28 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 27 0;