Re: break a variable length list at a specific element (Alexandros Drymonitis)
Alexandros Drymonitis <[email protected]>
| Newsgroups | gmane.comp.multimedia.puredata.general |
|---|---|
| Message-ID | <[email protected]> |
My solution is vanilla as list-abs is a collection of vanilla abstractions for manipulating lists. On 9/30/24 16:38, claudio nervi wrote: > If you are in Vanille, the solution in "Vanilla Stile": > > #N canvas 766 214 458 396 12; > #N canvas 224 224 330 295 list 0; > #X obj 96 138 list; > #N canvas 192 192 436 397 list 0; > #X msg 193 264 set; > #X msg 266 278 adddollar \$1; > #X obj 132 41 inlet list; > #X obj 93 352 outlet list reverse; > #X obj 170 106 list length; > #X obj 266 194 f; > #X obj 266 224 - 1; > #X obj 284 157 + 1; > #X obj 152 149 f; > #X obj 152 175 until; > #X obj 132 78 t l b l b; > #X msg 93 312 \$10 \$9 \$8 \$7 \$6 \$5 \$4 \$3 \$2 \$1; > #X connect 0 0 11 0; > #X connect 1 0 11 0; > #X connect 2 0 10 0; > #X connect 4 0 7 0; > #X connect 4 0 8 1; > #X connect 5 0 6 0; > #X connect 6 0 5 1; > #X connect 6 0 1 0; > #X connect 7 0 5 1; > #X connect 8 0 9 0; > #X connect 9 0 5 0; > #X connect 10 0 11 0; > #X connect 10 1 8 0; > #X connect 10 2 4 0; > #X connect 10 3 0 0; > #X connect 11 0 3 0; > #X restore 96 105 pd list reverse; > #X obj 96 175 list split 1; > #X obj 96 63 inlet; > #X obj 96 223 outlet; > #X connect 0 0 2 0; > #X connect 1 0 0 0; > #X connect 2 0 4 0; > #X connect 2 1 0 0; > #X connect 3 0 1 0; > #X restore 86 148 pd list separe; > #N canvas 32 32 450 300 select 0; > #X obj 82 80 t f b; > #X obj 162 129 f; > #X obj 162 162 + 1; > #X msg 293 110 0; > #X obj 82 206 f; > #X obj 82 249 outlet; > #X obj 293 38 inlet reset; > #X text 327 112 reset counter; > #X obj 194 38 inlet index; > #X obj 82 38 inlet element; > #X obj 82 163 select; > #X connect 0 0 10 0; > #X connect 0 1 1 0; > #X connect 1 0 2 0; > #X connect 2 0 1 1; > #X connect 2 0 4 1; > #X connect 3 0 1 1; > #X connect 4 0 5 0; > #X connect 6 0 3 0; > #X connect 8 0 10 1; > #X connect 9 0 0 0; > #X connect 10 0 4 0; > #X restore 86 216 pd select index; > #X floatatom 137 184 5 0 0 1 select\ item - - 0; > #X floatatom 86 245 5 0 0 0 - - - 0; > #X msg 63 61 1 3 5 7 9 1000 2 4 8 6; > #X obj 63 107 t l l b; > #N canvas 128 128 393 350 remove 0; > #X obj 66 198 list split; > #X obj 234 89 - 1; > #X obj 99 228 list split 1; > #X obj 66 160 list; > #X msg 66 133 bang; > #X obj 233 114 t b f; > #X obj 234 55 inlet index; > #X obj 151 56 inlet list; > #X obj 139 268 print x2; > #X obj 66 268 print x1; > #X connect 0 0 9 0; > #X connect 0 1 2 0; > #X connect 1 0 5 0; > #X connect 2 1 8 0; > #X connect 3 0 0 0; > #X connect 4 0 3 0; > #X connect 5 0 4 0; > #X connect 5 1 0 1; > #X connect 6 0 1 0; > #X connect 7 0 3 1; > #X restore 63 292 pd remove and split; > #X connect 0 0 1 0; > #X connect 1 0 3 0; > #X connect 2 0 1 1; > #X connect 3 0 6 1; > #X connect 4 0 5 0; > #X connect 5 0 6 0; > #X connect 5 1 0 0; > #X connect 5 2 1 2; > > Claudio. > > ps.: > ¿How can I send a Patch in .pd format to the list? > > > > --- > [email protected] - the Pure Data mailinglist > https://lists.iem.at/hyperkitty/list/[email protected]/message/TOO4SMA76EDTFHGRIN7XS4UFPMYNHGW4/ > > To unsubscribe send an email to [email protected] mailing list > UNSUBSCRIBE and account-management -> https://lists.iem.at/ --- [email protected] - the Pure Data mailinglist https://lists.iem.at/hyperkitty/list/[email protected]/message/RGNXWRF757YCIF3IXVNC4RLICSXIJJK3/ To unsubscribe send an email to [email protected] mailing list UNSUBSCRIBE and account-management -> https://lists.iem.at/