diff options
Diffstat (limited to 'pd')
| -rw-r--r-- | pd/segment.pd | 132 |
1 files changed, 132 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; |