Symbols and Singletons [was: Re: [PD] Segmented Patch Chords? PVar / PV?]

[Frank Barknecht]

Hallo,
Frank Barknecht hat gesagt: // Frank Barknecht wrote:

> Attached is a version with slightly different behaviour. 

And now it became even simpler.

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#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.st.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.st.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.st.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.st.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;