content.pd

#N canvas 67 156 676 503 10;
#X declare -lib zexy -path zexy -path ./;
#X obj 0 3 cnv 2 2 2 empty \$0-block empty 7 -10 1 14 -233017 -66577
0;
#X obj 1 4 cnv 3 47 21 empty \$0-block3 empty 2 3 0 8 -56307 -119519
0;
#N canvas 67 87 1299 681 (subpatch) 0;
#X array c\$0 100 float 2;
#X obj 485 229 receive \$0-arrsize;
#X obj 485 251 iemguts/sendcanvas;
#X connect 1 0 2 0;
#X coords 0 0.954545 100 -0.954545 48 22 1 0 0;
#X restore 0 3 graph;
#X obj 0 -117 outlet~;
#X obj 141 -313 inlet;
#N canvas 419 198 793 520 message 0;
#X obj 343 17 inlet;
#X obj 137 78 cyclone/zl iter 1;
#X obj 343 39 t b a;
#X obj 43 128 cnv 13 500 1 empty \$0-datagrid load 18 -5 0 10 -13330
-66577 0;
#X obj 43 141 cnv 13 500 1 empty \$0-datagrid x_start_pos 18 -5 0 10
-13330 -66577 0;
#X obj 43 154 cnv 13 500 1 empty \$0-datagrid x_end_pos 18 -5 0 10
-13330 -66577 0;
#X obj 43 193 cnv 13 500 1 empty \$0-datagrid colour 18 -5 0 10 -13330
-66577 0;
#X obj 43 206 cnv 13 500 1 empty \$0-datagrid y-top 18 -5 0 10 -13330
-66577 0;
#X obj 43 167 cnv 13 500 1 empty \$0-datagrid y_start_pos 18 -5 0 10
-13330 -66577 0;
#X obj 43 180 cnv 13 500 1 empty \$0-datagrid y_end_pos 18 -5 0 10
-13330 -66577 0;
#X obj 43 232 cnv 13 500 1 empty \$0-datagrid normalize 18 -5 0 10
-13330 -66577 0;
#X obj 43 245 cnv 13 500 1 empty \$0-datagrid curve 18 -5 0 10 -13330
-66577 0;
#X obj 43 258 cnv 13 500 1 empty \$0-datagrid bitrate 18 -5 0 10 -13330
-66577 0;
#X obj 578 16 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
500;
#X msg 578 38 vis_size \$1 1;
#X obj 578 60 s \$0-datagrid;
#X obj 43 219 cnv 13 500 1 empty \$0-datagrid y-bottom 18 -5 0 10 -13330
-66577 0;
#X obj 43 271 cnv 13 500 1 empty \$0-datagrid left_snap 18 -5 0 10
-13330 -66577 0;
#X obj 43 284 cnv 13 500 1 empty \$0-datagrid right_snap 18 -5 0 10
-13330 -66577 0;
#X obj 43 297 cnv 13 500 1 empty \$0-datagrid top_snap 18 -5 0 10 -13330
-66577 0;
#X obj 43 310 cnv 13 500 1 empty \$0-datagrid bottom_snap 18 -5 0 10
-13330 -66577 0;
#X obj 43 375 cnv 13 500 1 empty \$0-datagrid print 18 -5 0 10 -13330
-66577 0;
#X obj 43 388 cnv 13 500 1 empty \$0-datagrid save-list 18 -5 0 10
-13330 -66577 0;
#X obj 393 17 receive \$0-anyin;
#X obj 43 323 cnv 13 500 1 empty \$0-datagrid editable 18 -5 0 10 -13330
-66577 0;
#X obj 176 17 iemguts/oreceive nop;
#X obj 176 -86 receive \$0-myname;
#X obj 43 401 cnv 13 500 1 empty \$0-datagrid set 18 -5 0 10 -13330
-66577 0;
#X obj 43 414 cnv 13 500 1 empty \$0-datagrid save 18 -5 0 10 -13330
-66577 0;
#X obj 43 336 cnv 13 500 1 empty \$0-datagrid saveable 18 -5 0 10 -13330
-66577 0;
#X obj 43 427 cnv 13 500 1 empty \$0-datagrid clear 18 -5 0 10 -13330
-66577 0;
#X obj 43 349 cnv 13 500 1 empty \$0-datagrid resize 18 -5 0 10 -13330
-66577 0;
#X obj 414 63 ctxfiles/recompile \$0 xothr;
#X obj 43 440 cnv 13 500 1 empty \$0-datagrid record 18 -5 0 10 -13330
-66577 0;
#X obj 43 453 cnv 13 500 1 empty \$0-datagrid fit 18 -5 0 10 -13330
-66577 0;
#X obj 43 466 cnv 13 500 1 empty \$0-datagrid time-reset 18 -5 0 10
-13330 -66577 0;
#X obj 43 479 cnv 13 500 1 empty \$0-datagrid savefile 18 -5 0 10 -13330
-66577 0;
#X obj 43 362 cnv 13 500 1 empty \$0-datagrid label 18 -5 0 10 -13330
-66577 0;
#X obj 43 492 cnv 13 500 1 empty \$0-datagrid fetch 18 -5 0 10 -13330
-66577 0;
#X obj 616 155 unpack s s;
#X obj 673 179 makefilename \$0-%s-fetch;
#X obj 616 133 receive \$0-mfetch;
#X obj 616 198 send;
#X obj 620 232 receive \$0-fetchno2;
#X obj 620 254 unpack f s;
#X obj 620 276 text get \$0-save;
#X obj 620 343 send;
#X obj 620 298 list trim;
#X obj 620 320 route %^;
#X obj 137 102 ctxfiles/br2 route 1 \; :lo tfs \$0 #f lo clear \, load
#l \; :x1 tfsn \$0 #f x1 0 \; :x2 tfsn \$0 #f x2 0 \; :y1 tfsn \$0
#f y1 0 \; :y2 tfsn \$0 #f y2 0 \; :c tfs \$0 #f c 17 \, color #l \,
colour #l \; :s1 tfs \$0 #f s1 1 \; :s2 tfs \$0 #f s2 -1 \; :nm tfs
\$0 #f nm 1 \, normalize #l \; :li tfs \$0 #f li 0 \, line #l \; :br
tfs \$0 #f br 44100 \, bitrate #l \; :p1 tfs \$0 #f p1 0 \; :p2 tfs
\$0 #f p2 0 \; :p3 tfs \$0 #f p3 0 \; :p4 tfs \$0 #f p4 0 \; :ed tfst
\$0 #f ed 1 \, edit #l \; :as tfst \$0 #f as 1 \; :sz tfst \$0 #f sz
100 \, size #l \; :la tfs \$0 #f la bang \; print tf \$0 #f \; savelist
tf \$0 #f \; set tf \$0 #f \; save tf \$0 #f \; clear tf \$0 #f \;
:r tf \$0 #f \, record #l \, crecord #l \; fit tf \$0 #f \; :ti tf
\$0 #f \; :sa tf \$0 #f \, savefile #l \; fetch tf \$0 #f \; smooth
tf \$0 #f \; ## s \$0-xothr;
#X obj 414 89 ctxfiles/br2 demux 2 \; #f t \; #f ll \$0 \; #f s \$0-:x1
\; #f s \$0-:x2 \; #f s \$0-:y1 \; #f s \$0-:y2 \; #f s \$0-:cs \;
#f s \$0-:s1s \; #f s \$0-:s2s \; #f s \$0-:ns \; #f s \$0-:lis \;
#f s \$0-:bs \; #f s \$0-:p1 \; #f s \$0-:p2 \; #f s \$0-:p3 \; #f
s \$0-:p4 \; #f s \$0-:eds \; #f s \$0-:ass \; #f s \$0-sizer \; #f
s \$0-:la \; #f s \$0-printall \; #f s \$0-savelist \; #f s \$0-setme
\; #f s \$0-savem \; #f s \$0-clearme \; #f s \$0-record \; #f s \$0-fitme
\; #f s \$0-retime \; #f s \$0-savefile \; #f s \$0-mfetch \; #f s
\$0-smooth;
#X obj 43 505 cnv 13 500 1 empty \$0-datagrid smooth 18 -5 0 10 -13330
-66577 0;
#X obj 289 -86 receive \$0-parentdollar;
#X obj 244 -63 pack s s;
#X msg 244 -40 symbol \$2-\$1;
#X obj 244 -17 iemguts/oreceive nop;
#X obj 406 -56 receive \$0-dvstart;
#X obj 406 -33 makefilename %d-mine;
#X obj 406 -10 iemguts/oreceive nop;
#X connect 0 0 2 0;
#X connect 1 0 49 0;
#X connect 2 0 32 0;
#X connect 2 1 1 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 23 0 2 0;
#X connect 25 0 2 0;
#X connect 26 0 25 0;
#X connect 26 0 53 0;
#X connect 32 0 50 0;
#X connect 32 1 50 1;
#X connect 39 0 42 0;
#X connect 39 1 40 0;
#X connect 40 0 42 1;
#X connect 41 0 39 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 44 1 46 1;
#X connect 45 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 48 1 46 0;
#X connect 52 0 53 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 55 0 2 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 2 0;
#X restore 214 -291 pd message;
#X obj 0 -143 r~ \$0-too;
#X obj 1 -232 iemguts/canvasargs;
#N canvas 465 207 450 444 loadbang 0;
#X obj 184 165 s \$0-lb;
#X obj 152 66 ctxfiles/myinit 3;
#X obj 60 155 del 1000;
#X obj 249 259 s \$0-lb1;
#X obj 32 255 spigot 1;
#X obj 52 356 s \$0-created;
#X obj 60 198 s \$0-savestart;
#X obj 217 210 s \$0-iemargr;
#X obj 233 236 s \$0-lb2;
#X obj 32 378 s \$0-lbang;
#X obj 32 232 receive \$0-cbee;
#X obj 265 144 makefilename \$0-cbee;
#X text 14 -143 firest when created newly in the overlay (ie. not loaded
from the patch). lbang fires early if content is created and late (by
context) if not.;
#X obj 200 187 s \$0-iemarg1;
#X obj 92 303 s \$0-created1;
#X obj 64 331 s \$0-ncreated;
#X obj 32 277 t b b b b;
#X obj 64 303 f 1;
#X obj 60 177 f 1;
#X obj 14 -97;
#X obj 233 348 receive \$0-lbang;
#X obj 233 370 f 1;
#X obj 233 392 s \$0-lbang1;
#X obj -7 32 loadbang;
#X obj 152 88 spigot 1;
#X obj -7 78 + 1;
#X obj 29 78 t f;
#X obj -7 54 f 1;
#X obj 39 122 s \$0-notloaded;
#X obj -7 100 moses 3;
#X obj 265 284 ctxfiles/dvs \$0 cbeep;
#X obj 152 41 ctxfiles/dvi \$0 4 loadbang;
#X obj 152 119 t f b b b b b b f f b;
#X obj 306 173 iemguts/canvasdollarzero 3;
#X obj 306 196 s \$0-parentdollar;
#X connect 1 0 24 0;
#X connect 2 0 18 0;
#X connect 4 0 16 0;
#X connect 10 0 4 0;
#X connect 11 0 30 0;
#X connect 16 0 9 0;
#X connect 16 1 5 0;
#X connect 16 2 17 0;
#X connect 16 3 14 0;
#X connect 17 0 15 0;
#X connect 17 0 25 0;
#X connect 18 0 6 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 27 0;
#X connect 24 0 32 0;
#X connect 25 0 26 0;
#X connect 25 0 29 0;
#X connect 26 0 25 1;
#X connect 27 0 25 0;
#X connect 29 1 28 0;
#X connect 31 0 1 0;
#X connect 32 0 4 1;
#X connect 32 1 2 0;
#X connect 32 2 0 0;
#X connect 32 3 13 0;
#X connect 32 4 7 0;
#X connect 32 5 8 0;
#X connect 32 6 3 0;
#X connect 32 7 11 0;
#X connect 32 8 24 1;
#X connect 32 9 33 0;
#X connect 33 0 34 0;
#X restore 214 -335 pd loadbang;
#X obj 1 -210 s \$0-canvass;
#N canvas 245 225 1079 601 tabload 0;
#X obj 401 433 soundfiler;
#X obj 7 396 ctxfiles/sp 13;
#X obj 420 546 s \$0-sizer;
#X obj 102 373 receive \$0-pixsize;
#X obj 510 365 receive \$0-name;
#X obj 280 224 receive \$0-tname;
#X obj 342 325 s \$0-myname;
#X obj 401 185 s2l /;
#X obj 401 207 cyclone/zl rev;
#X obj 401 229 unpack s;
#X obj 401 251 s2l .;
#X obj 401 273 t a a;
#X obj 433 296 list length;
#X obj 433 318 > 1;
#X obj 369 355 demux;
#X obj 342 301 unpack s;
#X obj 7 313 receive \$0-myname;
#X obj 401 386 list append c\$0;
#X msg 401 409 read -resize \$1 \$2;
#X obj 282 395 t s b s;
#X obj 305 423 array size;
#X obj 527 437 symbol;
#X obj 451 363 sel 1;
#X msg 527 459 set \$1;
#X obj 527 481 s \$0-sname;
#X obj 433 340 t f f f;
#X obj 489 340 s \$0-tabmode;
#X obj 312 558 s \$0-size;
#X obj 550 406 receive \$0-snamep;
#X obj 369 72 makefilename %.1s;
#X msg 401 117 1;
#X obj 369 117 t f;
#X obj 337 140 demux;
#X obj 156 206 s2l;
#X obj 156 228 list split 1;
#X obj 196 251 s \$0-anyin;
#X obj 156 251 t b;
#X obj 156 274 symbol;
#X msg 156 296 set \$1;
#X obj 156 318 s \$0-:loo;
#X obj 7 419 s \$0-block3;
#X obj 280 273 makefilename ~%d;
#X obj 369 94 sel .;
#X obj 369 163 t s s s b;
#X obj 123 75 spigot;
#X msg 123 144 menusave;
#X obj 123 166 iemguts/sendcanvas 2;
#X obj 123 121 del 10;
#X msg 697 128 normalize \$1;
#X obj 697 180 send;
#X obj 722 155 receive \$0-name;
#X obj 529 83 receive \$0-clearme;
#X msg 575 128 const 0;
#X obj 123 99 t b;
#X obj 162 52 receive \$0-notloaded;
#X obj 536 271 s \$0-:ass;
#X obj 536 229 t f f;
#X obj 568 250 s \$0-:eds;
#X msg 552 151 clear;
#X obj 552 173 s \$0-:lo;
#X obj 280 246 f;
#X obj 529 105 t b b b;
#X obj 697 106 receive \$0-:nm;
#X obj 478 493 t f;
#X obj 312 489 receive \$0-sizepre;
#X obj 312 512 t f f;
#X obj 339 535 s \$0-:sz;
#X msg 420 522 set \$1;
#X obj 435 482 f 100;
#X obj 478 516 s \$0-:bs;
#X obj 855 73 receive \$0-savefile;
#X obj 855 240 savepanel;
#X obj 894 286 list append c\$0;
#X obj 855 190 route bang panel;
#X obj 855 144 list split 1;
#X obj 894 309 list prepend;
#X obj 882 121 symbol -wave;
#X obj 894 332 cyclone/prepend write;
#X obj 855 167 list trim;
#X obj 882 377 list prepend :lo;
#X obj 882 399 s \$0-anyin;
#X obj 855 98 t a b;
#X obj 882 355 list;
#X obj 855 216 del 1;
#X obj 855 309 del 1;
#X obj 855 263 t b a a;
#X obj 855 332 t b b;
#X msg 611 539 :li 1;
#X obj 401 456 t f f b b;
#X obj 611 515 del;
#X obj 855 421 s \$0-dirt;
#X obj 314 25 receive \$0-:lo;
#X obj 314 50 t b s s;
#X obj 234 102 receive \$0-:la;
#X obj 234 125 route bang;
#X connect 0 0 88 0;
#X connect 0 1 63 0;
#X connect 1 0 40 0;
#X connect 3 0 1 1;
#X connect 4 0 17 1;
#X connect 4 0 72 1;
#X connect 5 0 60 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 15 0;
#X connect 11 1 12 0;
#X connect 12 0 13 0;
#X connect 13 0 25 0;
#X connect 14 0 19 0;
#X connect 14 1 17 0;
#X connect 15 0 6 0;
#X connect 16 0 1 0;
#X connect 17 0 18 0;
#X connect 18 0 0 0;
#X connect 19 0 23 0;
#X connect 19 1 20 0;
#X connect 19 2 20 1;
#X connect 20 0 88 0;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 25 0 14 1;
#X connect 25 1 22 0;
#X connect 25 2 26 0;
#X connect 28 0 21 0;
#X connect 29 0 42 0;
#X connect 30 0 32 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 1 43 0;
#X connect 33 0 34 0;
#X connect 34 0 36 0;
#X connect 34 1 35 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 41 0 6 0;
#X connect 42 0 31 0;
#X connect 42 1 30 0;
#X connect 43 0 14 0;
#X connect 43 1 7 0;
#X connect 43 2 37 1;
#X connect 43 3 56 0;
#X connect 44 0 53 0;
#X connect 45 0 46 0;
#X connect 47 0 45 0;
#X connect 48 0 49 0;
#X connect 50 0 49 1;
#X connect 51 0 61 0;
#X connect 52 0 49 0;
#X connect 53 0 47 0;
#X connect 54 0 44 1;
#X connect 56 0 55 0;
#X connect 56 1 57 0;
#X connect 58 0 59 0;
#X connect 60 0 41 0;
#X connect 61 0 60 0;
#X connect 61 1 58 0;
#X connect 61 2 52 0;
#X connect 62 0 48 0;
#X connect 63 0 69 0;
#X connect 64 0 65 0;
#X connect 65 0 27 0;
#X connect 65 1 66 0;
#X connect 67 0 2 0;
#X connect 68 0 66 0;
#X connect 70 0 81 0;
#X connect 71 0 85 0;
#X connect 72 0 75 0;
#X connect 73 0 83 0;
#X connect 73 1 83 0;
#X connect 73 2 85 0;
#X connect 74 0 78 0;
#X connect 74 1 75 1;
#X connect 74 2 73 0;
#X connect 75 0 77 0;
#X connect 76 0 75 1;
#X connect 77 0 0 0;
#X connect 78 0 73 0;
#X connect 79 0 80 0;
#X connect 81 0 74 0;
#X connect 81 1 76 0;
#X connect 82 0 79 0;
#X connect 83 0 71 0;
#X connect 84 0 86 0;
#X connect 85 0 84 0;
#X connect 85 1 82 1;
#X connect 85 2 72 0;
#X connect 86 0 90 0;
#X connect 86 1 82 0;
#X connect 87 0 80 0;
#X connect 88 0 27 0;
#X connect 88 1 67 0;
#X connect 88 2 68 0;
#X connect 88 3 89 0;
#X connect 89 0 87 0;
#X connect 91 0 92 0;
#X connect 92 0 44 0;
#X connect 92 1 32 0;
#X connect 92 2 29 0;
#X connect 93 0 94 0;
#X connect 94 0 60 0;
#X connect 94 1 15 0;
#X restore 215 -136 pd tabload;
#N canvas 423 267 466 381 tablelable 0;
#X msg 239 308 rename \$1;
#X obj 207 284 s \$0-name;
#X obj 160 76 + 1;
#X obj 160 54 v cntnt;
#X obj 192 239 l2s;
#X msg 210 217 symbol;
#X msg 191 145 symbol  ;
#X obj 191 122 until;
#X obj 160 169 list-abs/list-extend;
#X obj 239 354 send;
#X obj 255 330 symbol c\$0;
#X obj 160 191 ctxfiles/sp01;
#X obj 192 261 t s s s s b;
#X obj 160 30 receive \$0-lb1;
#X obj 160 99 t b b f b f f;
#X obj 310 169 s \$0-tname;
#X obj 152 354 s \$0-snamep;
#X connect 0 0 9 0;
#X connect 2 0 14 0;
#X connect 3 0 2 0;
#X connect 4 0 12 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 4 0;
#X connect 12 0 16 0;
#X connect 12 1 1 0;
#X connect 12 2 10 1;
#X connect 12 3 0 0;
#X connect 12 4 10 0;
#X connect 13 0 3 0;
#X connect 14 0 8 0;
#X connect 14 1 11 2;
#X connect 14 2 7 0;
#X connect 14 3 5 0;
#X connect 14 4 3 0;
#X connect 14 5 15 0;
#X restore 214 -158 pd tablelable;
#N canvas 349 245 450 300 colour 0;
#X msg 161 125 color \$1 \$4 \$4;
#X obj 161 35 receive \$0-:c;
#X obj 161 79 s colourquery";
#X obj 161 103 receive \$0-primary-col;
#X obj 161 147 s \$0-block3;
#X msg 278 60 color -1.38522e+07;
#X obj 251 13 receive \$0-recstart;
#X obj 161 57 pack 17 \$0;
#X obj 131 13 receive \$0-recstop;
#X obj 251 36 sel 1;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 3 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 9 0;
#X connect 7 0 2 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 9 1 5 0;
#X restore 216 -70 pd colour;
#N canvas 99 227 475 460 creation 0;
#X obj 189 199 list;
#X obj 214 174 demux;
#X obj 161 77 demux;
#X obj 189 234 t a a;
#X obj 221 266 list split 2;
#X obj 134 343 list split 1000;
#X obj 134 381 outlet;
#X obj 185 368 s \$0-myvals;
#X obj 101 318 list split;
#X obj 221 292 list trim;
#X msg 168 294 2;
#X obj 221 318 route :H;
#X obj 214 150 receive \$0-canvass;
#X obj 78 149 s \$0-lbang;
#X obj 149 101 t b b b b;
#X obj 209 127 s \$0-splbc;
#X obj 246 87 receive \$0-ncreated;
#X obj 161 55 ctxfiles/dvr \$0 cntstrt;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 1 1 3 0;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 4 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 6 0;
#X connect 8 1 5 0;
#X connect 9 0 11 0;
#X connect 10 0 8 1;
#X connect 11 0 5 1;
#X connect 11 0 10 0;
#X connect 12 0 1 0;
#X connect 14 0 13 0;
#X connect 14 1 0 1;
#X connect 14 2 0 0;
#X connect 14 3 15 0;
#X connect 16 0 1 1;
#X connect 16 0 2 1;
#X connect 17 0 2 0;
#X restore 214 -313 pd creation;
#N canvas 142 282 797 457 face 0;
#X obj 101 145 cnv 15 219 70 empty \$0-cbox ARRAY 100 10 0 11 -204800
-258113 0;
#X obj 353 347 t b;
#X obj 301 171 bng 14 250 50 0 \$0-savem \$0-colorme save to patch
-83 8 0 10 -262144 -1 -1;
#X obj 401 210 iemguts/sendcanvas;
#X obj 353 302 iemguts/receivecanvas 2;
#X text 388 250 ctxfiles/menu \$0 :ts :t 40 15 polygon points curve
;
#X obj 471 124 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 301 191 bng 14 250 50 0 \$0-clearme \$0-colorme clear -34 8
0 10 -262144 -1 -1;
#X obj 401 149 receive \$0-face;
#X obj 435 347 route 1;
#X obj 353 369 s \$0-mup;
#X obj 353 325 route mouseup done-popup;
#X obj 435 369 s \$0-openup;
#X floatatom 108 170 6 0 0 1 normalize #0-:ns #0-:nm, f 6;
#X floatatom 108 151 8 0 0 1 size #0-sizer #0-sizepre, f 8;
#X floatatom 108 190 7 0 0 1 bit-rate #0-:bs #0-:br, f 7;
#X obj 301 151 tgl 14 1 \$0-:as \$0-:ass auto save -58 7 0 10 -262144
-1 -1 1 1;
#X obj 518 369 s \$0-cpr;
#X obj 518 347 ctxfiles/deb 700;
#X obj 101 219 cnv 15 219 68 empty \$0-cbox CANVAS 95 6 0 11 -204800
-258113 0;
#X obj 132 229 tgl 15 1 \$0-:ed \$0-:eds edit -27 8 0 10 -262144 -1
-1 1 1;
#X floatatom 280 229 5 0 0 0 y-bottom #0-:s2s #0-:s2, f 5;
#X floatatom 280 248 5 0 0 0 y-top #0-:s1s #0-:s1, f 5;
#X floatatom 148 247 8 0 0 0 colour #0-:cs #0-:c, f 8;
#X obj 356 -18 receive \$0-lb1;
#X msg 356 4 100 sizer 1 :ns 44100 :bs 17 :cs -1 :s2s 1 :s1s;
#X obj 356 26 cyclone/zl iter 2;
#X obj 356 48 unpack f s;
#X obj 413 69 makefilename \$0-%s;
#X msg 356 70 set \$1;
#X obj 356 92 send;
#X obj 323 -13 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 149 229 ctxfiles/menu \$0 :li :lis   polygon points curve;
#X obj 105 270 bng 14 250 50 0 \$0-bfit \$0ni fit to overlay 17 7
0 10 -262144 -1 -1;
#X obj 298 270 bng 14 250 50 0 \$0-bti \$0-ni normal speed -76 7 0
10 -262144 -1 -1;
#X obj 101 102 cnv 15 219 39 empty \$0-cbox FILE 100 10 0 11 -204800
-258113 0;
#X obj 301 105 bng 14 250 50 0 \$0-done empty ^ 3 10 0 15 -162535 -1
-1;
#X obj 105 105 bng 14 250 50 0 \$0-bload \$0-obangr load 17 7 0 10
-262144 -1 -1;
#X symbolatom 151 122 27 0 0 0 - #0-:loo #0-:l, f 27;
#X obj 105 126 bng 14 250 50 0 \$0-bsav \$0-ni save 17 7 0 10 -262144
-1 -1;
#X msg 401 174 coords 0 -1 1 1 221 188 \$1 100 100;
#N canvas 645 214 602 399 buttons 0;
#X obj 323 61 receive \$0-:lo;
#X msg 350 133 set symbol;
#X obj 443 157 s \$0-:loo;
#X obj 137 273 receive \$0-bti;
#X obj 100 250 receive \$0-bfit;
#X msg 137 296 :ti;
#X msg 100 295 fit;
#X obj 137 319 s \$0-anyin;
#X msg 443 133 set \$1;
#X obj 216 111 receive \$0-:l;
#X obj 323 84 t b a;
#X obj 117 32 receive \$0-bsav;
#X obj 216 33 receive \$0-bload;
#X obj 195 139 list;
#X obj 117 55 t b b;
#X obj 216 56 t b b;
#X obj 144 79 t f;
#X obj 243 81 f 1;
#X obj 195 162 demux;
#X obj 195 215 list prepend :sa;
#X obj 222 185 list prepend :lo;
#X obj 350 110 route clear bang;
#X obj 400 199 s \$0-obang;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 8 0 2 0;
#X connect 9 0 13 1;
#X connect 10 0 13 1;
#X connect 10 1 21 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 13 0 18 0;
#X connect 14 0 13 0;
#X connect 14 1 16 0;
#X connect 15 0 13 0;
#X connect 15 1 17 0;
#X connect 16 0 18 1;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 18 1 20 0;
#X connect 19 0 7 0;
#X connect 20 0 7 0;
#X connect 21 0 1 0;
#X connect 21 1 22 0;
#X connect 21 2 8 0;
#X restore 122 54 pd buttons;
#X connect 1 0 10 0;
#X connect 4 0 11 0;
#X connect 6 0 40 0;
#X connect 8 0 40 0;
#X connect 9 0 12 0;
#X connect 11 0 1 0;
#X connect 11 1 9 0;
#X connect 11 2 18 0;
#X connect 18 0 17 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 29 0;
#X connect 27 1 28 0;
#X connect 28 0 30 1;
#X connect 29 0 30 0;
#X connect 31 0 25 0;
#X connect 40 0 3 0;
#X coords 0 -1 1 1 221 185 0;
#X restore 0 79 pd face;
#X obj 1 -188 iemguts/propertybang;
#X obj 1 -166 s \$0-prop;
#X obj 1 -254 receive \$0-iemargr;
#N canvas 67 152 699 300 set 0;
#X obj 140 56 receive \$0-setme;
#X obj 140 78 route *;
#X obj 186 100 cyclone/zl iter 2;
#X obj 140 190 array set c\$0;
#X obj 140 100 t a b;
#X obj 186 122 unpack;
#X obj 172 144 t f;
#X obj 228 164 receive \$0-name;
#X obj 377 45 receive \$0-fitme;
#X obj 377 164 s \$0-anyin;
#X obj 377 68 del;
#X obj 377 91 t b b;
#X obj 377 114 del;
#X msg 377 138 :x2 % 100 :y2 % 100;
#X msg 404 113 :x1 % 0 :y1 17;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 2 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 6 0;
#X connect 5 0 3 0;
#X connect 5 1 3 1;
#X connect 6 0 3 1;
#X connect 7 0 3 2;
#X connect 8 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 14 0;
#X connect 12 0 13 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X restore 214 -180 pd set;
#X obj -2 -86 ctxfiles/license;
#N canvas 67 135 832 485 audio 0;
#N canvas 543 436 536 300 receive 0;
#X obj 225 111 iemguts/sendcanvas;
#X obj 225 65 ctxfiles/myinit 4;
#X msg 225 90 obj 0 100 receive~ \$1-myline \, connect 5 0 4 0;
#X obj 225 37 receive \$0-dvstart;
#X obj 82 156 outlet~;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X restore 5 93 pd receive;
#X obj 4 118 -~;
#X obj 626 95 unpack f f f;
#X obj 659 147 * 44100;
#X obj 626 117 * 44100;
#X obj 626 174 -;
#X obj 672 306 /;
#X obj 626 261 route 0;
#X obj 626 196 * -1;
#X obj 672 330 *;
#X obj 672 353 s \$0-xer;
#X obj 228 212 swap 100;
#X obj 228 256 /;
#X obj 5 330 s~ \$0-too;
#X obj 5 308 tabread4~ c\$0;
#X obj 626 218 t f f;
#X obj 626 73 receive \$0-relpos;
#X obj 204 77 receive \$0-xend;
#X obj 241 111 receive \$0-xstart;
#X obj 263 166 receive \$0-size;
#X obj 14 286 receive \$0-sname;
#X obj 412 108 makefilename ~get-%s;
#X obj 412 84 receive \$0-myname;
#X obj 412 156 unpack f f;
#X obj 412 200 -;
#X obj 412 178 * 44.1;
#X obj 444 322 * 1;
#X obj 444 344 tabread c\$0;
#X obj 444 366 send;
#X obj 469 272 makefilename %d-fetch;
#X obj 412 223 moses;
#X obj 444 246 moses;
#X msg 412 272 0;
#X obj 263 188 t b f;
#X obj 660 173 receive \$0-size;
#X obj 412 132 iemguts/oreceive \$0noo;
#X obj 672 283 swap 1;
#X obj 4 192 *~;
#X obj 19 162 cyclone/lessthan~;
#X obj 4 140 max~;
#X obj 228 234 spigot;
#X obj 241 133 t b f f f;
#X obj 698 45 receive \$0-:br;
#X obj 228 53 t b f;
#X obj 228 31 receive \$0-lbang1;
#X obj 376 62 ctxfiles/dvr \$0 intget;
#X obj 228 280 s \$0-cratio;
#X obj 30 192 receive \$0-cratio;
#X obj 459 298 receive \$0-cratio;
#X obj 626 239 / 100;
#X obj 324 222 s \$0-duration;
#X obj 26 264 outlet~;
#X obj 36 216 receive \$0-recstart;
#X obj 4 216 *~ 1;
#X obj 4 239 *~ 1;
#X obj 228 157 -;
#X obj 94 239 receive \$0-cr-mute;
#X obj 36 239 spigot 1;
#X connect 0 0 1 0;
#X connect 1 0 39 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 1 36 0;
#X connect 8 0 15 0;
#X connect 9 0 10 0;
#X connect 11 0 40 0;
#X connect 11 1 12 1;
#X connect 12 0 46 0;
#X connect 14 0 13 0;
#X connect 15 0 49 0;
#X connect 15 1 9 1;
#X connect 16 0 2 0;
#X connect 17 0 31 1;
#X connect 17 0 55 0;
#X connect 18 0 41 0;
#X connect 19 0 33 0;
#X connect 20 0 14 0;
#X connect 20 0 27 0;
#X connect 21 0 35 0;
#X connect 22 0 21 0;
#X connect 23 0 25 0;
#X connect 23 1 29 0;
#X connect 24 0 30 0;
#X connect 25 0 24 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 29 0 28 1;
#X connect 30 0 32 0;
#X connect 30 1 31 0;
#X connect 31 0 26 0;
#X connect 31 1 32 0;
#X connect 32 0 28 0;
#X connect 33 0 11 0;
#X connect 33 1 11 1;
#X connect 34 0 49 1;
#X connect 35 0 23 0;
#X connect 36 0 6 0;
#X connect 36 1 6 1;
#X connect 37 0 53 0;
#X connect 38 0 37 1;
#X connect 39 0 37 0;
#X connect 39 0 38 0;
#X connect 40 0 12 0;
#X connect 41 0 55 0;
#X connect 41 1 1 1;
#X connect 41 2 55 1;
#X connect 41 3 24 1;
#X connect 42 0 3 1;
#X connect 42 0 4 1;
#X connect 43 0 55 0;
#X connect 43 1 40 1;
#X connect 44 0 43 0;
#X connect 45 0 23 0;
#X connect 47 0 53 1;
#X connect 48 0 26 1;
#X connect 49 0 7 0;
#X connect 52 0 57 0;
#X connect 53 0 51 0;
#X connect 53 0 54 0;
#X connect 54 0 14 0;
#X connect 55 0 11 0;
#X connect 55 0 50 0;
#X connect 55 0 38 1;
#X connect 56 0 57 1;
#X connect 57 0 54 1;
#X restore 267 -48 pd audio;
#N canvas 484 153 450 300 curve 0;
#X obj 214 102 * 2;
#X obj 214 124 pack f 100 s;
#X msg 214 147 arraydialog \$3 \$2 \$1 0;
#X obj 214 169 send;
#X obj 295 55 receive \$0-name;
#X obj 182 77 t b f;
#X obj 131 120 s \$0-dirty;
#X obj 254 102 receive \$0-size;
#X obj 182 55 receive \$0-:li;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 1 2;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 5 1 0 0;
#X connect 7 0 1 1;
#X connect 8 0 5 0;
#X restore 214 -224 pd curve;
#N canvas 67 225 596 471 morph 0;
#X obj 212 66 demux;
#X obj 212 111 t f f f;
#X obj 176 89 t f;
#X obj 212 160 sel 0 1;
#X obj 235 137 s \$0-cmorphon;
#X obj 214 323 s \$0-face;
#X obj 302 343 sin;
#X msg 302 297 0 \, 1.5708 700;
#X obj 302 320 line 0 50;
#X obj 302 365 t f f;
#X obj 121 352 unpack f f;
#X obj 235 231 del 701;
#X obj 104 223 del 701;
#X obj 302 446 s \$0-cnvmorph;
#X obj 235 206 t b b b f;
#X obj 166 417 s \$0-arrayoff;
#X obj 38 279 s \$0-cmdone;
#X obj 176 21 receive \$0-done;
#X obj 212 44 receive \$0-prop;
#X obj 427 161 receive \$0-pixsize;
#X obj 235 253 t b b b;
#X obj 77 427 s \$0-reface;
#X obj 104 201 t b b b f f f;
#X obj 302 274 s \$0-dirty;
#X obj 121 304 list 48 22;
#X obj 302 398 ctxfiles/sf 48;
#X obj 379 346 ctxfiles/sf 22;
#X obj 136 270 f 1;
#X obj 104 245 t b b;
#X obj 230 346 f 1;
#X obj 229 283 f 2;
#X obj 212 89 f 1;
#X obj 230 368 t f f;
#X msg 121 327 221 264;
#X obj 379 369 t b f;
#X obj 427 226 unpack;
#X obj 302 424 pack;
#X connect 0 0 31 0;
#X connect 0 1 2 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 1 2 0 1;
#X connect 2 0 1 0;
#X connect 3 0 22 0;
#X connect 3 1 14 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 9 0 25 0;
#X connect 9 1 26 0;
#X connect 10 0 25 1;
#X connect 10 1 26 1;
#X connect 11 0 20 0;
#X connect 12 0 28 0;
#X connect 14 0 11 0;
#X connect 14 1 7 0;
#X connect 14 2 33 0;
#X connect 14 3 15 0;
#X connect 17 0 2 0;
#X connect 18 0 0 0;
#X connect 19 0 24 1;
#X connect 19 0 35 0;
#X connect 20 0 30 0;
#X connect 20 1 29 0;
#X connect 20 2 23 0;
#X connect 22 0 12 0;
#X connect 22 1 7 0;
#X connect 22 2 24 0;
#X connect 22 3 5 0;
#X connect 22 4 21 0;
#X connect 22 5 15 0;
#X connect 24 0 10 0;
#X connect 25 0 36 0;
#X connect 26 0 34 0;
#X connect 27 0 15 0;
#X connect 28 0 16 0;
#X connect 28 1 27 0;
#X connect 29 0 32 0;
#X connect 30 0 5 0;
#X connect 31 0 1 0;
#X connect 32 0 15 0;
#X connect 32 1 21 0;
#X connect 33 0 10 0;
#X connect 34 0 36 0;
#X connect 34 1 36 1;
#X connect 35 0 25 2;
#X connect 35 1 26 2;
#X connect 36 0 13 0;
#X restore 214 -202 pd morph;
#N canvas 159 349 538 362 clicks 0;
#X obj 117 108 del 100;
#X obj 117 130 s \$0-obang;
#X obj 45 200 unpack;
#X obj 45 222 s \$0-x-otherpos;
#X obj 84 245 s \$0-y-otherpos;
#X obj 303 251 del 100;
#X msg 303 273 stop;
#X obj 303 108 t b b;
#X msg 335 203 mouseup 0 0 1;
#X obj 335 131 demux;
#X obj 362 107 receive \$0-:ed;
#X obj 117 86 ctxfiles/ou \$0 48 22 2 my c;
#X obj 45 178 ctxfiles/dvr \$0 cpos;
#X obj 303 296 ctxfiles/dvs \$0 nostop;
#X obj 117 47 ctxfiles/dvr \$0 cclick;
#X obj 335 225 iemguts/sendcanvas 4;
#X obj 395 130 receive moveon&&u*;
#X obj 362 155 spigot;
#X obj 335 181 del;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 5 0 6 0;
#X connect 6 0 13 0;
#X connect 7 0 5 0;
#X connect 7 1 9 0;
#X connect 8 0 15 0;
#X connect 9 0 18 0;
#X connect 9 1 17 0;
#X connect 10 0 9 1;
#X connect 11 0 0 0;
#X connect 11 1 7 0;
#X connect 12 0 2 0;
#X connect 14 0 11 0;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 8 0;
#X restore 214 -246 pd clicks;
#N canvas 65 93 450 300 print 0;
#X obj 216 100 receive \$0-myname;
#X obj 135 144 list prepend;
#X obj 216 122 list append :;
#X obj 135 73 receive \$0-printyou;
#X obj 135 188 print -n;
#X obj 135 166 list trim;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 5 0 4 0;
#X restore 214 -269 pd print;
#N canvas 67 195 510 392 canvas 0;
#N canvas 138 138 782 433 c-movement 0;
#X obj 201 225 s \$0-arrsize;
#X msg 575 354 vis_size \$1 \$2;
#X obj 632 309 - 1;
#X obj 575 331 pack 61 15;
#X obj 575 309 - 1;
#X obj 346 146 list split 2;
#X obj 575 285 unpack f f;
#X obj 349 232 s \$0-pixsize;
#X obj 454 176 receive \$0-cnvmorph;
#X msg 201 201 coords \$6 \$4 \$3 \$5 \$1 \$2 \$7 0 0;
#X obj 346 168 t b a a a;
#X msg 242 252 dirty 0;
#X msg 282 276 donecanvasdialog 0 0 2 1 -1 1 1 \$1 \$2 0 3;
#X obj 323 253 receive \$0-dirty;
#X obj 176 277 receive \$0-com;
#X obj 201 134 demux;
#X obj 294 111 receive \$0-reface;
#X obj 282 299 iemguts/sendcanvas 2;
#X obj 575 378 s \$0-block3;
#X obj 201 109 inlet;
#X msg 140 174 coords \$6 \$4 \$3 \$5 221 76 \$7 0 0;
#X connect 1 0 18 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 10 0;
#X connect 6 0 4 0;
#X connect 6 1 2 0;
#X connect 8 0 12 0;
#X connect 8 0 6 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 10 1 6 0;
#X connect 10 2 7 0;
#X connect 10 3 12 0;
#X connect 11 0 17 0;
#X connect 12 0 17 0;
#X connect 13 0 11 0;
#X connect 14 0 17 0;
#X connect 15 0 9 0;
#X connect 15 0 5 0;
#X connect 15 1 20 0;
#X connect 16 0 15 1;
#X connect 19 0 15 0;
#X connect 20 0 0 0;
#X restore 93 239 pd c-movement;
#X text 109 267 name: the actual array name;
#X text 95 281 myname: my tag;
#X text 82 297 tname: number count;
#X text 86 315 sname: the right table to read (prepd by snamep);
#X obj 93 132 iemguts/canvasposition 1;
#X obj 93 110 receive \$0-cpr;
#X obj 56 87 receive \$0-created;
#X obj 93 190 ctxfiles/m-interface \$0 2 56 30 3 48 22;
#X obj 93 215 ctxfiles/c-move \$0 47 48 35 36 2 3 22 17 100;
#X obj 56 110 t f b;
#X obj 354 190 spigot 1;
#X connect 5 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 8 2 8 1;
#X connect 9 0 0 0;
#X connect 10 0 11 1;
#X connect 10 1 5 0;
#X connect 11 0 9 2;
#X restore 216 -92 pd canvas;
#N canvas 665 123 450 300 saving 0;
#X obj 129 92 receive \$0-savelist;
#X msg 129 114 click;
#X obj 129 136 text define -k \$0-save;
#A set \; %^ :lo bang \; %^ :x1 0 \; %^ :x2 0 \; %^ :y1 0 \; %^ :y2
0 \; %^ :c 17 \; %^ :s1 1 \; %^ :s2 -1 \; %^ :nm 1 \; %^ :li 0 \; %^
:br 44100 \; %^ :p1 0 \; %^ :p2 0 \; %^ :p3 0 \; %^ :p4 0 \; %^ :ed
1 \; %^ :as 1 \; %^ :sz 100 \; %^ :la bang \;;
#X obj 128 70 ctxfiles/saver \$0 lapp 3;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X restore 215 -114 pd saving;
#X text 330 -335 start loadbang sequence;
#X text 330 -313 read and distribute creation arguments;
#X text 331 -291 interpret command prompts;
#X text 331 -269 print command;
#X text 331 -246 sense mouse clicks;
#X text 330 -48 receive line and read array;
#X text 331 -224 set curve type;
#X text 331 -202 create menu GUI morph;
#X text 331 -180 set array values;
#X text 331 -158 set array lable;
#X text 330 -136 load file into array;
#X text 330 -114 save commands to creation arguments;
#X text 329 -92 control canvas;
#X text 330 -70 set colour;
#X obj -15 -335 declare -lib zexy -path zexy -path ./;
#X obj 216 -48 inlet~;
#X text 330 -26 record audio;
#N canvas 184 146 818 622 record 0;
#X obj 317 -8 receive \$0-record;
#X obj 351 173 v (dollarzero);
#X obj 351 150 f \$0;
#X obj 334 59 s wqwf^%8h(;
#X obj 127 99 receive \$0-cr-trigger;
#X obj 34 530 inlet~;
#X obj 586 95 s \$0-cr-trigger;
#X obj 94 122 spigot;
#X obj 94 189 ctxfiles/dvs \$0 notsafe;
#X obj 109 366 ctxfiles/dvr \$0 ended;
#X obj 105 228 ctxfiles/dvr \$0 started;
#X obj 132 299 spigot;
#X obj 105 274 t f b;
#X obj 132 322 f 1;
#X obj 109 390 spigot;
#X obj 317 14 t b a b b;
#X obj 136 462 s \$0-recsense;
#X obj 160 485 inlet~;
#X obj 160 530 cyclone/edge~;
#X obj 193 552 receive \$0-recsense;
#X obj 160 575 spigot;
#X obj 235 576 spigot;
#X obj 286 671 iemguts/sendcanvas 2;
#X obj 199 623 f 1;
#X msg 286 648 vis 1 \, vis 0;
#X obj 160 508 *~;
#X obj 109 484 del 10;
#X obj 109 530 switch~;
#X obj 136 438 t f f f;
#X obj 132 345 t f f;
#X obj 586 70 f 1;
#X obj 109 413 t b b;
#X obj 269 528 ctxfiles/dvs \$0 recretime;
#X obj 109 507 t f b;
#X obj 269 504 f 10;
#X text 425 528 <-- possibly delete?;
#X obj 33 575 ggee/tabwrite4~ c\$0;
#X obj 40 552 receive \$0-sname;
#X obj 160 671 s \$0-recstart;
#X obj 269 623 f 1;
#X msg 179 741 const 0;
#X obj 179 786 send;
#X obj 200 763 receive \$0-name;
#X obj 179 718 spigot 1;
#X obj 224 695 receive \$0-cr-clear;
#X obj 605 119 receive \$0-cr-start;
#X obj 94 145 list;
#X obj 105 251 t b;
#X obj 625 47 f -1;
#N canvas 67 89 450 300 retime 0;
#X obj 176 2 receive \$0-retime;
#X obj 176 144 v \$0-size;
#X obj 176 169 / 44100;
#X obj 176 212 list prepend :d;
#X obj 176 25 t b b b;
#X obj 176 245 outlet;
#X obj 215 48 v \$0-duration;
#X obj 195 119 /;
#X obj 215 72 / 44100;
#X obj 302 48 receive \$0-:br;
#X obj 195 96 ctxfiles/dv \$0 realdelay;
#X obj 176 191 *;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 11 0;
#X connect 3 0 5 0;
#X connect 4 0 1 0;
#X connect 4 1 10 0;
#X connect 4 2 6 0;
#X connect 6 0 8 0;
#X connect 7 0 11 1;
#X connect 8 0 7 1;
#X connect 9 0 8 1;
#X connect 9 0 2 1;
#X connect 10 0 7 0;
#X connect 11 0 3 0;
#X restore 29 122 pd retime;
#X obj 605 142 list prepend :s;
#X obj 223 145 list prepend :me -o;
#X obj 94 167 list prepend :me -o -1;
#X obj 536 187 s \$0-cr-clear;
#X obj 569 165 s \$0-cr-mute;
#X obj 625 70 s \$0-cr-output;
#X obj 223 122 receive \$0-cr-output;
#X text 239 291 1: IF record command received (other than -buffer)
THEN listen for Context to be started (only once) \; 2: IF Context
is started THEN stop listening (:1) and turn on [switch~] and \; 3:
start listening for when sample starts and stops \; 4: send sample
start and stop to share patch \; 5: When Context stops then stop listening
for start and stop messages., f 106;
#X obj 586 23 t b b b f;
#X obj 685 179 s \$0-cr-smooth;
#X obj 50 719 spigot;
#X obj 83 694 receive \$0-cr-smooth;
#X obj 50 742 s \$0-smooth;
#X obj 160 598 t f b b;
#X obj 235 599 t f b b b;
#X connect 0 0 15 0;
#X connect 2 0 1 0;
#X connect 4 0 7 1;
#X connect 5 0 36 0;
#X connect 7 0 46 0;
#X connect 9 0 14 0;
#X connect 10 0 47 0;
#X connect 11 0 13 0;
#X connect 12 0 11 1;
#X connect 12 1 11 0;
#X connect 13 0 29 0;
#X connect 14 0 31 0;
#X connect 15 0 7 0;
#X connect 15 1 3 0;
#X connect 15 2 2 0;
#X connect 15 3 58 0;
#X connect 17 0 25 0;
#X connect 18 0 20 0;
#X connect 18 1 21 0;
#X connect 19 0 20 1;
#X connect 20 0 63 0;
#X connect 21 0 64 0;
#X connect 23 0 21 1;
#X connect 24 0 22 0;
#X connect 25 0 18 0;
#X connect 25 0 36 1;
#X connect 26 0 33 0;
#X connect 28 0 16 0;
#X connect 28 1 14 1;
#X connect 28 2 25 1;
#X connect 29 0 28 0;
#X connect 29 1 27 0;
#X connect 30 0 6 0;
#X connect 30 0 11 1;
#X connect 30 0 54 0;
#X connect 30 0 53 0;
#X connect 31 0 26 0;
#X connect 31 1 28 0;
#X connect 33 0 27 0;
#X connect 33 1 34 0;
#X connect 34 0 32 0;
#X connect 37 0 36 0;
#X connect 39 0 38 0;
#X connect 40 0 41 0;
#X connect 42 0 41 1;
#X connect 43 0 40 0;
#X connect 44 0 43 1;
#X connect 45 0 50 0;
#X connect 46 0 52 0;
#X connect 47 0 12 0;
#X connect 48 0 55 0;
#X connect 49 0 8 0;
#X connect 50 0 46 1;
#X connect 51 0 52 1;
#X connect 52 0 8 0;
#X connect 56 0 51 0;
#X connect 58 0 30 0;
#X connect 58 1 50 0;
#X connect 58 2 48 0;
#X connect 58 3 59 0;
#X connect 60 0 62 0;
#X connect 61 0 60 1;
#X connect 63 0 38 0;
#X connect 63 1 43 0;
#X connect 63 2 23 0;
#X connect 64 0 21 1;
#X connect 64 1 60 0;
#X connect 64 2 39 0;
#X connect 64 3 24 0;
#X restore 216 -26 pd record;
#N canvas 353 94 450 592 smooth 0;
#X obj 142 27 receive \$0-smooth;
#X obj 142 50 route bang;
#X obj 199 77 unpack f f;
#X obj 199 100 f 50;
#X obj 208 263 t f f f;
#X obj 310 287 receive \$0-size;
#X obj 265 311 swap 100;
#X obj 265 334 -;
#X obj 208 334 sin;
#X obj 208 311 * 1.5708;
#X obj 208 288 / 50;
#X obj 359 144 t f f f;
#X obj 333 182 ==;
#X obj 378 182 == 1;
#X obj 415 182 == 2;
#X obj 333 224 ||;
#X obj 377 222 ||;
#X obj 208 357 t f f;
#X obj 329 466 receive \$0-sname;
#X obj 208 546 tabwrite c\$0;
#X obj 208 407 pack;
#X obj 266 407 pack;
#X obj 208 448 unpack;
#X obj 241 472 t f f;
#X obj 241 495 tabread c\$0;
#X obj 208 521 *;
#X obj 208 384 spigot 1;
#X obj 266 384 spigot 1;
#X obj 143 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 199 122 f 50;
#X obj 175 171 metro 2;
#X obj 175 194 f;
#X obj 175 217 t f f;
#X obj 199 145 t b f b;
#X obj 238 171 t f;
#X obj 201 194 + 1;
#X obj 175 240 sel 50;
#X obj 147 217 t f;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 2 1 11 0;
#X connect 3 0 29 0;
#X connect 4 0 10 0;
#X connect 4 1 20 1;
#X connect 4 2 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 6 1 7 1;
#X connect 7 0 21 1;
#X connect 8 0 17 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 14 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 15 1;
#X connect 14 0 16 1;
#X connect 15 0 26 1;
#X connect 16 0 27 1;
#X connect 17 0 26 0;
#X connect 17 1 27 0;
#X connect 18 0 19 0;
#X connect 18 0 24 0;
#X connect 20 0 22 0;
#X connect 21 0 22 0;
#X connect 22 0 25 0;
#X connect 22 1 23 0;
#X connect 23 0 24 0;
#X connect 23 1 19 1;
#X connect 24 0 25 1;
#X connect 25 0 19 0;
#X connect 26 0 20 0;
#X connect 27 0 21 0;
#X connect 28 0 3 0;
#X connect 29 0 33 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 32 1 35 0;
#X connect 33 0 30 0;
#X connect 33 1 36 1;
#X connect 33 2 34 0;
#X connect 34 0 31 1;
#X connect 35 0 31 1;
#X connect 36 0 37 0;
#X connect 36 1 4 0;
#X connect 37 0 30 0;
#X restore 216 -4 pd smooth;
#X text 330 -4 smooth ends of array;
#X connect 4 0 5 0;
#X connect 6 0 3 0;
#X connect 7 0 9 0;
#X connect 13 0 5 0;
#X connect 15 0 16 0;
#X connect 17 0 7 0;
#X connect 20 0 44 1;
#X connect 42 0 44 0;
#X coords 0 -1 1 1 48 22 2 0 3;