works » dieudj-videoproto

#N canvas 862 171 1001 889 10;

#X obj 143 533 l2s /;

#X obj 143 555 s2l /;

#X obj 143 577 list split 1;

#X obj 143 696 t b a;

#X obj 147 788 s;

#X msg 143 673 symbol /\$1-forward;

#X obj 271 603 list split 1;

#X obj 271 647 list append;

#X obj 140 731 list;

#X obj 140 753 list trim;

#X msg 271 625 g_\$1;

#X obj 143 603 l2s;

#X obj 143 624 s2l .;

#X obj 143 511 textfile;

#X obj 102 386 route persist;

#X obj 363 393 symbol;

#X text 118 403 dump SSAD data;

#X text 195 536 comment;

#X text 174 607 some addresses;

#X text 183 620 contain a '.';

#X text 228 562 separate the first part of the address (which identifies

#X text 353 599 isolate the controler address;

#X text 352 625 prepare the right control's gui address;

#X text 207 730 piece it back togeter;

#X text 206 751 remove the 'list' selector form the list;

#X text 200 787 name the destination and send the message (to the message

#X text 224 689 send to the layer's message forwarder (message dispatcher)

#X obj 102 364 r SSSAD_ADMIN;

#X obj 251 387 symbol;

#X msg 251 411 write \$1;

#X obj 337 365 t a b a;

#X obj 109 85 hradio 20 1 0 10 \$0-row0 empty empty 0 -8 0 10 -262144

#X obj 102 418 list prepend add;

#X obj 103 442 list trim;

#X msg 392 437 read \$1 \, rewind;

#X msg 45 424 print;

#X msg 44 455 rewind;

#X obj 337 345 makefilename ../data/%s.txt;

#X obj 363 415 t b a;

#X msg 363 437 100;

#X obj 362 459 until;

#X msg 241 336 save;

#X obj 241 355 s SSSAD_ADMIN;

#X obj 29 726 list append;

#X obj 29 746 list trim;

#X obj 29 768 print DBG_STATE;

#X obj 195 284 t b b b;

#X msg 287 319 clear;

#X obj 387 132 r \$0-row0;

#X obj 449 132 r \$0-row1;

#X obj 509 132 r \$0-row2;

#X obj 109 114 hradio 20 1 0 10 \$0-row1 empty empty 0 -8 0 10 -228856

#X obj 109 143 hradio 20 1 0 10 \$0-row2 empty empty 0 -8 0 10 -262144

#X obj 167 167 cnv 15 100 15 empty \$0-preset-set another1 6 8 1 12

#X obj 400 309 s \$0-preset-set;

#X msg 400 289 label \$1;

#X obj 385 177 t f f;

#X text 116 85 1;

#X text 135 85 2;

#X text 153 85 3;

#X text 173 85 4;

#X text 194 85 5;

#X text 213 85 6;

#X text 233 85 7;

#X text 254 85 8;

#X text 129 114 12;

#X text 150 114 13;

#X text 170 114 14;

#X text 191 114 15;

#X text 211 114 16;

#X text 230 114 17;

#X text 250 114 18;

#X text 270 114 19;

#X text 290 113 20;

#X text 130 143 22;

#X text 149 143 23;

#X text 170 143 24;

#X text 192 143 25;

#X text 209 143 26;

#X text 230 143 27;

#X text 250 143 28;

#X text 270 143 29;

#X text 290 142 30;

#X text 112 114 11;

#X text 111 143 21;

#X obj 385 156 + 1;

#X obj 449 154 + 11;

#X obj 509 154 + 21;

#X text 274 85 9;

#X text 290 84 10;

#X obj 276 56 popup 124 25 #ffffff popup another;

#X obj 385 222 symbol testpreset;

#X obj 385 245 pack s f;

#X obj 385 200 t b f;

#X obj 282 167 bng 15 250 50 0 \$0-saveas empty save_as... 17 7 1 8

-262144 -1 -1;

#X msg 698 32 options;

#N canvas 479 135 623 808 save_as 1;

#X obj 198 659 outlet;

#X obj 95 14 inlet;

#X obj 170 374 textfile;

#X obj 95 39 savepanel;

#X obj 233 78 prepend set;

#X msg 233 97 /home/scenic/src/dieudj-videoproto/data/another;

#X msg 209 234 write ../data/presets_list.txt;

#X msg 255 315 read ../data/presets_list.txt \, rewind;

#X obj 107 339 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144

-1 -1;

#X obj 206 316 until;

#X obj 198 569 prepend append;

#X msg 68 305 clear;

#X msg 176 215 add \$1;

#X msg 207 293 50;

#X obj 170 432 s2l /;

#X obj 170 525 list split;

#X obj 197 477 list length;

#X obj 170 454 t a a;

#X obj 197 499 - 1;

#X obj 170 410 symbol;

#X msg 198 547 \$1;

#X text 226 117 write absolute path of the desired file;

#X obj 207 264 t b b;

#X obj 137 180 t b b a;

#X text 271 218 save the file;

#X text 258 275 populate the popup;

#X msg 319 417 options;

#X text 356 400 clear the popup first;

#X text 204 451 strip the path;

#X text 241 524 get last element;

#X text 288 583 write new values;

#X obj 447 207 loadbang;

#X obj 98 63 s2l /;

#X obj 69 156 list split;

#X obj 98 85 t a a;

#X obj 124 109 list length;

#X obj 124 131 - 1;

#X connect 1 0 3 0;

#X connect 2 0 19 0;

#X connect 2 1 9 1;

#X connect 3 0 32 0;

#X connect 4 0 5 0;

#X connect 6 0 2 0;

#X connect 7 0 2 0;

#X connect 8 0 2 0;

#X connect 9 0 2 0;

#X connect 10 0 0 0;

#X connect 11 0 2 0;

#X connect 12 0 2 0;

#X connect 13 0 9 0;

#X connect 14 0 17 0;

#X connect 15 1 20 0;

#X connect 16 0 18 0;

#X connect 17 0 15 0;

#X connect 17 1 16 0;

#X connect 18 0 15 1;

#X connect 19 0 14 0;

#X connect 20 0 10 0;

#X connect 22 0 13 0;

#X connect 22 1 7 0;

#X connect 22 1 26 0;

#X connect 23 0 22 0;

#X connect 23 1 6 0;

#X connect 23 2 12 0;

#X connect 26 0 0 0;

#X connect 31 0 22 0;

#X connect 32 0 34 0;

#X connect 33 1 23 0;

#X connect 34 0 33 0;

#X connect 34 1 35 0;

#X connect 35 0 36 0;

#X connect 36 0 33 1;

#X restore 613 34 pd save_as;

#X obj 492 381 prepend set;

#X msg 492 403 ../data/another1.txt;

#X msg 385 265 symbol \$1\$2;

#X obj 613 14 r \$0-saveas;

#X obj 613 55 s \$0-to_popup;

#X obj 484 203 r \$0-from_popup;

#X obj 277 36 r \$0-to_popup;

#X obj 317 86 s \$0-from_popup;

#X connect 3 1 44 1;

#X connect 9 0 44 0;

#X connect 13 1 41 1;

#X connect 15 0 39 0;

#X connect 31 0 47 0;

#X connect 38 0 30 0;

#X connect 38 0 98 0;

#X connect 39 0 40 0;

#X connect 39 1 35 0;

#X connect 41 0 13 0;

#X connect 42 0 43 0;

#X connect 44 0 45 0;

#X connect 47 0 28 0;

#X connect 47 1 42 0;

#X connect 47 2 48 0;

#X connect 48 0 13 0;

#X connect 49 0 86 0;

#X connect 50 0 87 0;

#X connect 51 0 88 0;

#X connect 56 0 55 0;

#X connect 57 0 94 0;

#X connect 86 0 57 0;

#X connect 87 0 57 0;

#X connect 88 0 57 0;

#X connect 91 1 105 0;

#X connect 92 0 93 0;

#X connect 93 0 100 0;

#X connect 94 0 92 0;

#X connect 94 1 93 1;

#X connect 96 0 102 0;

#X connect 97 0 102 0;

#X connect 98 0 99 0;

#X connect 100 0 38 0;

#X connect 100 0 56 0;

#X connect 101 0 97 0;

#X connect 103 0 92 1;

#X connect 104 0 91 0;

#X coords 0 -1 1 1 300 140 1 100 50;