implemented using 2 element lists, first the segment number, next the value; this seems to work better and makes the patches simple

svn path=/trunk/externals/mapping/; revision=5239

1 files changed, 24 insertions, 132 deletions

diff --git a/segment.pd b/segment.pd
index 7a81b36..a09c8ff 100644
--- a/segment.pd
+++ b/segment.pd
@@ -1,133 +1,25 @@
-#N canvas 328 208 865 565 10;
-#X obj 8 28 inlet;
-#X obj 6 4 namecanvas \$0-segment;
-#X obj 360 290 pack float float;
-#X obj 467 270 *;
-#X msg 459 223 1;
-#X obj 360 311 trigger list list;
-#X obj 274 185 +;
-#X msg 274 165 1;
-#X msg 305 165 0;
-#X obj 274 145 until;
-#X obj 167 4 inlet;
-#X obj 360 262 * 125;
-#X obj 360 240 - 1;
-#N canvas 407 40 498 348 clear 0;
-#X obj 21 28 inlet;
-#X text 72 28 do it bang;
-#X obj 21 71 trigger bang bang bang bang;
-#X obj 26 260 outlet;
-#X text 80 259 to namecanvas [send];
-#X msg 306 203 vis 1 \, editmode 1;
-#X msg 153 167 cut;
-#X msg 216 157 mouse 5 480 0 0 \, mouseup 2000 435 0;
-#X msg 30 165 editmode 0;
-#X connect 0 0 2 0;
-#X connect 2 0 8 0;
-#X connect 2 1 6 0;
-#X connect 2 2 7 0;
-#X connect 2 3 5 0;
-#X connect 5 0 3 0;
-#X connect 6 0 3 0;
-#X connect 7 0 3 0;
-#X connect 8 0 3 0;
-#X restore 287 65 pd clear dynamic objects;
-#X obj 320 401 send \$0-segment;
-#X obj 287 84 send \$0-segment;
-#X obj 167 46 trigger float bang;
-#X obj 167 25 route float;
-#X text -3 416 -----------------------------------------------------------
-;
-#X text -3 481 -----------------------------------------------------------
-keep the above area clear for automatic editing;
-#X text 411 416 -----------------------------------------------------------
-;
-#X text 412 481 -----------------------------------------------------------
-;
-#X obj 304 185 float;
-#X msg 333 334 obj \$1 460 outlet;
-#X msg 473 333 obj \$1 440 disjoin \$2;
-#N canvas 0 22 567 496 connect 0;
-#X obj 290 16 inlet;
-#X obj 234 398 outlet;
-#X obj 339 238 pack float float;
-#X msg 338 262 connect \$1 0 \$2 0;
-#X obj 446 218 + 1;
-#X obj 289 181 trigger float float;
-#X obj 289 134 * 2;
-#X obj 199 239 pack float float;
-#X msg 199 263 connect \$2 1 \$1 0;
-#X obj 306 218 - 2;
-#X text 117 119 object count;
-#X obj 289 161 +;
-#X obj 141 218 select 0;
-#X msg 60 263 connect 0 0 \$1 0;
-#X msg 60 243 32;
-#X msg 61 199 set \$1;
-#X obj 193 158 + 2;
-#X obj 208 95 loadbang;
-#X msg 208 118 30;
-#X connect 0 0 6 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
-#X connect 4 0 2 1;
-#X connect 5 0 2 0;
-#X connect 5 0 12 0;
-#X connect 5 1 4 0;
-#X connect 5 1 9 0;
-#X connect 6 0 11 0;
+#N canvas 310 147 544 471 10;
+#X obj 21 15 inlet;
+#X obj 57 430 outlet;
+#X obj 172 80 purepd/float_argument \$1 1;
+#X obj 172 14 inlet;
+#X obj 205 43 loadbang;
+#X obj 58 162 *;
+#X obj 58 296 pack float float;
+#X obj 58 188 trigger bang float float;
+#X obj 58 277 float;
+#X obj 221 213 int;
+#X obj 165 276 -;
+#X connect 0 0 5 0;
+#X connect 2 0 5 1;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X connect 5 0 7 0;
+#X connect 6 0 1 0;
 #X connect 7 0 8 0;
-#X connect 8 0 1 0;
-#X connect 9 0 7 1;
-#X connect 11 0 5 0;
-#X connect 12 0 14 0;
-#X connect 12 1 7 0;
-#X connect 13 0 1 0;
-#X connect 14 0 13 0;
-#X connect 15 0 14 0;
-#X connect 16 0 12 1;
-#X connect 16 0 15 0;
-#X connect 17 0 18 0;
-#X connect 18 0 11 1;
-#X connect 18 0 16 0;
-#X restore 185 290 pd connect messages;
-#X obj 484 250 /;
-#X obj 521 223 expr $f2 - $f1 + 1;
-#X obj 274 204 trigger float float float bang float;
-#X obj 84 82 float_argument \$1;
-#X msg 299 45 bang;
-#X obj 274 124 trigger float bang float;
-#X connect 2 0 5 0;
-#X connect 3 0 2 1;
-#X connect 4 0 26 0;
-#X connect 5 0 23 0;
-#X connect 5 1 24 0;
-#X connect 6 0 22 0;
-#X connect 6 0 28 0;
-#X connect 7 0 6 0;
-#X connect 8 0 22 0;
-#X connect 9 0 7 0;
-#X connect 10 0 17 0;
-#X connect 11 0 2 0;
-#X connect 12 0 11 0;
-#X connect 13 0 15 0;
-#X connect 16 0 31 0;
-#X connect 16 1 13 0;
-#X connect 17 0 16 0;
-#X connect 22 0 6 1;
-#X connect 23 0 14 0;
-#X connect 24 0 14 0;
-#X connect 25 0 14 0;
-#X connect 26 0 3 1;
-#X connect 27 0 26 1;
-#X connect 28 0 25 0;
-#X connect 28 1 12 0;
-#X connect 28 2 3 0;
-#X connect 28 3 4 0;
-#X connect 28 4 27 0;
-#X connect 29 0 31 0;
-#X connect 30 0 13 0;
-#X connect 30 0 8 0;
-#X connect 31 0 9 0;
-#X connect 31 1 8 0;
-#X connect 31 2 27 1;
+#X connect 7 1 10 0;
+#X connect 7 2 9 0;
+#X connect 8 0 6 0;
+#X connect 9 0 10 1;
+#X connect 9 0 8 1;
+#X connect 10 0 6 1;