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;