But it works by creating the message with set and changing messages! [set obj 30 30 array define, adddollsym $2-$3( --> [( does the trick.
See also attached working demo. On 05/15/2018 03:26 PM, Roman Haefeli wrote: > On Tue, 2018-05-15 at 14:09 +0200, Christof Ressi wrote: >>> [obj 20 20 array define $$1-snd0] >> >> this only works as long as you don't save and reopen the patch, where >> "$$1" will become "$\$1" (which is resolved to "$\\$1" instead of >> "\\$1"). > > I see. Thanks for pointing it out. > > Roman > > > > _______________________________________________ > Pd-list@lists.iem.at mailing list > UNSUBSCRIBE and account-management -> > https://lists.puredata.info/listinfo/pd-list >
#N canvas 181 88 734 679 12; #X msg 39 116 5; #X obj 39 162 until; #X obj 39 185 f; #X obj 69 185 + 1; #X msg 39 208 symbol snd\$1; #X obj 39 231 text set \$0-arraynames 1e+06; #X obj 99 185 mod; #X obj 39 139 t f f b; #X msg 141 162 clear; #N canvas 932 380 231 201 \$0-arrays 1; #X restore 39 47 pd \$0-arrays; #X msg 141 369 clear; #X obj 141 392 s pd-\$0-arrays; #X obj 39 323 text size \$0-arraynames; #X obj 39 369 until; #X obj 39 392 f; #X obj 69 392 + 1; #X obj 99 392 mod; #X obj 109 438 text get \$0-arraynames; #X obj 39 303 bng 15 250 50 0 empty empty create_arrays 17 7 0 10 -262144 -1 -1; #X obj 39 346 t f f b; #X obj 39 530 s pd-\$0-arrays; #X obj 39 461 + 30; #X obj 39 438 * 23; #X obj 39 96 bng 15 250 50 0 empty empty write_to_text 17 7 0 10 -262144 -1 -1; #X obj 141 185 text define -k \$0-arraynames; #A set snd0 \; snd1 \; snd2 \; snd3 \; snd4 \;; #X msg 76 438 0; #X obj 39 484 pack f f s; #X obj 39 415 t f b f b; #X msg 39 507; #X msg 123 484 set obj 30 \, adddollar 1 \, add2 array define \, adddollsym \$2-\$3; #X obj 256 340 loadbang; #X msg 39 589 set obj 30 30 array define \, adddollsym \$2-\$3; #X msg 39 612; #X msg 256 363 set; #X connect 0 0 7 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 2 0 4 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 6 0 2 1; #X connect 7 0 1 0; #X connect 7 1 6 1; #X connect 7 2 8 0; #X connect 8 0 24 0; #X connect 10 0 11 0; #X connect 12 0 19 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 14 0 27 0; #X connect 15 0 16 0; #X connect 16 0 14 1; #X connect 17 0 26 2; #X connect 18 0 12 0; #X connect 19 0 13 0; #X connect 19 1 16 1; #X connect 19 2 10 0; #X connect 21 0 26 0; #X connect 22 0 21 0; #X connect 23 0 0 0; #X connect 25 0 26 1; #X connect 26 0 28 0; #X connect 27 0 22 0; #X connect 27 1 25 0; #X connect 27 2 17 0; #X connect 27 3 29 0; #X connect 28 0 20 0; #X connect 29 0 28 0; #X connect 30 0 10 0; #X connect 30 0 33 0; #X connect 31 0 32 0; #X connect 33 0 28 0;
signature.asc
Description: OpenPGP digital signature
_______________________________________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/listinfo/pd-list
