abstractions/footils/sssad/_sssad list_argument.pd, NONE, 1.1 singleton-help.pd, NONE, 1.1 singleton.pd, NONE, 1.1 sssad-persistence.pd, NONE, 1.1 - Pd-cvs

6 Apr 2006


      Update of /cvsroot/pure-data/abstractions/footils/sssad/_sssad
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24126/sssad/_sssad
Added Files:
    list_argument.pd singleton-help.pd singleton.pd 
    sssad-persistence.pd 
Log Message:
sssad imported
--- NEW FILE: list_argument.pd ---
#N canvas 160 304 587 350 10;
#X obj 259 234 outlet;
#X text 83 259 If the argument is not equal to 0 , use it. Pd init
arguments to 0 so unused arguments will be 0;
#X obj 143 116 select 0;
#X text 82 296 This is useful to have internals inited , but not reset
if there is no argument specified.;
#X obj 143 190 select 0;
#X text 275 172 if 2nd arg , then use as default value;
#X obj 143 20 inlet;
#X obj 143 96 list append $1;
#X obj 143 169 list append $2;
#X obj 143 55 bang;
#X connect 2 0 8 0;
#X connect 2 1 0 0;
#X connect 4 1 0 0;
#X connect 6 0 9 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 9 0 7 0;
--- NEW FILE: singleton-help.pd ---
#N canvas 415 240 552 487 10;
#X obj 79 44 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 80 137 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 80 230 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 245 43 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 269 139 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 295 230 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 75 339 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 75 385 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 80 117 singleton TABLE_X table x;
#X obj 80 211 singleton TABLE_Y table y 100;
#X obj 269 119 singleton TABLE_X table x;
#X obj 295 211 singleton TABLE_Y table y 100;
#X obj 75 320 singleton LIST list prepend 1 2 3 4 5 6 7 8;
#X obj 75 365 singleton LIST list prepend 1 2 3 4 5 6 7 8;
#X text 85 292 Up to 10 arguments supported;
#X obj 81 85 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 247 84 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 79 24 singleton MUL_A *;
#X obj 245 23 singleton MUL_A *;
#X obj 248 65 singleton MUL_B *;
#X obj 81 65 singleton MUL_B *;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 17 0 0 0;
#X connect 18 0 3 0;
#X connect 19 0 16 0;
#X connect 20 0 15 0;
--- NEW FILE: sssad-persistence.pd ---
#N canvas 411 241 354 407 10;
#X obj 73 159 list;
#X obj 73 219 list prepend $1;
#X obj 73 246 list prepend persist;
#X obj 73 269 s SSSAD_ADMIN;
#X obj 73 67 r SSSAD_ADMIN;
#X obj 73 93 route save;
#X obj 73 115 b;
#X text 51 28 args: SSAD-name $0;
#X obj 96 136 r $2-sssad-data;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 8 0 0 1;
--- NEW FILE: singleton.pd ---
#N canvas 184 74 837 725 10;
#N canvas 0 22 236 173 1047-container 0;
#X restore 227 18 pd $0-container;
#X obj 156 360 f $0;
#X obj 156 380 makefilename pd-%d-container;
#X obj 47 18 loadbang;
#X obj 47 611 outlet;
#X obj 47 132 value $1.SSSAD.req;
#X obj 47 311 select 0;
#X obj 47 157 t f f;
#X obj 77 177 + 1;
#X obj 77 197 value $1.SSSAD.req;
#X obj 47 335 t b b;
#X msg 47 589 1;
#X obj 156 401 t s s;
#X msg 186 423 ; $1 clear;
#X text 378 43 more simple-minded , we would just set $1.SSSAD.req to
"1" instead of incrementing it each time. (however , this way we also
now how many instances of the class we have). and of course we could
use just one [value] - i use 2 for better readability.;
#X obj 324 107 del 0;
#X obj 324 126 value $1.SSSAD.req;
#X floatatom 324 149 5 0 0 0 - - -;
#X text 322 168 wow! the number of instances;
#N canvas 0 0 570 825 1047-arguments 0;
#X obj 36 485 outlet;
#X obj 36 461 r $0-tolist;
#X obj 171 87 t b a;
#X obj 201 109 s $0-tolist;
#X obj 171 156 t b a;
#X obj 201 178 s $0-tolist;
#X obj 171 225 t b a;
#X obj 201 247 s $0-tolist;
#X obj 171 299 t b a;
#X obj 201 321 s $0-tolist;
#X obj 171 64 list_argument $2;
#X obj 171 134 list_argument $3;
#X obj 171 202 list_argument $4;
#X obj 171 276 list_argument $5;
#X obj 171 357 list_argument $6;
#X obj 171 35 inlet;
#X obj 171 381 t b a;
#X obj 201 403 s $0-tolist;
#X obj 171 461 t b a;
#X obj 201 483 s $0-tolist;
#X obj 171 437 list_argument $7;
#X obj 170 537 t b a;
#X obj 200 559 s $0-tolist;
#X obj 169 607 t b a;
#X obj 199 629 s $0-tolist;
#X obj 169 682 t b a;
#X obj 199 704 s $0-tolist;
#X obj 170 513 list_argument $8;
#X obj 169 583 list_argument $9;
#X obj 169 658 list_argument $10;
#X obj 169 757 t b a;
#X obj 199 779 s $0-tolist;
#X obj 169 733 list_argument $11;
#X connect 1 0 0 0;
#X connect 2 0 11 0;
#X connect 2 1 3 0;
#X connect 4 0 12 0;
#X connect 4 1 5 0;
#X connect 6 0 13 0;
#X connect 6 1 7 0;
#X connect 8 0 14 0;
#X connect 8 1 9 0;
#X connect 10 0 2 0;
#X connect 11 0 4 0;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 14 0 16 0;
#X connect 15 0 10 0;
#X connect 16 0 20 0;
#X connect 16 1 17 0;
#X connect 18 0 27 0;
#X connect 18 1 19 0;
#X connect 20 0 18 0;
#X connect 21 0 28 0;
#X connect 21 1 22 0;
#X connect 23 0 29 0;
#X connect 23 1 24 0;
#X connect 25 0 32 0;
#X connect 25 1 26 0;
#X connect 27 0 21 0;
#X connect 28 0 23 0;
#X connect 29 0 25 0;
#X connect 30 1 31 0;
#X connect 32 0 30 0;
#X restore 365 379 pd $0-arguments;
#X msg 365 556;
#X msg 509 377 set , addsemi , adddollar 1 , add2 obj 10 10;
#X obj 47 48 t b b b b b;
#X msg 487 530 set;
#X obj 77 483 symbol;
#X msg 365 404 add2 $1;
#X connect 1 0 2 0;
#X connect 2 0 12 0;
#X connect 3 0 22 0;
#X connect 5 0 7 0;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 10 1 24 0;
#X connect 11 0 4 0;
#X connect 12 0 24 1;
#X connect 12 1 13 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 19 0 25 0;
#X connect 21 0 20 0;
#X connect 22 0 5 0;
#X connect 22 1 1 0;
#X connect 22 2 15 0;
#X connect 22 3 19 0;
#X connect 22 4 21 0;
#X connect 23 0 20 0;
#X connect 24 0 20 0;
#X connect 25 0 20 0;