From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 10 Jul 2007 07:47:46 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r7969, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=7970 --- sssad/_sssad/singleton.pd | 121 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 121 insertions(+) create mode 100644 sssad/_sssad/singleton.pd (limited to 'sssad/_sssad/singleton.pd') diff --git a/sssad/_sssad/singleton.pd b/sssad/_sssad/singleton.pd new file mode 100644 index 0000000..6a78865 --- /dev/null +++ b/sssad/_sssad/singleton.pd @@ -0,0 +1,121 @@ +#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; -- cgit v1.2.1