From 38ca88ff838c3e7e3fc90c6023ae2bd377b5ba41 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Sat, 23 Feb 2008 00:50:41 +0000 Subject: removing untilb since it can be replicated by t b b added a settable deeprouteOSC for use in semento first draft of list-range, meant to recreate python's range() fxn argh! spent all morning making list-zip and managed to delete it while trying to prepare it for checkin. sigh. SOSCroute now uses routeOSC, heh ds-select and ds-dump are datastructure manipulation utilities, handy! svn path=/trunk/abstractions/senderfruit/; revision=9506 --- core/list-range.pd | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 core/list-range.pd (limited to 'core/list-range.pd') diff --git a/core/list-range.pd b/core/list-range.pd new file mode 100644 index 0000000..aea32cc --- /dev/null +++ b/core/list-range.pd @@ -0,0 +1,63 @@ +#N canvas 614 86 526 410 10; +#X obj 50 12 inlet; +#X obj 71 243 until; +#X obj 71 208 \$1; +#X obj 96 284 + 1; +#X obj 71 320 list-extend; +#X obj 50 386 outlet; +#X obj 332 274 \$3; +#X obj 293 291 div; +#X obj 293 250 -; +#X obj 308 220 \$1; +#X obj 293 195 t a b b; +#X obj 95 208 r \$0elements; +#X obj 293 324 s \$0elements; +#X obj 293 134 loadbang; +#X obj 293 162 list-onearg \$2; +#X obj 120 284 list-onearg \$3; +#X obj 71 284 f 0; +#X obj 176 162 list-onearg \$2; +#X obj 176 139 loadbang; +#X obj 108 243 f; +#X obj 176 185 b; +#X obj 134 243 b; +#X obj 176 208 \$1; +#X obj 50 166 t b b b b; +#X obj 50 351 list; +#X obj 143 267 loadbang; +#X obj 50 33 route bang; +#X obj 107 58 t a a; +#X obj 134 78 list length; +#X connect 0 0 26 0; +#X connect 1 0 16 0; +#X connect 2 0 1 0; +#X connect 3 0 16 1; +#X connect 4 0 24 1; +#X connect 6 0 7 1; +#X connect 7 0 12 0; +#X connect 8 0 7 0; +#X connect 9 0 8 1; +#X connect 10 0 8 0; +#X connect 10 1 9 0; +#X connect 10 2 6 0; +#X connect 11 0 2 1; +#X connect 13 0 14 0; +#X connect 14 0 10 0; +#X connect 15 0 3 1; +#X connect 16 0 3 0; +#X connect 16 0 4 0; +#X connect 17 0 20 0; +#X connect 18 0 17 0; +#X connect 19 0 16 1; +#X connect 20 0 22 0; +#X connect 21 0 4 1; +#X connect 22 0 19 1; +#X connect 23 0 24 0; +#X connect 23 1 2 0; +#X connect 23 2 19 0; +#X connect 23 3 21 0; +#X connect 24 0 5 0; +#X connect 25 0 15 0; +#X connect 26 0 23 0; +#X connect 26 1 27 0; +#X connect 27 1 28 0; -- cgit v1.2.1