pd-autopreset 0.10-2 / usr / lib / pd / extra / AutoPreset / apsym.pd

#N canvas 281 136 876 587 10;
#X declare -lib libdir -lib ggee -lib moonlib -stdpath moonlib -stdpath
extra/moonlib;
#X obj 279 104 r \$1-setap-snd;
#X obj 32 129 r \$1-getap-snd;
#X obj 11 130 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 62 444 s \$1-getap-rcv;
#X obj 32 423 t b a;
#X obj 32 306 symbol \$2;
#X obj 32 154 t b b;
#X obj 603 132 r \$1-pattern-snd;
#X obj 603 197 route store load;
#X obj 466 302 sel 0;
#X obj 603 244 moses 16;
#X obj 665 243 moses 16;
#X obj 279 124 route \$2 _all_;
#X obj 466 279 t f f;
#X obj 506 302 s \$0-nbpattern;
#X obj 139 289 r \$0-nbpattern;
#X obj 716 219 r \$0-nbpattern;
#X obj 603 155 route \$2 _all_;
#X obj 480 30 inlet;
#X obj 370 548 outlet;
#X obj 101 159 symbol;
#X obj 32 330 pack s s 16;
#X msg 139 315 setlen \$1;
#X obj 139 334 sarray \$0-pattern 16;
#X msg 55 361 dump _;
#X obj 55 382 sarray \$0-pattern;
#X obj 496 389 sarray \$0-pattern;
#X obj 653 370 symbol;
#X obj 608 393 pack f s;
#X msg 608 414 set \$1 \$2;
#X msg 665 270 get \$1;
#X obj 665 290 sarray \$0-pattern;
#X obj 608 437 sarray \$0-pattern;
#X msg 496 324 list set _ 0;
#X msg 127 360 print;
#X obj 665 310 route bang;
#X obj 44 218 symbol;
#X obj 44 237 sel null;
#X obj 95 199 loadbang;
#X msg 95 218 symbol;
#X msg 44 259 symbol _;
#X obj 428 279 sel _;
#X obj 165 260 s \$1-sndap;
#X obj 165 221 pack s s;
#X obj 165 201 symbol \$2;
#X obj 165 181 t b s;
#X obj 603 224 i;
#X obj 665 222 i;
#X obj 740 155 sel 2;
#X obj 740 193 s \$0-nbpattern;
#X msg 740 174 0;
#X obj 165 240 route list;
#X text 69 46 -if pat_no_all==1 \, doesn't receive "_all_" pattern
commands store/load. If pat_no_all==2 \, no pattern for this.;
#X text 22 10 AutoPreset Symbol;
#X text 23 11 AutoPreset Symbol;
#X text 24 30 usage : apsym Ref Name [BusName [pat_no_all [dont-recall]]]
;
#X obj 519 31 r \$3-snd;
#X obj 416 550 s \$3-rcv;
#X obj 504 56 t a;
#X obj 393 518 t a;
#X obj 279 203 route _nbpattern_ _loaded_ symbol list _get_val_;
#X obj 230 388 t s b;
#X msg 230 452 \; \$1 \$2;
#X obj 230 364 symbol;
#X text 275 363 if parameter is "_get_val_ <s>";
#X text 276 376 then return val to <s>.;
#X obj 257 408 symbol;
#X obj 230 430 pack s s;
#X obj 456 485 spigot 1;
#X obj 501 464 == 0;
#X text 68 76 -if dont-recall=1 \, saved value is not sent when we
load the preset.;
#X obj 279 311 s \$0-nbpattern;
#X obj 324 269 != 2;
#X obj 279 291 spigot 1;
#X obj 319 148 route \$2;
#X obj 399 176 spigot 1;
#X obj 466 177 != 1;
#X obj 628 45 cnv 15 130 60 empty empty help: 20 7 0 12 -204800 -66577
0;
#N canvas 634 338 164 175 open 0;
#X obj 29 16 inlet;
#X obj 29 38 symbol;
#X obj 29 103 pack s s;
#X obj 56 80 getdir;
#X obj 29 59 t s b;
#X msg 29 124 \; pd open \$1 \$2;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X restore 632 85 pd open;
#X msg 632 62 0autopreset-help.pd;
#X obj 399 92 route _nbpattern_;
#X obj 399 114 list prepend _nbpattern_;
#X obj 399 133 list trim;
#X obj 32 402 list append;
#X obj 501 423 loadbang;
#X obj 501 443 f \$5;
#X obj 324 229 loadbang;
#X obj 324 248 f \$4;
#X obj 466 137 loadbang;
#X obj 710 132 f \$4;
#X obj 710 110 loadbang;
#X obj 699 155 == 0;
#X obj 643 176 spigot 1;
#X obj 428 231 list split 2;
#X obj 496 346 list append;
#X obj 428 256 unpack s f;
#X obj 564 228 list;
#X obj 466 157 f \$4;
#X obj 496 369 list trim;
#X obj 22 500 declare -lib libdir -lib ggee -lib moonlib -stdpath moonlib
-stdpath extra/moonlib;
#X connect 0 0 12 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 4 1 3 0;
#X connect 5 0 21 0;
#X connect 6 0 5 0;
#X connect 6 1 24 0;
#X connect 6 1 36 0;
#X connect 7 0 17 0;
#X connect 8 0 46 0;
#X connect 8 1 47 0;
#X connect 9 1 33 0;
#X connect 10 0 28 0;
#X connect 11 0 30 0;
#X connect 12 0 60 0;
#X connect 12 1 74 0;
#X connect 13 0 9 0;
#X connect 13 1 14 0;
#X connect 15 0 22 0;
#X connect 15 0 21 2;
#X connect 16 0 11 1;
#X connect 16 0 10 1;
#X connect 17 0 8 0;
#X connect 17 1 92 0;
#X connect 18 0 58 0;
#X connect 20 0 36 1;
#X connect 20 0 45 0;
#X connect 20 0 66 1;
#X connect 21 0 83 0;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 83 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 35 0;
#X connect 33 0 94 0;
#X connect 34 0 25 0;
#X connect 35 1 59 0;
#X connect 36 0 37 0;
#X connect 37 0 40 0;
#X connect 37 1 21 1;
#X connect 38 0 39 0;
#X connect 39 0 37 1;
#X connect 40 0 21 1;
#X connect 41 1 68 0;
#X connect 43 0 51 0;
#X connect 44 0 43 0;
#X connect 45 0 44 0;
#X connect 45 1 43 1;
#X connect 46 0 10 0;
#X connect 47 0 11 0;
#X connect 48 0 50 0;
#X connect 50 0 49 0;
#X connect 51 0 42 0;
#X connect 56 0 58 0;
#X connect 58 0 27 0;
#X connect 58 0 20 0;
#X connect 59 0 57 0;
#X connect 59 0 19 0;
#X connect 60 0 73 0;
#X connect 60 2 59 0;
#X connect 60 3 93 0;
#X connect 60 4 63 0;
#X connect 60 5 96 0;
#X connect 61 0 67 0;
#X connect 61 1 66 0;
#X connect 63 0 61 0;
#X connect 66 0 67 1;
#X connect 67 0 62 0;
#X connect 68 0 59 0;
#X connect 69 0 68 1;
#X connect 72 0 73 1;
#X connect 73 0 71 0;
#X connect 74 0 60 0;
#X connect 74 1 80 0;
#X connect 75 0 60 0;
#X connect 76 0 75 1;
#X connect 79 0 78 0;
#X connect 80 0 81 0;
#X connect 80 1 60 0;
#X connect 81 0 82 0;
#X connect 82 0 75 0;
#X connect 83 0 4 0;
#X connect 84 0 85 0;
#X connect 85 0 69 0;
#X connect 86 0 87 0;
#X connect 87 0 72 0;
#X connect 88 0 97 0;
#X connect 89 0 48 0;
#X connect 89 0 91 0;
#X connect 90 0 89 0;
#X connect 91 0 92 1;
#X connect 92 0 8 0;
#X connect 93 0 95 0;
#X connect 93 1 94 1;
#X connect 94 0 98 0;
#X connect 95 0 41 0;
#X connect 95 1 13 0;
#X connect 96 0 93 0;
#X connect 97 0 76 0;
#X connect 98 0 26 0;