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;