diff options
Diffstat (limited to 'sfruit/list-range.pd')
-rw-r--r-- | sfruit/list-range.pd | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/sfruit/list-range.pd b/sfruit/list-range.pd new file mode 100644 index 0000000..2ca09ed --- /dev/null +++ b/sfruit/list-range.pd @@ -0,0 +1,159 @@ +#N canvas 740 166 285 632 10; +#X declare -lib list-abs; +#X obj 129 52 t b b b; +#X obj 129 168 list-extend; +#X obj 129 28 loadbang; +#X obj 23 37 inlet; +#N canvas 0 22 645 437 conformList 0; +#X obj 100 17 inlet; +#X obj 100 47 t a a; +#X obj 100 165 list; +#X obj 100 79 list length; +#X obj 100 105 sel 1 2 3; +#X obj 273 165 list; +#X obj 491 165 list; +#X obj 273 240 -; +#X obj 273 219 unpack f f; +#X obj 273 192 t a a; +#X obj 273 289 sel 0 1; +#X obj 273 317 list; +#X obj 363 317 list; +#X obj 273 347 list append 1; +#X obj 363 347 list append -1; +#X obj 273 263 > 0; +#X obj 100 194 t a a; +#X obj 35 298 list; +#X obj 127 298 list; +#X obj 100 243 sel 0 1; +#X obj 100 219 > 0; +#X obj 127 323 list prepend 0; +#X obj 127 349 list append 1; +#X obj 273 395 outlet; +#X text 259 57 3 elements: no change; +#X text 259 37 2 elements: count from el1 to el2; +#X text 260 8 1 element: negative \, count down from 0 positive \, +count up from zero.; +#X obj 35 348 list append -1; +#X obj 35 323 list prepend 0; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 1 1 2 1; +#X connect 1 1 5 1; +#X connect 1 1 6 1; +#X connect 2 0 16 0; +#X connect 3 0 4 0; +#X connect 4 0 2 0; +#X connect 4 1 5 0; +#X connect 4 2 6 0; +#X connect 5 0 9 0; +#X connect 6 0 23 0; +#X connect 7 0 15 0; +#X connect 8 0 7 0; +#X connect 8 1 7 1; +#X connect 9 0 8 0; +#X connect 9 1 11 1; +#X connect 9 1 12 1; +#X connect 10 0 11 0; +#X connect 10 1 12 0; +#X connect 11 0 13 0; +#X connect 12 0 14 0; +#X connect 13 0 23 0; +#X connect 14 0 23 0; +#X connect 15 0 10 0; +#X connect 16 0 20 0; +#X connect 16 1 18 1; +#X connect 16 1 17 1; +#X connect 17 0 28 0; +#X connect 18 0 21 0; +#X connect 19 0 17 0; +#X connect 19 1 18 0; +#X connect 20 0 19 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 27 0 23 0; +#X connect 28 0 27 0; +#X restore 23 215 pd conformList; +#X obj 50 475 until; +#X obj 23 414 f; +#X obj 65 449 unpack f f f; +#X obj 50 509 f; +#X obj 81 509 +; +#X obj 50 541 list-extend; +#X obj 23 570 list; +#X obj 23 449 t b a; +#X obj 23 596 outlet; +#X obj 23 241 t b a a b; +#N canvas 0 22 450 300 calcElementCount 0; +#X obj 107 276 outlet; +#X obj 107 21 inlet; +#X obj 107 51 unpack f f f; +#X obj 107 77 -; +#X obj 107 102 abs; +#X obj 176 102 abs; +#X obj 107 127 pack f f; +#X obj 134 175 div; +#X obj 107 175 mod; +#X obj 107 150 t a a; +#X obj 107 199 sel 0; +#X obj 107 226 f; +#X obj 145 226 f; +#X obj 145 199 b; +#X obj 145 247 + 1; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 3 1; +#X connect 2 2 5 0; +#X connect 3 0 4 0; +#X connect 4 0 6 0; +#X connect 5 0 6 1; +#X connect 6 0 9 0; +#X connect 7 0 11 1; +#X connect 7 0 12 1; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 9 1 7 0; +#X connect 10 0 11 0; +#X connect 10 1 13 0; +#X connect 11 0 0 0; +#X connect 12 0 14 0; +#X connect 13 0 12 0; +#X connect 14 0 0 0; +#X restore 57 283 pd calcElementCount; +#X obj 23 88 route bang; +#X obj 50 143 t b a; +#X obj 23 190 list; +#X obj 148 113 list-onearg \$2; +#X obj 129 143 list-onearg \$3; +#X obj 168 83 \$1; +#X obj 152 246 import list-abs; +#X connect 0 0 20 0; +#X connect 0 1 19 0; +#X connect 0 2 21 0; +#X connect 1 0 18 1; +#X connect 2 0 0 0; +#X connect 3 0 16 0; +#X connect 4 0 14 0; +#X connect 5 0 8 0; +#X connect 6 0 12 0; +#X connect 7 0 8 1; +#X connect 7 2 9 1; +#X connect 8 0 9 0; +#X connect 8 0 10 0; +#X connect 9 0 8 1; +#X connect 10 0 11 1; +#X connect 11 0 13 0; +#X connect 12 0 11 0; +#X connect 12 1 5 0; +#X connect 14 0 6 0; +#X connect 14 1 7 0; +#X connect 14 2 15 0; +#X connect 14 3 10 1; +#X connect 15 0 6 1; +#X connect 16 0 18 0; +#X connect 16 1 17 0; +#X connect 17 0 18 0; +#X connect 17 1 18 1; +#X connect 18 0 4 0; +#X connect 19 0 1 0; +#X connect 20 0 1 0; +#X connect 21 0 1 0; |