aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pd/segment.pd132
-rw-r--r--segment.pd132
2 files changed, 264 insertions, 0 deletions
diff --git a/pd/segment.pd b/pd/segment.pd
new file mode 100644
index 0000000..fdf5ccf
--- /dev/null
+++ b/pd/segment.pd
@@ -0,0 +1,132 @@
+#N canvas 328 208 857 557 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 475 224 1;
+#X obj 360 311 trigger list list;
+#X obj 274 178 +;
+#X msg 273 157 1;
+#X msg 304 157 0;
+#X obj 273 135 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 178 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;
+#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 273 114 trigger float bang;
+#X obj 484 250 /;
+#X obj 508 224 expr $f2 - $f1 + 1;
+#X obj 274 198 trigger float float float bang float;
+#X obj 575 75 float_argument \$1;
+#X msg 299 45 bang;
+#X connect 2 0 5 0;
+#X connect 3 0 2 1;
+#X connect 4 0 27 0;
+#X connect 5 0 23 0;
+#X connect 5 1 24 0;
+#X connect 6 0 22 0;
+#X connect 6 0 29 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 26 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 9 0;
+#X connect 26 1 8 0;
+#X connect 27 0 3 1;
+#X connect 28 0 27 1;
+#X connect 29 0 25 0;
+#X connect 29 1 12 0;
+#X connect 29 2 3 0;
+#X connect 29 3 4 0;
+#X connect 29 4 28 0;
+#X connect 30 0 26 0;
+#X connect 30 0 28 1;
+#X connect 31 0 13 0;
diff --git a/segment.pd b/segment.pd
new file mode 100644
index 0000000..fdf5ccf
--- /dev/null
+++ b/segment.pd
@@ -0,0 +1,132 @@
+#N canvas 328 208 857 557 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 475 224 1;
+#X obj 360 311 trigger list list;
+#X obj 274 178 +;
+#X msg 273 157 1;
+#X msg 304 157 0;
+#X obj 273 135 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 178 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;
+#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 273 114 trigger float bang;
+#X obj 484 250 /;
+#X obj 508 224 expr $f2 - $f1 + 1;
+#X obj 274 198 trigger float float float bang float;
+#X obj 575 75 float_argument \$1;
+#X msg 299 45 bang;
+#X connect 2 0 5 0;
+#X connect 3 0 2 1;
+#X connect 4 0 27 0;
+#X connect 5 0 23 0;
+#X connect 5 1 24 0;
+#X connect 6 0 22 0;
+#X connect 6 0 29 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 26 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 9 0;
+#X connect 26 1 8 0;
+#X connect 27 0 3 1;
+#X connect 28 0 27 1;
+#X connect 29 0 25 0;
+#X connect 29 1 12 0;
+#X connect 29 2 3 0;
+#X connect 29 3 4 0;
+#X connect 29 4 28 0;
+#X connect 30 0 26 0;
+#X connect 30 0 28 1;
+#X connect 31 0 13 0;