GESTURAL_AUDIO_REARRANGER_0.1.pd

#N canvas 7 23 1035 293 12;
#X declare -lib iemmatrix;
#X declare -lib list-abs;
#X declare -lib iemmatrix;
#X declare -lib list-abs;
#X declare -lib iemmatrix;
#X declare -lib hexloader;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib list-abs;
#X declare -lib iemmatrix;
#X declare -lib smlib;
#X declare -lib iemmatrix;
#X declare -lib hexloader;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib hexloader;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib iemmatrix;
#X declare -lib mrpeach;
#N canvas 6 33 1052 408 GUI_wrap 0;
#X obj 74 21 bng 45 250 50 0 \$0-openaudio_s \$0-openaudio_r empty
17 7 0 10 -166441 -99865 -99865;
#N canvas 634 564 543 500 segmentation 0;
#X obj 171 310 novelty;
#X obj 155 370 s \$0-bound;
#X obj 85 370 s \$0-nov;
#X obj 320 370 list split 1;
#X obj 235 370 s \$0-rs_ND;
#X obj 282 150 select 1;
#X obj 282 120 r \$0-m1_tgl;
#X obj 302 241 r \$0-M_reset;
#X obj 282 210 spigot;
#X obj 321 180 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 339 172 auto-;
#X text 339 186 reset;
#X obj 126 210 r \$0-init_nov_params;
#X obj 126 240 list prepend 3;
#X obj 370 430 s \$0-theta;
#X obj 370 400 packel 3;
#N canvas 298 144 652 764 get_segment 0;
#X msg 488 670 clear;
#X msg 30 520 0;
#X msg 119 490 1;
#X obj 80 520 spigot;
#X obj 98 720 s \$0-ibound;
#X obj 248 10 r \$0-stp;
#X msg 165 670 0;
#X msg 117 670 1;
#X obj 119 40 r \$0-rs_xyz;
#X obj 119 70 t b b;
#X obj 243 720 s \$0-seg_rec/spit;
#X text 315 43 1 = train (cut);
#N canvas 923 532 297 467 fdel 0;
#X obj 25 252 cup;
#X obj 125 302 select;
#X obj 164 272 r \$0-lagf;
#X obj 25 202 spigot;
#X msg 64 162 0;
#X obj 125 162 t a a;
#X msg 125 132 1;
#X obj 218 422 outlet;
#X obj 125 42 inlet set;
#X obj 218 382 i;
#X obj 25 42 inlet bangs;
#X text 95 10 frames delay;
#X obj 125 82 trigger bang any;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 0 9 0;
#X connect 2 0 1 1;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 5 1 0 0;
#X connect 6 0 5 0;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 10 0 3 0;
#X connect 12 0 6 0;
#X connect 12 1 9 1;
#X restore 151 110 pd fdel;
#X obj 6 40 r \$0-bound;
#X obj 248 40 moses 2;
#X obj 316 640 s \$0-startseg;
#X obj 316 610 spigot;
#X obj 119 430 cup;
#X obj 119 460 select;
#X msg 6 390 1;
#X obj 158 430 r \$0-msl;
#X obj 6 360 trigger b b;
#X obj 6 330 spigot;
#X obj 151 140 moses 1;
#X obj 442 210 moses 1;
#X obj 197 170 t a a a;
#X msg 355 280 0;
#X obj 80 570 t b b b b b;
#X msg 313 140 0;
#X obj 323 240 t b b;
#X msg 313 280 1;
#X obj 262 519 spigot;
#X obj 322 518 i;
#X obj 313 180 loadbang;
#X text 211 110 (A);
#X text 171 460 (B);
#X text 411 80 (A): match segmentation lag;
#X text 411 100 (B): prevent too short segments;
#X text 315 29 0 = stop/idle;
#X obj 313 110 select 1;
#X obj 323 210 r \$0-endtrain;
#X text 14 63 segmentation;
#X text 14 78 boundary;
#X text 14 93 detected;
#X text 14 108 (lagged);
#X obj 248 70 trigger any any any;
#X connect 0 0 10 0;
#X connect 1 0 3 1;
#X connect 2 0 3 1;
#X connect 3 0 27 0;
#X connect 5 0 14 0;
#X connect 6 0 10 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 17 0;
#X connect 9 1 12 0;
#X connect 12 0 23 0;
#X connect 13 0 22 0;
#X connect 14 0 45 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 18 0 2 0;
#X connect 19 0 17 0;
#X connect 20 0 18 1;
#X connect 21 0 19 0;
#X connect 21 1 3 0;
#X connect 22 0 21 0;
#X connect 23 1 25 0;
#X connect 24 0 31 0;
#X connect 24 1 0 0;
#X connect 24 1 16 1;
#X connect 24 1 31 1;
#X connect 25 0 22 1;
#X connect 25 1 17 0;
#X connect 25 2 10 0;
#X connect 26 0 16 1;
#X connect 27 0 1 0;
#X connect 27 1 4 0;
#X connect 27 2 7 0;
#X connect 27 3 6 0;
#X connect 27 4 16 0;
#X connect 28 0 22 1;
#X connect 29 0 30 0;
#X connect 29 1 26 0;
#X connect 30 0 22 1;
#X connect 30 0 17 0;
#X connect 31 0 32 0;
#X connect 31 0 27 0;
#X connect 32 0 31 1;
#X connect 33 0 30 0;
#X connect 39 0 28 0;
#X connect 40 0 29 0;
#X connect 45 0 12 1;
#X connect 45 1 39 0;
#X connect 45 2 24 0;
#X restore 146 430 pd get_segment;
#X obj 302 271 r \$0-disp_hmap;
#X obj -14 11 inlet;
#X obj -14 41 s \$0-disp_hmap;
#X obj -14 80 r \$0-rs_xyz;
#X obj -14 210 spigot;
#X obj 25 140 select 2;
#X msg 25 170 0;
#X msg 126 170 1;
#X obj 25 110 r \$0-stp;
#X obj 126 140 loadbang;
#N canvas 415 74 547 374 lag 0;
#X obj 134 46 unpack f f;
#X text 96 126 N_filt = N_nov * smooth;
#X text 90 106 lag = ((N_nov + N_filt) / 2) + 1;
#X obj 84 86 expr (( $f1 + $f1 * $f2 ) / 2) + 1;
#X obj 66 206 i;
#X obj 66 246 + 0;
#X obj 84 156 floorceil 1;
#X obj 356 126 t b a;
#X obj -34 296 listlag 0 3;
#X obj 356 46 r \$0-lag_fine_rcv;
#X obj -34 16 inlet xyz;
#X obj -34 336 outlet lag_xyz;
#X obj 66 296 s \$0-lagf;
#X obj 134 16 r \$0-nov_params_ok;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 8 1;
#X connect 5 0 12 0;
#X connect 6 0 4 1;
#X connect 7 0 4 0;
#X connect 7 1 5 1;
#X connect 8 0 11 0;
#X connect 9 0 7 0;
#X connect 10 0 8 0;
#X connect 13 0 0 0;
#X restore -14 310 pd lag;
#X obj -14 370 s \$0-lag_xyz;
#X obj 360 460 s \$0-nov_params_ok;
#X connect 0 0 2 0;
#X connect 0 1 1 0;
#X connect 0 2 4 0;
#X connect 0 3 3 0;
#X connect 3 1 15 0;
#X connect 3 1 29 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 0 2;
#X connect 8 0 0 2;
#X connect 9 0 8 1;
#X connect 12 0 13 0;
#X connect 13 0 0 1;
#X connect 15 0 14 0;
#X connect 17 0 0 3;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 27 0;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 23 0 21 1;
#X connect 24 0 21 1;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 27 0 28 0;
#X restore 513 343 pd segmentation;
#X obj 20 288 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 424 241 Juan Ignacio Mendoza Garay - 2022;
#N canvas 574 195 1182 190 pc_GUI_wrap 0;
#X obj 499 147 s \$0-playstop;
#X obj 747 147 s \$0-startdur;
#X obj 3 37 plot_xyz_playcontrol;
#X obj 996 143 s \$0-scrollend;
#X obj 3 7 r \$0-play/stop/mark;
#X obj 201 7 r \$0-pc_xyz;
#X obj 400 9 r \$0-mode;
#X obj 598 6 r \$0-size/end;
#X obj 797 6 r \$0-pc_params;
#X obj 996 7 r \$0-pc_clear;
#X connect 2 2 0 0;
#X connect 2 3 1 0;
#X connect 2 4 3 0;
#X connect 4 0 2 0;
#X connect 5 0 2 1;
#X connect 6 0 2 2;
#X connect 7 0 2 3;
#X connect 8 0 2 4;
#X connect 9 0 2 5;
#X coords 0 -1 1 1 1002 92 2 2 40;
#X restore 20 143 pd pc_GUI_wrap;
#X floatatom 315 84 2 0 0 0 - #0-current_seg_atm_rcv #0-current_seg_atm_snd
;
#X floatatom 315 114 2 0 0 0 - #0-next_seg_atm_rcv #0-next_seg_atm_snd
;
#X text 254 84 current:;
#X text 275 114 next:;
#X floatatom 315 34 2 0 0 0 - #0-n_class #0-n_class_atom;
#X text 248 34 segments:;
#N canvas 112 611 846 387 weki_control 0;
#X text -171 333 Juan Ignacio Mendoza - 2022;
#X obj 244 268 udpsend;
#X obj 17 278 packOSC;
#X obj 434 17 udpreceive 12000;
#X obj 434 49 unpackOSC;
#X msg 244 218 connect localhost 6448;
#X obj 17 248 spigot;
#X msg -187 178 send /wek/inputs \$1 \$2 \$3;
#X obj 435 107 route /outputs;
#X obj 435 77 routeOSC /wek;
#X obj -119 49 r \$0-rs_xyz;
#X obj 105 119 select 0 1 2;
#N canvas 864 335 1056 432 train 0;
#X msg 412 277 send /wekinator/control/stopDtwRecording;
#X msg 5 277 send /wekinator/control/startDtwRecording \$1;
#X obj 134 47 r \$0-startseg;
#X obj 265 237 cup;
#X msg 508 77 1;
#X obj 134 207 spigot;
#X obj 412 207 spigot;
#X obj 508 -3 inlet on;
#X msg 250 107 0;
#X msg 721 277 send /wekinator/control/deleteAllExamples;
#X obj 582 357 outlet n_classes;
#X obj 412 357 outlet to Wekinator;
#N canvas 1481 66 280 264 last_segment 0;
#X obj 26 236 outlet;
#X msg 65 156 1;
#X obj 26 196 spigot;
#X msg 125 196 0;
#X obj 93 16 inlet endseg;
#X obj 15 16 inlet off;
#X obj 192 16 inlet on;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 6 0 3 0;
#X restore 250 77 pd last_segment;
#X obj 412 47 r \$0-endseg;
#X obj 250 -3 inlet off;
#X obj 18 207 s \$0-endtrain;
#X obj 508 107 t b a a a b;
#X obj 250 135 t a a;
#X connect 0 0 11 0;
#X connect 1 0 11 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 3 0 10 0;
#X connect 4 0 16 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 6 0 12 1;
#X connect 7 0 4 0;
#X connect 8 0 17 0;
#X connect 9 0 11 0;
#X connect 12 0 8 0;
#X connect 13 0 6 0;
#X connect 14 0 12 0;
#X connect 16 0 12 2;
#X connect 16 1 5 1;
#X connect 16 2 3 0;
#X connect 16 3 6 1;
#X connect 16 4 9 0;
#X connect 17 0 15 0;
#X connect 17 1 6 1;
#X connect 17 1 5 1;
#X restore 17 178 pd train;
#N canvas 1034 322 581 257 perform 0;
#X obj 163 210 outlet;
#X obj 17 17 inlet off;
#X obj 286 20 inlet on;
#X msg 17 140 send /wekinator/control/stopRunning;
#X msg 286 140 send /wekinator/control/startRunning;
#X obj 17 97 spigot;
#X msg 106 67 1;
#X msg 106 97 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 3 0;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X restore 97 178 pd perform;
#X obj -187 148 multiplex 0 1 2;
#X msg 185 178 0;
#X obj 534 197 s \$0-class;
#X obj 70 316 s \$0-n_class;
#X obj 244 178 loadbang;
#X obj 105 79 r \$0-stp;
#X obj 418 -23 cnv 2 2 360 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj -194 3 cnv 2 820 2 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 68 -20 TO WEKINATOR;
#X text 473 -22 FROM WEKINATOR;
#X obj -85 79 r \$0-endtrain;
#X obj 435 137 list-min;
#X obj 488 167 moses 1;
#X obj 244 118 r \$0-M_reset;
#X obj -153 19 r \$0-seg_xyz;
#X obj 244 326 outlet;
#X obj -43 119 moses 1;
#X connect 1 0 6 1;
#X connect 1 0 29 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X connect 8 0 25 0;
#X connect 9 0 8 0;
#X connect 10 0 14 2;
#X connect 11 0 13 0;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 11 1 15 0;
#X connect 11 2 13 1;
#X connect 12 0 6 0;
#X connect 12 1 17 0;
#X connect 13 0 6 0;
#X connect 14 0 7 0;
#X connect 15 0 17 0;
#X connect 18 0 5 0;
#X connect 19 0 11 0;
#X connect 19 0 30 0;
#X connect 24 0 14 3;
#X connect 25 1 26 0;
#X connect 26 1 16 0;
#X connect 27 0 15 0;
#X connect 28 0 14 1;
#X connect 30 1 14 3;
#X restore 851 343 pd weki_control;
#N canvas 311 628 353 374 getseg_GUI_wrap 0;
#X obj 2 77 snapshot_xyz;
#X obj 98 207 s \$0-endseg;
#X obj 2 207 s \$0-seg_xyz;
#X obj 195 19 r \$0-init_GUI;
#X obj 2 -103 r \$0-lag_xyz;
#X obj 130 -103 r \$0-seg_rec/spit;
#X msg 195 48 segment 70 6 2;
#X obj 150 -73 r \$0-stp;
#X obj 150 -43 select 2;
#X msg 150 -13 clear;
#X connect 0 0 2 0;
#X connect 0 1 1 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 0 2;
#X connect 6 0 0 3;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 2;
#X coords 0 -1 1 1 200 112 2 2 80;
#X restore 821 21 pd getseg_GUI_wrap;
#N canvas 898 302 390 352 input_GUI_wrap 0;
#X obj 66 -33 r \$0-M_reset;
#X obj 2 -132 r \$0-rs_xyz;
#X obj 245 -133 r \$0-init_GUI;
#X obj 2 77 plot_xyz_lbl;
#X msg 245 -53 input 80 8 2;
#X msg 245 7 no 90 22 13;
#X msg 245 -23 input 80 22 13;
#N canvas 518 345 283 344 super_blinker 0;
#X obj 34 15 inlet;
#X obj 60 225 == 0;
#X obj 164 105 cup;
#X msg 50 105 0;
#X msg 34 45 1;
#X obj 120 225 == 1;
#X obj 60 255 select 1;
#X obj 20 165 metro 300;
#X obj 60 295 outlet;
#X obj 113 295 outlet;
#X obj 164 295 outlet;
#X obj 164 135 select 8 7;
#X obj 60 195 spigot;
#X obj 34 75 trigger any any any;
#X msg 197 165 0;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 11 0;
#X connect 3 0 7 0;
#X connect 4 0 13 0;
#X connect 5 0 1 1;
#X connect 6 0 8 0;
#X connect 6 1 9 0;
#X connect 7 0 2 0;
#X connect 7 0 12 0;
#X connect 11 0 3 0;
#X connect 11 0 10 0;
#X connect 11 1 14 0;
#X connect 12 0 1 0;
#X connect 13 0 7 0;
#X connect 13 1 12 1;
#X connect 13 2 2 0;
#X connect 14 0 12 1;
#X restore 105 -92 pd super_blinker;
#X obj 105 -132 r \$0-nocsig;
#X obj 86 -3 r \$0-m1_tgl;
#X obj 86 27 select 0;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 3 3;
#X connect 5 0 3 3;
#X connect 6 0 3 3;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 7 2 4 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 3 1;
#X coords 0 -1 1 1 200 112 2 2 80;
#X restore 362 21 pd input_GUI_wrap;
#N canvas 613 518 504 404 nov_GUI_wrap 0;
#X obj 2 102 vsl 200 86 0 0.99 0 0 \$0-theta_vsl_s \$0-theta empty
0 -9 0 10 -262144 -258113 -1 258 1;
#N canvas 783 260 422 232 bp_GUI_wrap 0;
#X obj 100 96 bigplot;
#X obj 293 66 r \$0-M_reset;
#X obj 100 66 r \$0-nov;
#X obj 240 7 r \$0-stp;
#X obj 240 37 select 2;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 0 1;
#X coords 0 -1 1 1 200 92 2 100 100;
#X restore 2 99 pd bp_GUI_wrap;
#X obj 203 102 vsl 15 86 0 0.99 0 0 \$0-nov_vsl_s \$0-nov empty 0 -9
0 10 -228856 -13381 -1 0 1;
#X obj 3 81 cnv 15 215 18 empty empty novelty 78 8 0 14 -204800 -66577
0;
#X coords 0 -1 1 1 217 112 2 2 80;
#X restore 583 21 pd nov_GUI_wrap;
#X obj 136 317 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 194 21 bng 45 250 50 0 \$0-cut_btn_s \$0-cut_btn_r empty 17
7 0 10 -166441 -99865 -99865;
#X text 165 34 cut;
#X obj 194 88 bng 45 250 50 0 \$0-perf_btn_s \$0-perf_btn_r empty 17
7 0 10 -166441 -99865 -99865;
#N canvas 94 164 826 532 mode_switch 0;
#X obj 464 222 select 0 1 2;
#X msg 601 262 1;
#X msg 561 262 0;
#X msg 504 262 1;
#X msg 464 262 0;
#X obj 10 172 r \$0-rs_xyz;
#X obj 10 344 spigot;
#X text 683 285 0 = stop;
#X text 683 316 2 = perform;
#X obj 684 262 s \$0-stp;
#X obj 10 374 s \$0-pc_xyz;
#X obj 601 312 s \$0-mode;
#X text 564 352 1: perform;
#X text 683 301 1 = train (cut);
#X text 564 338 0: train (cut);
#X obj 316 -128 r \$0-cut_btn_s;
#X obj 214 262 s \$0-cut_btn_r;
#X obj 330 262 s \$0-perf_btn_r;
#X obj 460 -128 r \$0-perf_btn_s;
#X obj 106 172 r \$0-M_reset;
#X msg 106 202 color 1 21 21;
#X msg 214 172 color \$1 21 21;
#X msg 174 132 1;
#X msg 214 132 16;
#X obj 187 92 select 0 1 2;
#X msg 254 132 14;
#N canvas 614 451 364 402 gate__________ 0;
#X obj 18 15 inlet data;
#X obj 18 355 outlet;
#X obj 236 355 outlet;
#X obj 18 315 spigot;
#X obj 236 315 spigot;
#X msg 97 285 1;
#X msg 57 285 0;
#X msg 315 285 1;
#X msg 275 285 0;
#X obj 158 15 inlet control;
#X obj 158 45 select 1 2;
#X connect 0 0 4 0;
#X connect 0 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 3 1;
#X connect 6 0 3 1;
#X connect 7 0 4 1;
#X connect 8 0 4 1;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 10 0 5 0;
#X connect 10 1 6 0;
#X connect 10 1 7 0;
#X restore 214 202 pd gate__________;
#N canvas 179 575 411 418 check_audio_loaded 0;
#X obj 227 -2 inlet;
#X obj 340 -2 inlet;
#X obj 93 349 s \$0-openaudio_r;
#X msg 93 319 color \$1 21 21;
#N canvas 536 439 210 387 blinker 0;
#X obj 20 15 inlet;
#X obj 20 345 outlet;
#X obj 73 345 outlet;
#X obj 20 285 == 0;
#X obj 120 225 cup;
#X msg 50 225 0;
#X msg 20 135 1;
#X obj 120 255 select 6;
#X obj 20 255 metro 300;
#X obj 20 105 spigot;
#X msg 59 75 1;
#X msg 99 75 0;
#X obj 59 45 loadbang;
#X obj 20 315 select 0;
#X obj 80 285 == 1;
#X obj 20 165 t a a;
#X connect 0 0 9 0;
#X connect 3 0 13 0;
#X connect 3 0 14 0;
#X connect 4 0 7 0;
#X connect 5 0 8 0;
#X connect 6 0 15 0;
#X connect 7 0 5 0;
#X connect 7 0 10 0;
#X connect 8 0 3 0;
#X connect 8 0 4 0;
#X connect 9 0 6 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 12 0 10 0;
#X connect 13 0 1 0;
#X connect 13 1 2 0;
#X connect 14 0 3 1;
#X connect 15 0 8 0;
#X connect 15 1 4 0;
#X connect 15 1 11 0;
#X restore 93 239 pd blinker;
#X obj 132 168 cyclone/gate 2;
#X obj 245 168 cyclone/gate 2;
#X obj 93 98 + 1;
#X obj 245 28 loadbang;
#X msg 245 98 1;
#X obj 227 378 outlet;
#X obj 340 379 outlet;
#X obj 13 188 select 1;
#X msg 13 279 26;
#X msg 93 279 1;
#X msg 160 279 13;
#X obj 13 28 r \$0-audio_loaded;
#X obj 13 58 > 0;
#X obj 23 239 loadbang;
#X connect 0 0 5 1;
#X connect 1 0 6 1;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 4 1 15 0;
#X connect 5 0 4 0;
#X connect 5 1 10 0;
#X connect 6 0 4 0;
#X connect 6 1 11 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 9 0 6 0;
#X connect 12 0 13 0;
#X connect 12 1 4 0;
#X connect 13 0 3 0;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 17 0;
#X connect 17 0 7 0;
#X connect 17 0 12 0;
#X connect 18 0 14 0;
#X restore 316 -88 pd check_audio_loaded;
#N canvas 670 488 335 379 check_ctrl_sig_in_ 0;
#X obj 157 8 inlet;
#X obj 270 8 inlet;
#X obj 62 228 cyclone/gate 2;
#X obj 175 228 cyclone/gate 2;
#X obj 23 158 + 1;
#X obj 175 68 loadbang;
#X msg 175 98 1;
#X obj 157 328 outlet;
#X obj 270 329 outlet;
#X obj 23 38 r \$0-m1_tgl;
#X obj 23 299 s \$0-nocsig;
#X obj 23 128 spigot;
#X obj 62 68 r \$0-stp;
#X obj 62 98 == 0;
#X connect 0 0 2 1;
#X connect 1 0 3 1;
#X connect 2 0 10 0;
#X connect 2 1 7 0;
#X connect 3 0 10 0;
#X connect 3 1 8 0;
#X connect 4 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 0 3 0;
#X connect 6 0 11 1;
#X connect 9 0 11 0;
#X connect 11 0 4 0;
#X connect 12 0 13 0;
#X connect 13 0 11 1;
#X restore 316 -58 pd check_ctrl_sig_in_;
#N canvas 458 529 224 313 pushbuttons_switch 0;
#X obj 130 189 == 0;
#X obj 130 219 * 2;
#X obj 17 159 spigot;
#X obj 130 159 spigot;
#X obj 17 189 == 0;
#X obj 67 189 f;
#X obj 169 129 == 0;
#X obj 56 129 == 0;
#X obj 17 18 inlet;
#X obj 130 18 inlet;
#X obj 25 48 loadbang;
#X msg 25 78 1;
#X obj 17 268 outlet;
#X obj 177 189 f;
#X connect 0 0 1 0;
#X connect 0 0 13 0;
#X connect 1 0 12 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 4 0 12 0;
#X connect 5 0 4 1;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 7 0 2 1;
#X connect 8 0 2 0;
#X connect 9 0 3 0;
#X connect 10 0 11 0;
#X connect 11 0 2 1;
#X connect 11 0 3 1;
#X connect 13 0 0 1;
#X connect 13 0 7 0;
#X restore 316 2 pd pushbuttons_switch;
#N canvas 702 522 309 383 check_cut 0;
#X obj 247 8 inlet;
#X obj 247 338 outlet;
#X obj 12 39 r \$0-audio_loaded;
#X obj 12 68 select 1;
#X obj 22 98 loadbang;
#X obj 152 168 cyclone/gate 2;
#X msg 12 128 1;
#X msg 152 128 2;
#N canvas 1019 446 209 263 blinker 0;
#X obj 20 15 inlet;
#X obj 20 225 outlet;
#X obj 73 225 outlet;
#X obj 20 165 == 0;
#X obj 120 105 cup;
#X msg 50 105 0;
#X msg 20 45 1;
#X obj 20 75 t a a;
#X obj 80 165 == 1;
#X obj 20 195 select 1;
#X obj 120 135 select 6;
#X obj 20 135 metro 300;
#X connect 0 0 6 0;
#X connect 3 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 11 0;
#X connect 7 1 4 0;
#X connect 8 0 3 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 10 0 5 0;
#X connect 11 0 3 0;
#X connect 11 0 4 0;
#X restore 132 208 pd blinker;
#X msg 132 238 13;
#X msg 199 238 1;
#X obj 132 308 s \$0-cut_btn_r;
#X msg 132 278 color \$1 21 21;
#X obj 152 38 r \$0-stp;
#X obj 152 68 select 1;
#X connect 0 0 5 1;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 5 0 8 0;
#X connect 5 1 1 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 8 1 10 0;
#X connect 9 0 12 0;
#X connect 10 0 12 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 7 0;
#X restore 460 -28 pd check_cut;
#X obj 316 42 trigger any any any any;
#X connect 0 0 4 0;
#X connect 0 1 3 0;
#X connect 0 1 2 0;
#X connect 0 2 1 0;
#X connect 0 2 3 0;
#X connect 1 0 11 0;
#X connect 2 0 11 0;
#X connect 3 0 6 1;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 15 0 27 0;
#X connect 18 0 27 1;
#X connect 19 0 20 0;
#X connect 20 0 17 0;
#X connect 20 0 16 0;
#X connect 21 0 26 0;
#X connect 22 0 21 0;
#X connect 23 0 21 0;
#X connect 24 0 22 0;
#X connect 24 1 23 0;
#X connect 24 2 25 0;
#X connect 25 0 21 0;
#X connect 26 0 16 0;
#X connect 26 1 17 0;
#X connect 27 0 28 0;
#X connect 27 1 28 1;
#X connect 28 0 29 0;
#X connect 28 1 30 0;
#X connect 29 0 31 0;
#X connect 30 0 29 1;
#X connect 31 0 24 0;
#X connect 31 1 26 1;
#X connect 31 2 0 0;
#X connect 31 3 9 0;
#X restore 358 343 pd mode_switch;
#X text 137 99 perform;
#X text 37 16 open;
#X text 38 46 file;
#X text 30 31 audio;
#X text 37 285 Master segmentation reset;
#X obj 74 88 bng 45 250 50 0 \$0-set_par_s \$0-set_par_r empty 17 7
0 10 -166441 -99865 -99865;
#X text 45 99 set;
#X text 154 314 Redraw GUI;
#X obj 513 297 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 851 373 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X text 867 370 Connected to Wekinator;
#X text 531 304 distance matrix;
#X text 531 287 Display;
#N canvas 58 545 279 127 audio_control 0;
#N canvas 389 360 548 499 audio 0;
#X obj -94 212 route bang;
#X obj 6 272 r \$0-scrollend;
#X obj -94 342 once;
#X obj 94 382 spigot;
#X msg 173 342 0;
#X msg 133 342 1;
#X obj 101 312 t b b;
#X obj -94 242 t b b;
#X obj -62 272 s \$0-end;
#X obj -223 244 dac~;
#X obj -187 124 r \$0-startdur;
#X obj -223 94 r \$0-playstop;
#X obj -58 122 schange;
#X obj -223 184 playafile_1_lite;
#X obj -58 -39 r \$0-openaudio_s;
#X obj -58 31 openpanel;
#X msg 169 61 \; pd dsp 1;
#X obj 159 31 once;
#X obj 120 182 minidb;
#X obj -58 61 t a a;
#X msg 159 122 audiofiles_info.txt;
#X obj -114 412 s \$0-size/end;
#X obj -26 92 splitfilename /;
#X msg 76 122 search \$1;
#X obj -58 -9 trigger bang bang;
#X obj -27 242 s \$0-audio_loaded;
#X obj 120 272 select 0;
#X obj 120 242 r \$0-mode;
#X text 196 271 1: perform;
#X text 196 257 0: train (cut);
#X obj 94 412 s \$0-cut_btn_r;
#X obj 120 212 s \$0-bpm;
#X msg -5 152 \$1 loaded;
#X obj -5 182 print;
#X connect 0 0 7 0;
#X connect 0 1 25 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 30 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 2 1;
#X connect 6 1 5 0;
#X connect 7 0 2 0;
#X connect 7 1 8 0;
#X connect 10 0 13 1;
#X connect 11 0 13 0;
#X connect 12 0 13 3;
#X connect 13 0 9 0;
#X connect 13 0 9 1;
#X connect 13 1 0 0;
#X connect 13 1 21 0;
#X connect 14 0 24 0;
#X connect 15 0 19 0;
#X connect 17 0 16 0;
#X connect 17 0 20 0;
#X connect 18 0 31 0;
#X connect 19 0 12 0;
#X connect 19 1 22 0;
#X connect 20 0 18 1;
#X connect 22 1 23 0;
#X connect 22 1 32 0;
#X connect 23 0 18 0;
#X connect 24 0 15 0;
#X connect 24 1 17 0;
#X connect 26 0 6 0;
#X connect 26 1 4 0;
#X connect 27 0 26 0;
#X connect 32 0 33 0;
#X restore 35 22 pd audio;
#N canvas 395 165 266 333 playback_control_parameters 0;
#X obj 12 14 r \$0-lagf;
#X obj 12 144 +;
#X obj 12 114 0;
#X obj 210 114 0;
#X obj 178 74 t b a;
#X obj 12 74 t a b;
#X obj 178 14 r \$0-bos;
#X obj 12 234 pack 20 10 0 s;
#X msg 107 204 symbol ms;
#X obj 12 174 trigger b a b;
#X obj 12 284 s \$0-pc_params;
#X text 30 256 fps T mlag lagunit;
#X obj 12 44 * 50;
#X text 48 45 frame period (ms);
#X connect 0 0 12 0;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 3 0 1 1;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 6 0 4 0;
#X connect 7 0 10 0;
#X connect 8 0 7 3;
#X connect 9 0 7 0;
#X connect 9 1 7 2;
#X connect 9 2 8 0;
#X connect 12 0 5 0;
#X restore 34 82 pd playback_control_parameters;
#N canvas 1131 344 513 680 play/stop/mark_quantize 0;
#X msg 40 610 mark;
#X obj 82 300 realtime;
#X obj 82 330 moses;
#X text 112 369 1 after;
#X obj 271 300 / 2;
#X text 300 369 2 after;
#X obj 92 530 cup;
#X msg 131 460 1;
#X msg 82 370 1;
#X msg 271 370 2;
#X obj 255 570 select;
#X obj 92 490 spigot;
#X msg 171 460 0;
#X msg 317 460 1;
#X obj 271 420 t b a b;
#X obj 261 139 i;
#X text 320 236 beat;
#N canvas 938 378 481 615 super_metro_______ 0;
#X obj -123 19 metro;
#X obj -170 169 osc~;
#X msg -170 119 2000;
#X obj -91 -101 expr 60000/$f1;
#X obj -170 219 *~;
#X obj -123 169 line~;
#X obj 8 299 dac~;
#X obj -123 90 del 20;
#X msg -123 119 0 20;
#X msg -69 119 1 2;
#X obj -170 -221 inlet tgl;
#X obj -91 -221 inlet BPM;
#X obj 8 249 *~;
#X obj 26 -221 inlet level;
#X obj 177 328 outlet BPM;
#X obj 170 -222 inlet tap tgl;
#X obj 131 -130 select 32;
#X obj 131 -190 key;
#X obj 131 -160 spigot;
#X obj 131 -100 taptime;
#X obj -123 49 t bang bang bang;
#X obj -14 328 outlet beat;
#X obj 78 328 outlet T(ms);
#X obj 77 -31 f;
#X connect 0 0 20 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 23 0;
#X connect 4 0 12 0;
#X connect 5 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 5 0;
#X connect 10 0 0 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 6 0;
#X connect 12 0 6 1;
#X connect 13 0 12 1;
#X connect 15 0 18 1;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 19 0 23 0;
#X connect 19 1 14 0;
#X connect 20 0 7 0;
#X connect 20 1 9 0;
#X connect 20 2 21 0;
#X connect 23 0 0 1;
#X connect 23 0 22 0;
#X restore 241 210 pd super_metro_______;
#X obj 313 300 s \$0-bos;
#X text 320 276 (ms);
#X text 320 256 offset;
#X obj 150 108 select 1;
#X obj 385 640 s \$0-bpm;
#N canvas 836 607 570 332 audiofile_control 0;
#X msg 12 164 1;
#X msg 65 164 0;
#X obj 12 294 outlet play_segment;
#N canvas 399 612 402 333 perform_engine 0;
#X obj 110 292 outlet;
#X obj 110 262 f;
#X obj 110 -8 inlet playback end;
#X obj -5 -8 inlet on/off;
#X obj 110 52 spigot;
#X obj -5 52 select 1;
#X msg -5 92 1;
#X obj 297 -8 inlet next;
#X obj 202 141 cyclone/gate 2;
#X msg 146 142 2;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 3 0 4 1;
#X connect 3 0 8 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 8 1;
#X connect 8 0 1 0;
#X connect 8 0 9 0;
#X connect 8 1 1 1;
#X connect 9 0 8 0;
#X restore 175 124 pd perform_engine;
#X obj 233 -6 r \$0-end;
#X obj 72 -6 r \$0-stp;
#X obj 12 34 select 1;
#X obj 122 34 select 2;
#X msg 122 64 1;
#X msg 175 64 0;
#X obj 175 294 s \$0-current_seg_atm_rcv;
#X obj 391 294 s \$0-next_seg_atm_rcv;
#X msg 175 154 set \$1;
#X msg 391 154 set \$1;
#X obj 317 124 r \$0-stp;
#X obj 317 154 moses 2;
#X msg 317 184 set 0;
#X obj 338 -6 r \$0-stp;
#X obj 93 201 spigot;
#X msg 95 124 0;
#X msg 132 124 1;
#X msg 391 64 1;
#X obj 338 34 select 1;
#X obj 391 124 cyclone/gate 2;
#X msg 338 64 2;
#X msg 486 154 set 0;
#X obj 486 64 r \$0-class;
#X obj 486 94 change;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 3 0 12 0;
#X connect 3 0 18 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 0 0;
#X connect 6 0 19 0;
#X connect 6 1 1 0;
#X connect 6 1 20 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 3 0;
#X connect 9 0 3 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 10 0;
#X connect 16 0 11 0;
#X connect 17 0 22 0;
#X connect 18 0 2 0;
#X connect 19 0 18 1;
#X connect 20 0 18 1;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 22 1 21 0;
#X connect 23 0 13 0;
#X connect 23 1 25 0;
#X connect 24 0 23 0;
#X connect 25 0 11 0;
#X connect 26 0 3 2;
#X connect 26 0 27 0;
#X connect 27 0 23 1;
#X restore 20 48 pd audiofile_control;
#N canvas 404 533 306 253 first_clear_cut 0;
#X obj -176 45 select 1;
#X obj -123 125 cyclone/gate 2;
#X msg -176 82 2;
#X msg -123 82 1;
#X obj -28 155 t a b;
#X obj -123 215 outlet;
#X obj -28 15 inlet;
#X obj -176 15 r \$0-stp;
#X obj 4 182 s \$0-pc_clear;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 1 1 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 8 0;
#X connect 6 0 1 1;
#X connect 7 0 0 0;
#X restore 20 148 pd first_clear_cut;
#X obj 20 640 s \$0-play/stop/mark;
#X obj 40 240 cyclone/gate 2;
#X obj 241 18 r \$0-click_tgl_s;
#X obj 385 18 r \$0-sbar_tgl_s;
#N canvas 912 210 421 325 set_bpm 0;
#X obj 264 284 outlet;
#X obj 144 164 r \$0-bpm_atom_s;
#X obj 284 164 s \$0-bpm_atom_r;
#X msg 284 134 set \$1;
#X obj 197 44 route bang;
#X obj 197 14 r \$0-bpm;
#X msg 37 94 0;
#X obj 37 244 s \$0-quant_tgl_r;
#X msg 74 204 1;
#X obj 37 44 loadbang;
#X connect 1 0 0 0;
#X connect 1 0 8 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 4 1 3 0;
#X connect 4 1 0 0;
#X connect 4 1 8 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 6 0 3 0;
#X connect 8 0 7 0;
#X connect 9 0 6 0;
#X restore 261 78 pd set_bpm;
#X obj 241 48 trigger any any;
#X obj 20 78 trigger any any any;
#X obj 40 180 r \$0-quant_tgl_s;
#X obj 40 210 + 1;
#N canvas 977 691 138 170 bound_gate 0;
#X obj 13 134 outlet;
#X obj 13 14 r \$0-ibound;
#X obj 13 104 spigot;
#X obj 52 44 r \$0-stp;
#X obj 52 74 moses 2;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 2 1;
#X restore 135 210 pd bound_gate;
#X connect 0 0 25 0;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 2 1 9 0;
#X connect 4 0 2 1;
#X connect 6 0 10 0;
#X connect 7 0 11 1;
#X connect 8 0 14 0;
#X connect 9 0 14 0;
#X connect 10 0 12 0;
#X connect 10 0 0 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 6 0;
#X connect 14 0 7 0;
#X connect 14 1 10 1;
#X connect 14 2 13 0;
#X connect 15 0 17 1;
#X connect 17 0 1 0;
#X connect 17 0 11 0;
#X connect 17 1 4 0;
#X connect 17 1 18 0;
#X connect 17 2 15 1;
#X connect 17 2 22 0;
#X connect 21 0 15 0;
#X connect 23 0 31 0;
#X connect 24 0 25 0;
#X connect 26 0 0 0;
#X connect 26 1 1 1;
#X connect 27 0 30 0;
#X connect 28 0 17 3;
#X connect 29 0 15 0;
#X connect 30 0 17 0;
#X connect 30 1 17 2;
#X connect 31 0 24 0;
#X connect 31 1 17 0;
#X connect 31 2 21 0;
#X connect 32 0 33 0;
#X connect 33 0 26 0;
#X connect 34 0 26 1;
#X restore 35 52 pd play/stop/mark_quantize;
#X restore 675 343 pd audio_control;
#N canvas 21 469 382 407 sensor_signal 0;
#X obj 203 142 s \$0-m1_tgl;
#X obj 45 33 hradio 15 1 0 10 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X obj -64 30 tgl 15 0 empty \$0-myo_onoff_rcv empty 17 7 0 10 -262144
-1 -1 1 1;
#N canvas 1035 438 351 249 Myo_OSC 0;
#X obj 200 12 import mrpeach;
#X obj -3 12 inlet;
#N canvas 494 618 226 257 autoswitch 0;
#X obj 53 16 inlet;
#X obj 143 116 once;
#X obj 53 116 once;
#X msg 53 156 0;
#X msg 143 156 1;
#X obj 53 46 temperature 1000;
#X obj 53 76 moses 1;
#X obj 53 206 outlet tgl;
#X obj -17 76 loadbang;
#X connect 0 0 5 0;
#X connect 1 0 2 1;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 1 1 0;
#X connect 8 0 3 0;
#X restore 200 182 pd autoswitch;
#X obj 200 212 outlet tgl;
#N canvas 811 605 223 280 list_poll 0;
#X obj 46 18 inlet period;
#X msg 99 108 1;
#X obj 99 78 t b a;
#X obj 46 48 select 0;
#X msg 46 108 0;
#X obj 99 138 metro;
#X obj -69 178 list;
#X obj -69 208 route bang;
#X obj -44 18 inlet list;
#X obj -2 238 outlet list;
#X connect 0 0 3 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 2 1 5 1;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 1 9 0;
#X connect 8 0 6 1;
#X restore -3 182 pd list_poll;
#X text 181 111 sample period (ms);
#X obj 115 72 select 0 1;
#X msg 115 112 0;
#N canvas 966 23 335 347 Myo_xyz_tgl 0;
#X obj 30 196 unpackOSC;
#X obj 30 226 routeOSC /myo;
#N canvas 521 384 653 187 udp_receive 0;
#X obj 253 55 outlet;
#N canvas 1080 271 270 153 \$0-udp_prov 0;
#X obj 1 1 udpreceive 7777;
#X obj 1 50 send udprecout;
#X connect 0 0 1 0;
#X restore 73 26 pd \$0-udp_prov;
#X obj -137 26 s pd-\$0-udp_prov;
#X msg -67 -35 clear \, obj 1 1 udpreceive \$1 \, obj 1 50 send udprecout
\, connect 0 0 1 0;
#X obj 253 26 r udprecout;
#X msg -137 -35 clear;
#X obj -137 -75 inlet;
#X obj -67 -75 inlet;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X restore 30 166 pd udp_receive;
#X obj 30 16 inlet on/off;
#X obj 30 56 select 0 1;
#X msg 143 57 7777;
#X obj 125 136 f;
#X obj 143 16 loadbang;
#X obj 30 256 routeOSC /accel;
#X msg 30 286 \$2 \$3 \$4;
#X obj 30 316 outlet accel;
#X obj 193 197 s \$0-myo_onoff_rcv;
#X msg 193 167 1;
#X obj 193 57 delay 150;
#X text 200 81 increase delay if;
#X text 200 110 but acceleration;
#X text 200 124 doesn't show when;
#X text 200 138 program starts;
#X text 200 95 Myo is "ONLINE";
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 4 1 6 0;
#X connect 5 0 6 1;
#X connect 6 0 2 1;
#X connect 7 0 5 0;
#X connect 7 0 2 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X restore -3 72 pd Myo_xyz_tgl;
#X obj -3 212 outlet accel;
#X msg 148 112 50;
#X connect 1 0 8 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 4 0 9 0;
#X connect 6 0 7 0;
#X connect 6 1 10 0;
#X connect 7 0 4 1;
#X connect 8 0 4 0;
#X connect 8 0 2 0;
#X connect 10 0 4 1;
#X restore -64 62 pd Myo_OSC;
#X obj -64 322 s \$0-rs_xyz;
#X obj 203 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 219 30 step;
#X text -16 11 Myo;
#N canvas 326 189 518 602 ____test_signals____ 0;
#X obj 259 565 outlet tgl;
#X obj 259 62 select 0;
#X msg 259 92 0;
#X msg 312 92 1;
#X text 51 172 BPM;
#X msg 22 172 128;
#X obj 71 375 metro 50;
#X msg 71 335 1;
#X msg 31 335 0;
#X obj 22 275 s \$0-ts;
#X text 21 296 T (samples);
#X obj 22 245 floorceil;
#X obj -40 565 outlet acc_xyz;
#N canvas 819 207 538 371 plain 0;
#X obj 133 334 outlet;
#X obj 55 14 inlet;
#X obj 153 14 inlet;
#X obj 193 334 outlet;
#X obj 253 334 outlet;
#X obj 153 294 unpack f f f;
#X obj 153 264 list-add;
#X obj -78 14 inlet;
#N canvas 0 22 431 581 impulse 0;
#X msg 23 503 \$1 \$1 \$1;
#X obj 173 303 mod;
#X obj 173 373 abs;
#X obj 173 343 -;
#X obj 23 243 cup;
#X obj 23 273 select;
#X msg 23 303 0;
#X obj 308 223 spigot;
#X obj 266 453 /;
#X obj 98 114 t b a;
#X msg 347 193 1;
#X obj 98 84 / -4;
#X obj 126 214 +;
#X obj 237 303 / 2;
#X obj 93 414 +;
#X obj 98 14 inlet length;
#X obj 308 14 inlet bangs;
#X obj 98 54 trigger any any any any any;
#X obj 23 174 trigger a a a;
#X obj 23 543 outlet;
#X connect 0 0 19 0;
#X connect 1 0 3 0;
#X connect 2 0 14 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 1 0;
#X connect 6 0 0 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 1 18 0;
#X connect 10 0 7 1;
#X connect 11 0 9 0;
#X connect 12 0 5 1;
#X connect 13 0 3 1;
#X connect 14 0 8 0;
#X connect 15 0 17 0;
#X connect 16 0 7 0;
#X connect 17 0 11 0;
#X connect 17 1 12 1;
#X connect 17 2 1 1;
#X connect 17 3 13 0;
#X connect 17 4 8 1;
#X connect 18 0 4 0;
#X connect 18 1 12 0;
#X connect 18 2 14 1;
#X restore -32 144 pd impulse;
#X text -82 114 length;
#X obj 250 14 inlet;
#X obj -78 54 moses 1;
#X obj -32 84 moses 4;
#X msg 55 144 0.8 0.5 0.2;
#X msg 153 144 0.1 0.6 0.2;
#X msg -32 114 8;
#X obj 347 14 inlet;
#X msg 250 144 0.2 0.1 0.8;
#X msg 347 144 0.8 0.2 0.7;
#X connect 1 0 13 0;
#X connect 1 0 8 1;
#X connect 2 0 14 0;
#X connect 2 0 8 1;
#X connect 5 0 0 0;
#X connect 5 1 3 0;
#X connect 5 2 4 0;
#X connect 6 0 5 0;
#X connect 7 0 11 0;
#X connect 8 0 6 1;
#X connect 10 0 8 1;
#X connect 10 0 17 0;
#X connect 11 1 12 0;
#X connect 12 0 15 0;
#X connect 13 0 6 0;
#X connect 14 0 6 0;
#X connect 15 0 8 0;
#X connect 16 0 18 0;
#X connect 16 0 8 1;
#X connect 17 0 6 0;
#X connect 18 0 6 0;
#X restore -122 455 pd plain;
#N canvas 274 232 389 394 noise 0;
#X obj 17 20 inlet;
#X obj 104 325 outlet;
#X obj 137 20 inlet;
#X obj 257 20 inlet;
#X obj 104 285 pack f f f;
#X obj 49 110 + 1;
#X obj 49 140 / 1000;
#X obj 17 50 t a b;
#X obj 17 170 +;
#X obj 169 110 + 1;
#X obj 169 140 / 1000;
#X obj 137 50 t a b;
#X obj 137 170 +;
#X obj 289 110 + 1;
#X obj 289 140 / 1000;
#X obj 257 50 t a b;
#X obj 257 170 +;
#X obj 169 80 random 29;
#X obj 289 80 random 29;
#X obj 17 210 average 2;
#X obj 137 210 average 2;
#X obj 257 210 average 2;
#X obj 49 80 random 29;
#X connect 0 0 7 0;
#X connect 2 0 11 0;
#X connect 3 0 15 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 7 1 22 0;
#X connect 8 0 19 0;
#X connect 9 0 10 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 11 1 17 0;
#X connect 12 0 20 0;
#X connect 13 0 14 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 15 1 18 0;
#X connect 16 0 21 0;
#X connect 17 0 9 0;
#X connect 18 0 13 0;
#X connect 19 0 4 0;
#X connect 20 0 4 1;
#X connect 21 0 4 2;
#X connect 22 0 5 0;
#X restore -40 535 pd noise;
#X obj -147 12 inlet;
#X text -137 52 0 = stop;
#X obj -147 275 select 0;
#N canvas 567 258 777 710 sine 0;
#X obj -18 188 cup;
#X msg 41 188 0;
#X obj 203 -12 inlet;
#X obj 46 648 outlet;
#X obj 46 428 sin;
#X obj 17 288 r \$0-ts;
#X obj 46 398 moses 6.28;
#X obj -113 358 expr $f1*6.28/($f2);
#X obj 46 518 t a a a;
#X obj 96 648 outlet;
#X obj 146 648 outlet;
#X obj 203 458 unpack f f f;
#X obj 46 608 *;
#X obj 96 608 *;
#X obj 146 608 *;
#X msg 203 398 1 0.3 0.2;
#X obj 303 -12 inlet;
#X obj 603 -12 inlet;
#X obj -113 288 cyclone/gate 2;
#X msg 603 458 1;
#X msg 113 188 1;
#X msg 163 188 2;
#X obj -18 318 / 8;
#X msg 403 398 0.4 0.2 0.9;
#X obj 403 -12 inlet;
#X msg 303 398 0.1 0.8 0.2;
#X obj 503 -12 inlet;
#X msg 503 398 0.7 0.1 0.4;
#X connect 0 0 18 1;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 2 0 20 0;
#X connect 2 0 15 0;
#X connect 4 0 8 0;
#X connect 5 0 7 1;
#X connect 6 0 4 0;
#X connect 6 1 1 0;
#X connect 7 0 6 0;
#X connect 8 0 12 0;
#X connect 8 1 13 0;
#X connect 8 2 14 0;
#X connect 11 0 12 1;
#X connect 11 1 13 1;
#X connect 11 2 14 1;
#X connect 12 0 3 0;
#X connect 13 0 9 0;
#X connect 14 0 10 0;
#X connect 15 0 11 0;
#X connect 16 0 0 0;
#X connect 16 0 20 0;
#X connect 16 0 25 0;
#X connect 17 0 0 0;
#X connect 17 0 21 0;
#X connect 17 0 19 0;
#X connect 18 0 7 0;
#X connect 18 1 22 0;
#X connect 19 0 12 1;
#X connect 19 0 13 1;
#X connect 19 0 14 1;
#X connect 20 0 18 0;
#X connect 21 0 18 0;
#X connect 22 0 7 0;
#X connect 23 0 11 0;
#X connect 24 0 0 0;
#X connect 24 0 20 0;
#X connect 24 0 23 0;
#X connect 25 0 11 0;
#X connect 26 0 0 0;
#X connect 26 0 20 0;
#X connect 26 0 27 0;
#X connect 27 0 11 0;
#X restore -37 455 pd sine;
#X obj 1 12 inlet step;
#X text -137 72 1 = plain x;
#X text -137 92 2 = plain y;
#X text -137 112 3 = plain z;
#X text -137 132 4 = plain xz;
#X text -137 152 5 = fast sine x;
#X text -137 172 6 = fast sine y;
#X text -137 192 7 = fast sine z;
#X text -137 232 9 = slow sine;
#X text -137 212 8 = fast sine xz;
#X obj -94 405 cyclone/gate 9;
#X obj 22 215 expr 60*$f2/$f1;
#X msg 152 172 20;
#X text 181 172 fps;
#X text 149 296 T (ms);
#X obj 124 275 expr 1000/$f1;
#X obj 22 82 loadbang;
#X obj 22 122 t b b;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 30 0;
#X connect 6 0 29 1;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 11 0 9 0;
#X connect 13 0 14 0;
#X connect 13 1 14 1;
#X connect 13 2 14 2;
#X connect 14 0 12 0;
#X connect 15 0 1 0;
#X connect 15 0 17 0;
#X connect 17 0 8 0;
#X connect 17 1 7 0;
#X connect 17 1 13 0;
#X connect 17 1 29 0;
#X connect 18 0 14 0;
#X connect 18 1 14 1;
#X connect 18 2 14 2;
#X connect 19 0 29 1;
#X connect 29 0 13 1;
#X connect 29 1 13 2;
#X connect 29 2 13 3;
#X connect 29 3 13 4;
#X connect 29 4 18 0;
#X connect 29 5 18 1;
#X connect 29 6 18 2;
#X connect 29 7 18 3;
#X connect 29 8 18 4;
#X connect 30 0 11 0;
#X connect 31 0 30 1;
#X connect 31 0 34 0;
#X connect 34 0 6 1;
#X connect 35 0 36 0;
#X connect 36 0 5 0;
#X connect 36 1 31 0;
#X restore 45 62 pd ____test_signals____;
#X obj 101 142 select 1;
#X obj -64 242 list-autoscale 0.01 0.99;
#X text -45 27 <-- on/off;
#X msg 162 272 set load \$1 \$2;
#X obj 48 322 pack f f;
#X msg 118 242 load -5.92627 7.9585;
#X msg 118 172 save;
#X obj 118 212 loadbang;
#X text 161 173 get minmax;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 10 0;
#X connect 3 1 0 0;
#X connect 3 1 9 0;
#X connect 5 0 8 1;
#X connect 8 0 10 0;
#X connect 8 1 0 0;
#X connect 9 0 10 3;
#X connect 10 0 4 0;
#X connect 10 1 13 0;
#X connect 10 2 13 1;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 10 3;
#X connect 15 0 10 3;
#X connect 16 0 14 0;
#X restore 185 343 pd sensor_signal;
#N canvas 166 477 726 516 set_parameters 0;
#X obj -244 -74 r \$0-snd_ip_load;
#N canvas 1470 584 364 286 clear 0;
#X obj 73 247 outlet;
#X obj 86 107 until;
#X obj 192 147 cup;
#X msg 192 107 0;
#X msg 86 77 11;
#X obj 11 247 outlet;
#X obj 11 47 trigger bang bang bang;
#X obj 192 177 trigger bang any;
#X obj 301 247 outlet;
#X msg 73 219 0 ... 0 0 0 0 0 0 0 0 0 \, store;
#X obj 11 17 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 31 15 this will erase all presets \, use with caution;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 6 0 5 0;
#X connect 6 1 4 0;
#X connect 6 2 3 0;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 9 0 0 0;
#X connect 10 0 6 0;
#X restore 133 6 pd clear;
#X msg -154 36 write init_params.txt br;
#X msg 48 36 store;
#X obj 16 -74 r \$0-snd_ip_save;
#X obj 16 -44 t b b;
#N canvas 706 119 299 575 to_atom_boxes 0;
#X obj 15 16 inlet;
#X obj 15 516 s \$0-rcv_ip_0;
#X obj 85 416 s \$0-rcv_ip_1;
#X obj 64 296 s \$0-rcv_ip_2;
#X obj 88 256 s \$0-rcv_ip_3;
#X obj 113 186 s \$0-rcv_ip_4;
#X obj 138 116 s \$0-rcv_ip_5;
#X obj 15 46 unpack s f f f f f;
#X msg 138 86 set \$1;
#X msg 113 156 set \$1;
#X msg 88 226 set \$1;
#X obj 39 336 pipe 100;
#X text 179 336 increase;
#X text 179 380 correctly when;
#X text 179 394 program starts;
#X text 179 351 if parameter;
#X text 179 366 doesn't load;
#X text 107 336 <---------;
#X obj 39 476 s \$0-M_reset;
#X obj 39 366 t b b a;
#X obj 62 446 s \$0-pc_clear;
#X connect 0 0 7 0;
#X connect 7 0 1 0;
#X connect 7 1 11 0;
#X connect 7 2 3 0;
#X connect 7 3 10 0;
#X connect 7 4 9 0;
#X connect 7 5 8 0;
#X connect 8 0 6 0;
#X connect 9 0 5 0;
#X connect 10 0 4 0;
#X connect 11 0 19 0;
#X connect 19 0 18 0;
#X connect 19 1 20 0;
#X connect 19 2 2 0;
#X restore -94 206 pd to_atom_boxes;
#N canvas 654 302 495 350 from_atom_boxes 0;
#X msg -164 48 1 \$1;
#X obj -242 48 prepend 0;
#X obj -242 -174 r \$0-snd_ip_0;
#X obj -164 -144 r \$0-snd_ip_1;
#X obj -64 136 outlet;
#X obj -154 -114 s \$0-lag_fine_rcv;
#X obj 96 7 s \$0-init_nov_params;
#N canvas 893 617 197 252 pack 0;
#X obj -70 23 inlet;
#X obj -20 23 inlet;
#X obj -20 173 pack 0 0 0;
#X obj -20 53 t b a;
#X obj 30 23 inlet;
#X obj 30 53 t b a;
#X obj -20 213 outlet;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 1 2 2;
#X restore 96 -23 pd pack;
#X obj -104 7 s \$0-msl;
#X msg -114 48 2 \$1;
#X msg -14 48 3 \$1;
#X msg 36 48 4 \$1;
#X msg 86 48 5 \$1;
#X obj -114 -23 r \$0-snd_ip_2;
#X obj -14 -174 r \$0-snd_ip_3;
#X obj 36 -143 r \$0-snd_ip_4;
#X obj 86 -113 r \$0-snd_ip_5;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 3 0 5 0;
#X connect 7 0 6 0;
#X connect 9 0 4 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 9 0;
#X connect 13 0 8 0;
#X connect 14 0 10 0;
#X connect 14 0 7 0;
#X connect 15 0 11 0;
#X connect 15 0 7 1;
#X connect 16 0 12 0;
#X connect 16 0 7 2;
#X restore -344 -104 pd from_atom_boxes;
#N canvas 802 633 401 275 master_init 0;
#X obj 66 44 r \$0-snd_ip_pidx;
#X msg 66 104 1;
#X msg 66 74 set \$1;
#X text 107 103 last preset used;
#X obj 66 144 s \$0-rcv_ip_pidx;
#X obj -4 14 inlet;
#X obj 66 184 s \$0-snd_ip_load;
#X obj -4 74 t b b;
#X text 15 221 master segmentation reset 's \$0-M_reset' is in 'pd
to_atom_boxes';
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 5 0 7 0;
#X connect 7 0 6 0;
#X connect 7 1 1 0;
#X restore -14 -124 pd master_init;
#X obj -24 -254 inlet;
#X obj -4 -224 loadbang;
#X text -346 -223 preset_name \, param_1_value \, param_2_value \,
...;
#N canvas 322 687 407 328 pidx 0;
#X obj -248 297 outlet;
#X obj -294 22 r \$0-snd_ip_pidx;
#X obj -248 274 - 1;
#X obj -36 22 r \$0-pidx_-_snd;
#X obj -156 22 r \$0-pidx_+_snd;
#X obj -96 273 s \$0-rcv_ip_pidx;
#X floatatom -156 163 3 0 0 0 - - -;
#X obj -142 212 +;
#X msg -124 162 1;
#X msg -4 162 -1;
#X obj -156 82 t b b;
#X msg -232 82 set \$1;
#X obj -36 82 t b b;
#X obj -142 243 moses 1;
#X obj -294 52 moses 1;
#X msg -214 162 0;
#X obj -294 82 t b b;
#X connect 1 0 14 0;
#X connect 2 0 0 0;
#X connect 3 0 12 0;
#X connect 4 0 10 0;
#X connect 6 0 7 0;
#X connect 7 0 13 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 6 0;
#X connect 10 1 8 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 12 1 9 0;
#X connect 13 1 5 0;
#X connect 14 0 16 0;
#X connect 14 1 11 0;
#X connect 14 1 2 0;
#X connect 15 0 7 1;
#X connect 16 0 6 0;
#X connect 16 1 15 0;
#X restore 133 96 pd pidx;
#X msg -244 -44 read init_params.txt br \, recall;
#X obj -94 166 iem_pbank_csv 6 10;
#N canvas 218 670 297 124 nov_params 0;
#X obj -144 -14 inlet;
#X obj -144 16 list split 3;
#X obj -104 50 s \$0-init_nov_params;
#X connect 0 0 1 0;
#X connect 1 1 2 0;
#X restore -214 206 pd nov_params;
#X obj 6 -184 delay 1000;
#X obj 6 -154 s \$0-init_GUI;
#X text -346 -253 Initialise Parameters for Segmentation;
#X text -346 -250 ______________________________________;
#X obj 216 -254 inlet;
#X obj 216 -224 s \$0-init_GUI;
#X obj 216 -74 r \$0-set_par_s;
#X msg 216 -44 \; pd-set_par_vis vis 1;
#N canvas 828 423 379 574 set_par_vis 0;
#X floatatom 53 101 5 0 0 0 - #0-rcv_ip_1 #0-snd_ip_1;
#X floatatom 53 131 5 0 0 0 - #0-rcv_ip_2 #0-snd_ip_2;
#X floatatom 53 161 5 0 0 0 - #0-rcv_ip_3 #0-snd_ip_3;
#X floatatom 53 191 5 0 0 0 - #0-rcv_ip_4 #0-snd_ip_4;
#X floatatom 53 221 5 0 0 0 - #0-rcv_ip_5 #0-snd_ip_5;
#X symbolatom 18 11 10 0 0 0 - #0-rcv_ip_0 #0-snd_ip_0;
#X floatatom 50 -49 3 0 0 0 - #0-rcv_ip_pidx #0-snd_ip_pidx;
#X obj 71 -18 bng 18 250 50 0 \$0-snd_ip_load empty empty 17 7 0 10
-262144 -1 -1;
#X text 93 -49 preset index;
#X text 93 -19 load;
#X obj 71 266 bng 18 250 50 0 \$0-snd_ip_save empty empty 17 7 0 10
-262144 -1 -1;
#X text 93 265 save;
#X text 93 100 1) lag fine-tune (frames);
#X obj 3 251 cnv 4 343 4 empty empty empty 20 12 0 14 -191407 -66577
0;
#X obj 3 295 cnv 4 343 4 empty empty empty 20 12 0 14 -191407 -66577
0;
#X text 15 50 Parameters:;
#X text 93 11 preset name;
#X obj 74 -42 bng 12 250 50 0 \$0-pidx_+_snd empty + 2 5 0 15 -262144
-162280 -1;
#X obj 37 -42 bng 12 250 50 0 \$0-pidx_-_snd empty - 1 5 0 18 -262144
-162280 -1;
#X text 93 130 2) minimum segment length (frames);
#X text 93 190 4) smooth factor [0...1];
#X text 93 220 5) peak threshold [0...1];
#X text 93 160 3) segmentation window (frames);
#X obj 3 -66 cnv 4 4 360 empty empty empty 20 12 0 14 -191407 -66577
0;
#X text 93 70 20 frames per second;
#X obj 342 -66 cnv 4 4 360 empty empty empty 20 12 0 14 -191407 -66577
0;
#X floatatom 53 371 5 0 0 0 - #0-bpm_atom_r #0-bpm_atom_s;
#X text 93 371 tempo (BPM);
#X obj 70 401 tgl 20 0 \$0-click_tgl_s \$0-click_tgl_r empty 17 7 0
10 -262144 -1 -1 0 1;
#X text 93 401 click;
#X obj 70 431 tgl 20 0 \$0-sbar_tgl_s \$0-sbar_tgl_r empty 17 7 0 10
-262144 -1 -1 0 1;
#X text 93 431 enable spacebar tap;
#X obj 70 341 tgl 20 0 \$0-quant_tgl_s \$0-quant_tgl_r empty 17 7 0
10 -262144 -1 -1 0 1;
#X text 93 341 quantize;
#X obj 3 41 cnv 4 343 4 empty empty empty 20 12 0 14 -191407 -66577
0;
#X obj 3 -80 cnv 10 343 20 empty empty SEGMENTATION 124 10 0 14 -191407
-66577 0;
#X obj 3 462 cnv 4 343 4 empty empty empty 20 12 0 14 -191407 -66577
0;
#X obj 3 310 cnv 10 343 20 empty empty QUANTIZATION 124 10 0 14 -191407
-66577 0;
#X obj 3 326 cnv 4 4 135 empty empty empty 20 12 0 14 -191407 -66577
0;
#X obj 342 326 cnv 4 4 135 empty empty empty 20 12 0 14 -191407 -66577
0;
#X restore 216 6 pd set_par_vis;
#X connect 0 0 13 0;
#X connect 1 0 2 0;
#X connect 1 1 14 0;
#X connect 1 2 14 1;
#X connect 2 0 14 0;
#X connect 3 0 14 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 7 0 14 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 10 0 16 0;
#X connect 12 0 14 1;
#X connect 13 0 14 0;
#X connect 14 0 6 0;
#X connect 14 0 15 0;
#X connect 16 0 17 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X restore 20 343 pd set_parameters;
#X connect 2 0 35 0;
#X connect 11 0 29 0;
#X connect 15 0 35 1;
#X connect 28 0 1 0;
#X coords 0 -1 1 1 1022 256 2 10 10;
#X restore -403 16 pd GUI_wrap;