[PD] New module for SSSAD: PRESET saving!

[Thomas Ouellet Fredericks]

I was playing around with sssad and I found it so cute (so much more
than other state saving schemes) that I made a preset saving module
for it.

To test, get sssad included in the s-abstractions
(http://mccormick.cx/projects/s-abstractions/)
Install it all
Put presetstore.pd  &  presetstore-help.pd  in the sssad folder

Tom


---- presetstore.pd ---

#N canvas 1343 29 912 912 10;
#X text 80 917 Hint: get creative with the [OSCroute] external!;
#X obj 106 27 bng 14 250 50 0 \$0-save empty save 17 7 0 8 -128992
-66577 -1;
#X obj 58 27 bng 14 250 50 0 \$0-load empty load 17 7 0 8 -128992 -1
-1;
#X obj 18 102 r \$0-load;
#X text 164 20 This abstraction and all the other sssad state saving
stuff is due to the genius of Frank Barknecht. Any mistakes are purely
my own.;
#X text 84 104 if the load button is pressed;
#X obj 477 579 r SSSAD_ADMIN;
#X obj 477 634 route persist;
#X obj 477 604 list trim;
#X obj 477 690 list trim;
#X msg 119 448 save;
#X obj 132 732 s SSSAD_ADMIN;
#X obj 477 666 list prepend add SSSAD;
#X msg 154 692 set \, addsemi;
#X msg 110 760 add SSSAD_ADMIN set;
#X obj 119 424 r \$0-save;
#X obj 267 488 s SSSAD_SAVE;
#X obj 6 27 nbx 5 14 0 1e+37 0 0 empty empty preset 0 -6 0 8 -262144
-1 -1 0 256;
#X msg 450 191 set \, addsemi;
#X obj 27 161 t b b b;
#X obj 67 187 float;
#X obj 119 471 t b a b b b b b;
#X obj 70 213 makefilename presetstore%d;
#X text 382 844 <- This will change once Pd 0.4 gets popular!;
#X obj 390 291 f;
#X msg 264 516 clear;
#N canvas 0 0 826 516 patch_send 0;
#X msg 364 176 set \, addsemi;
#X msg 87 408 \; pd-presetstore2 connect 0 0 1 0;
#X obj 86 21 inlet;
#X obj 56 68 t b a b b;
#X obj 407 33 inlet;
#X obj 114 233 list prepend add2;
#X obj 130 271 list trim;
#X obj 139 157 makefilename presetstore%d;
#X obj 139 181 makefilename pd-%s;
#X obj 139 133 f 0;
#X msg 163 204 add2 \$1;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 5 0;
#X connect 3 2 9 0;
#X connect 3 3 0 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X restore 212 655 pd patch_send;
#N canvas 0 0 826 516 msg_data 0;
#X msg 364 176 set \, addsemi;
#X msg 87 408 \; presetstore2 add SSSAD_ADMIN set;
#X obj 143 136 float;
#X obj 145 168 makefilename presetstore%d;
#X obj 86 21 inlet;
#X obj 56 68 t b a b b;
#X obj 407 33 inlet;
#X obj 114 233 list prepend add2;
#X obj 113 266 list trim;
#X msg 145 192 add2 \$1;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 5 1 7 0;
#X connect 5 2 2 0;
#X connect 5 3 0 0;
#X connect 6 0 2 1;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X restore 296 844 pd msg_data;
#X obj 203 518 float;
#X obj 206 544 makefilename presetstore%d;
#X msg 181 607 msg 10 30 \, connect 0 0 1 0;
#X msg 207 570 obj 10 10 r \$1;
#X obj 48 529 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 37 289 \; presetstore0 bang;
#X msg 76 244 add2 \$1 bang;
#X connect 3 0 19 0;
#X connect 6 0 8 0;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 9 0 27 0;
#X connect 10 0 21 0;
#X connect 12 0 9 0;
#X connect 13 0 27 0;
#X connect 14 0 27 0;
#X connect 15 0 10 0;
#X connect 17 0 24 0;
#X connect 18 0 33 0;
#X connect 19 0 33 0;
#X connect 19 1 20 0;
#X connect 19 2 18 0;
#X connect 20 0 22 0;
#X connect 21 0 14 0;
#X connect 21 1 11 0;
#X connect 21 2 13 0;
#X connect 21 3 30 0;
#X connect 21 4 28 0;
#X connect 21 5 25 0;
#X connect 21 6 16 0;
#X connect 22 0 34 0;
#X connect 24 0 20 1;
#X connect 24 0 27 1;
#X connect 24 0 26 1;
#X connect 24 0 28 1;
#X connect 25 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 31 0;
#X connect 30 0 26 0;
#X connect 31 0 26 0;
#X connect 32 0 28 0;
#X connect 34 0 33 0;
#X coords 0 -1 1 1 150 45 1 0 0;

---- presetstore-help.pd ----

#N canvas 432 426 697 443 10;
#N canvas 30 632 1126 304 presetstore0 0;
#X obj 10 10 r presetstore0;
#X msg 10 30 \; SSSAD test/pulsewidth 2 \; SSSAD test/wave 1 \; SSSAD_ADMIN
set \;;
#X connect 0 0 1 0;
#X restore 456 82 pd presetstore0;
#N canvas 0 0 450 300 presetstore1 0;
#X obj 10 10 r presetstore1;
#X msg 10 30 \; SSSAD test/pulsewidth 93 \; SSSAD test/wave 0 \; SSSAD_ADMIN
set \;;
#X connect 0 0 1 0;
#X restore 456 104 pd presetstore1;
#N canvas 0 0 450 300 presetstore2 0;
#X obj 10 10 r presetstore2;
#X msg 10 30 \; SSSAD test/pulsewidth 1 \; SSSAD test/wave 0 \; SSSAD_ADMIN
set \;;
#X connect 0 0 1 0;
#X restore 456 126 pd presetstore2;
#X obj 456 166 sssad/presetstore;
#X obj 494 292 r SSSAD;
#X obj 504 322 print;
#X connect 4 0 5 0;