From a4e787cd220561abb95fa03438b8e09333e38b76 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Thu, 15 Jun 2006 02:09:22 +0000 Subject: 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 --- segment.pd | 156 ++++++++++--------------------------------------------------- 1 file changed, 24 insertions(+), 132 deletions(-) (limited to 'segment.pd') 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; -- cgit v1.2.1