Now this works without error messages, combining some of the approaches in this thread.
ingo On 05/15/2018 03:47 PM, Ingo Stock wrote: > 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 >> >> >> >> _______________________________________________ >> [email protected] mailing list >> UNSUBSCRIBE and account-management -> >> https://lists.puredata.info/listinfo/pd-list >> >> >> >> _______________________________________________ >> [email protected] mailing list >> UNSUBSCRIBE and account-management -> >> https://lists.puredata.info/listinfo/pd-list
#N canvas 172 88 575 641 12; #X msg 37 103 5; #X obj 37 149 until; #X obj 37 172 f; #X obj 67 172 + 1; #X msg 37 195 symbol snd\$1; #X obj 37 218 text set \$0-arraynames 1e+06; #X obj 97 172 mod; #X obj 37 126 t f f b; #X msg 139 149 clear; #N canvas 749 289 231 201 \$0-arrays 1; #X obj 30 30 array define \$0-snd0; #X obj 30 53 array define \$0-snd1; #X obj 30 76 array define \$0-snd2; #X obj 30 99 array define \$0-snd3; #X obj 30 122 array define \$0-snd4; #X restore 37 34 pd \$0-arrays; #X msg 139 356 clear; #X obj 139 379 s pd-\$0-arrays; #X obj 37 310 text size \$0-arraynames; #X obj 37 356 until; #X obj 37 379 f; #X obj 67 379 + 1; #X obj 97 379 mod; #X obj 107 425 text get \$0-arraynames; #X obj 37 290 bng 15 250 50 0 empty empty create_arrays 17 7 0 10 -262144 -1 -1; #X obj 37 333 t f f b; #X obj 37 563 s pd-\$0-arrays; #X obj 37 448 + 30; #X obj 37 425 * 23; #X obj 37 83 bng 15 250 50 0 empty empty write_to_text 17 7 0 10 -262144 -1 -1; #X obj 139 172 text define -k \$0-arraynames; #A set snd0 \; snd1 \; snd2 \; snd3 \; snd4 \;; #X msg 74 425 0; #X msg 37 540 obj 30 \$1 array define $\$2-snd4; #X obj 254 327 loadbang; #X msg 107 517 set obj 30 \, adddollar 1 \, add2 array define \, adddollsym \$1; #X obj 37 471 pack f f; #X obj 37 402 t f b f; #X obj 107 448 list fromsymbol; #X obj 107 494 list tosymbol; #X obj 107 471 list prepend 36 50 45; #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 30 0; #X connect 15 0 16 0; #X connect 16 0 14 1; #X connect 17 0 31 0; #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 29 0; #X connect 22 0 21 0; #X connect 23 0 0 0; #X connect 25 0 29 1; #X connect 26 0 20 0; #X connect 27 0 10 0; #X connect 28 0 26 0; #X connect 29 0 26 0; #X connect 30 0 22 0; #X connect 30 1 25 0; #X connect 30 2 17 0; #X connect 31 0 33 0; #X connect 32 0 28 0; #X connect 33 0 32 0;
signature.asc
Description: OpenPGP digital signature
_______________________________________________ [email protected] mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/listinfo/pd-list
