From 38ca88ff838c3e7e3fc90c6023ae2bd377b5ba41 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
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/SOSCroute.pd     | 52 +++++++++++++++++++++++-------------------
 core/ds-dump.pd       | 22 ++++++++++++++++++
 core/ds-select.pd     | 22 ++++++++++++++++++
 core/list-range.pd    | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++
 core/sdeeprouteOSC.pd | 54 +++++++++++++++++++++++++++++++++++++++++++
 core/untilb-help.pd   | 13 -----------
 core/untilb.pd        | 27 ----------------------
 7 files changed, 190 insertions(+), 63 deletions(-)
 create mode 100644 core/ds-dump.pd
 create mode 100644 core/ds-select.pd
 create mode 100644 core/list-range.pd
 create mode 100644 core/sdeeprouteOSC.pd
 delete mode 100644 core/untilb-help.pd
 delete mode 100644 core/untilb.pd

diff --git a/core/SOSCroute.pd b/core/SOSCroute.pd
index e9279eb..db4ac79 100644
--- a/core/SOSCroute.pd
+++ b/core/SOSCroute.pd
@@ -4,10 +4,15 @@
 #X obj 43 33 inlet;
 #X obj 43 67 s \$0-inlet;
 #X obj 363 424 s pd-\$0OSCroute;
-#N canvas 279 88 285 163 \$0OSCroute 1;
+#N canvas 279 88 285 163 \$0OSCroute 0;
+#X obj 20 20 r 39957-inlet;
+#X obj 20 50 deeprouteOSC /chptrA/interp-constrained-to-0-1;
+#X obj 20 80 s 39957-outlet1;
+#X obj 160 100 s 39957-outlet2;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
 #X restore 45 240 pd \$0OSCroute;
 #X obj 37 442 outlet;
-#X msg 284 234 obj 20 50 OSCroute \$1;
 #X msg 301 186 obj 20 20 r \$1-inlet;
 #X msg 319 134 clear;
 #X obj 233 45 list append \$1;
@@ -29,29 +34,30 @@
 #X msg 485 111 Sorry - SOSCroute currently only supports one argument!
 ;
 #X obj 233 12 initbang;
-#X connect 0 0 8 0;
-#X connect 1 0 14 0;
+#X msg 284 234 obj 20 50 routeOSC \$1;
+#X connect 0 0 7 0;
+#X connect 1 0 13 0;
 #X connect 2 0 3 0;
 #X connect 7 0 4 0;
 #X connect 8 0 4 0;
-#X connect 9 0 4 0;
-#X connect 10 0 13 0;
+#X connect 9 0 12 0;
+#X connect 10 0 11 0;
 #X connect 11 0 12 0;
-#X connect 12 0 13 0;
-#X connect 13 0 18 0;
-#X connect 13 1 19 0;
-#X connect 13 2 1 0;
-#X connect 13 3 7 0;
-#X connect 13 4 0 0;
-#X connect 13 5 9 0;
-#X connect 14 0 4 0;
-#X connect 15 0 6 0;
-#X connect 16 0 17 0;
-#X connect 18 0 4 0;
-#X connect 19 0 20 0;
-#X connect 20 0 4 0;
+#X connect 12 0 17 0;
+#X connect 12 1 18 0;
+#X connect 12 2 1 0;
+#X connect 12 3 26 0;
+#X connect 12 4 0 0;
+#X connect 12 5 8 0;
+#X connect 13 0 4 0;
+#X connect 14 0 6 0;
+#X connect 15 0 16 0;
+#X connect 17 0 4 0;
+#X connect 18 0 19 0;
+#X connect 19 0 4 0;
+#X connect 20 0 21 0;
 #X connect 21 0 22 0;
-#X connect 22 0 23 0;
-#X connect 23 1 25 0;
-#X connect 25 0 24 0;
-#X connect 26 0 10 0;
+#X connect 22 1 24 0;
+#X connect 24 0 23 0;
+#X connect 25 0 9 0;
+#X connect 26 0 4 0;
diff --git a/core/ds-dump.pd b/core/ds-dump.pd
new file mode 100644
index 0000000..d63eb0c
--- /dev/null
+++ b/core/ds-dump.pd
@@ -0,0 +1,22 @@
+#N canvas 0 22 450 300 10;
+#X obj 182 135 until;
+#X obj 182 179 pointer;
+#X msg 182 156 next;
+#X obj 56 90 list append \$1;
+#X obj 56 113 prepent traverse;
+#X obj 56 53 loadbang;
+#X obj 181 22 inlet;
+#X obj 182 242 outlet;
+#X obj 336 242 outlet;
+#X obj 317 40 t b b b;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 1 1 9 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 5 0 3 0;
+#X connect 6 0 0 0;
+#X connect 9 0 3 0;
+#X connect 9 1 8 0;
+#X connect 9 2 0 1;
diff --git a/core/ds-select.pd b/core/ds-select.pd
new file mode 100644
index 0000000..dd6c7b5
--- /dev/null
+++ b/core/ds-select.pd
@@ -0,0 +1,22 @@
+#N canvas 319 364 368 277 10;
+#X obj 145 119 get \$1 \$2;
+#X obj 145 162 sel \$3;
+#X obj 278 31 inlet;
+#X obj 73 238 outlet;
+#X obj 73 119 pointer;
+#X obj 145 31 inlet;
+#X obj 145 55 t a a;
+#X obj 243 238 outlet;
+#X obj 178 185 t b;
+#X obj 243 119 pointer;
+#X connect 0 0 1 0;
+#X connect 1 0 4 0;
+#X connect 1 1 8 0;
+#X connect 2 0 1 1;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 6 1 4 1;
+#X connect 6 1 9 1;
+#X connect 8 0 9 0;
+#X connect 9 0 7 0;
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;
diff --git a/core/sdeeprouteOSC.pd b/core/sdeeprouteOSC.pd
new file mode 100644
index 0000000..912c65e
--- /dev/null
+++ b/core/sdeeprouteOSC.pd
@@ -0,0 +1,54 @@
+#N canvas 0 22 961 518 10;
+#X obj 301 159 \$0;
+#X obj 267 261 \$0;
+#X obj 43 33 inlet;
+#X obj 43 67 s \$0-inlet;
+#X obj 37 442 outlet;
+#X msg 301 186 obj 20 20 r \$1-inlet;
+#X msg 319 134 clear;
+#X obj 233 45 list append \$1;
+#X obj 391 34 inlet;
+#X obj 391 60 list;
+#X obj 233 77 t b b b a b b;
+#X msg 267 287 obj 20 80 s \$1-outlet1;
+#X obj 37 414 r \$0-outlet1;
+#X obj 487 35 loadbang;
+#X obj 487 59 list append \$2;
+#X obj 487 81 sel 0;
+#X obj 233 12 initbang;
+#X msg 233 376 connect 0 0 1 0 \, connect 1 0 2 0;
+#X msg 284 234 obj 20 50 deeprouteOSC \$1;
+#X msg 485 111 Sorry - sdeeprouteOSC currently only supports one argument!
+;
+#X obj 485 144 print sdeeprouteOSC;
+#N canvas 279 88 285 163 \$0deeprouteOSC 0;
+#X obj 20 20 r 39957-inlet;
+#X obj 20 50 deeprouteOSC /chptrA/interp-constrained-to-0-1;
+#X obj 20 80 s 39957-outlet1;
+#X obj 160 100 s 39957-outlet2;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X restore 45 240 pd \$0deeprouteOSC;
+#X obj 363 424 s pd-\$0deeprouteOSC;
+#X connect 0 0 5 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 5 0 22 0;
+#X connect 6 0 22 0;
+#X connect 7 0 10 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 17 0;
+#X connect 10 2 1 0;
+#X connect 10 3 18 0;
+#X connect 10 4 0 0;
+#X connect 10 5 6 0;
+#X connect 11 0 22 0;
+#X connect 12 0 4 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 1 19 0;
+#X connect 16 0 7 0;
+#X connect 17 0 22 0;
+#X connect 18 0 22 0;
+#X connect 19 0 20 0;
diff --git a/core/untilb-help.pd b/core/untilb-help.pd
deleted file mode 100644
index 959995f..0000000
--- a/core/untilb-help.pd
+++ /dev/null
@@ -1,13 +0,0 @@
-#N canvas 267 484 347 246 10;
-#X obj 18 113 untilb;
-#X msg 18 51 10;
-#X obj 51 172 print DONE?;
-#X msg 51 143 Done.;
-#X text 48 88 Right inlet is the same as regular until;
-#X obj 18 204 print BangingAlong;
-#X text 11 6 untilb - A version of until that outputs a bang upon completion
-;
-#X connect 0 0 5 0;
-#X connect 0 1 3 0;
-#X connect 1 0 0 0;
-#X connect 3 0 2 0;
diff --git a/core/untilb.pd b/core/untilb.pd
deleted file mode 100644
index d03365f..0000000
--- a/core/untilb.pd
+++ /dev/null
@@ -1,27 +0,0 @@
-#N canvas 735 427 250 282 10;
-#X obj 138 204 f;
-#X obj 166 204 + 1;
-#X obj 28 152 t b b;
-#X obj 110 204 sel;
-#X msg 153 150 0;
-#X obj 28 63 t a a b;
-#X obj 125 150 - 1;
-#X obj 55 238 outlet;
-#X obj 110 238 outlet;
-#X obj 28 122 until;
-#X obj 170 22 inlet;
-#X obj 28 23 inlet;
-#X connect 0 0 1 0;
-#X connect 0 0 3 0;
-#X connect 1 0 0 1;
-#X connect 2 0 0 0;
-#X connect 2 1 7 0;
-#X connect 3 0 8 0;
-#X connect 4 0 0 1;
-#X connect 5 0 9 0;
-#X connect 5 1 6 0;
-#X connect 5 2 4 0;
-#X connect 6 0 3 1;
-#X connect 9 0 2 0;
-#X connect 10 0 9 1;
-#X connect 11 0 5 0;
-- 
cgit v1.2.1