From 6f03ce6f2bee8102babead9adc06b3551acac85c Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Fri, 8 Feb 2008 09:51:34 +0000 Subject: initial import from my personal svn svn path=/trunk/abstractions/senderfruit/; revision=9380 --- core/troute.pd | 248 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 248 insertions(+) create mode 100644 core/troute.pd (limited to 'core/troute.pd') diff --git a/core/troute.pd b/core/troute.pd new file mode 100644 index 0000000..d10175a --- /dev/null +++ b/core/troute.pd @@ -0,0 +1,248 @@ +#N canvas 360 268 1084 595 10; +#N canvas 122 62 399 252 \$0canvas 0; +#X obj 0 20 r 1253-inlet0; +#X obj 0 50 route j f g; +#X obj 0 100 s 1253-outlet0; +#X obj 150 100 s 1253-outlet1; +#X obj 300 100 s 1253-outlet2; +#X obj 450 100 s 1253-outlet3; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X connect 1 2 4 0; +#X connect 1 3 5 0; +#X restore 441 15 pd \$0canvas; +#X obj 271 103 s \$0totalArgs; +#X obj 480 92 t a a; +#X obj 510 116 list length; +#X obj 20 9 namecanvas \$0self; +#X obj 510 137 s \$0totalArgs; +#X obj 227 152 t b b a; +#N canvas 518 172 903 672 connections 0; +#X obj 362 60 inlet; +#X msg 609 107 connect 0 0 1 0; +#X obj 609 135 s pd-\$0canvas; +#X msg 384 472 connect 1 \$1 \$2 0; +#X obj 384 320 f; +#X obj 414 320 + 1; +#X obj 384 217 until; +#X obj 384 179 f; +#X obj 456 408 + 2; +#X obj 384 441 list append; +#X obj 384 504 s pd-\$0canvas; +#X obj 215 505 s \$0self; +#X obj 215 391 list append; +#X msg 215 471 connect \$1 0 \$2 0; +#X obj 400 251 r \$0reset; +#X obj 287 360 + 1; +#X obj 215 323 * 2; +#X obj 215 344 t f f; +#X obj 362 91 t b b b; +#X obj 384 352 t f f; +#X obj 216 295 f; +#X obj 246 295 + 1; +#X obj 216 192 until; +#X obj 216 134 f; +#X obj 232 111 r \$0checkedArgs; +#X obj 215 429 list-apply + 21; +#X obj 232 242 r \$0resetIfLess; +#X obj 400 149 r \$0totalOuts; +#X connect 0 0 18 0; +#X connect 1 0 2 0; +#X connect 3 0 10 0; +#X connect 4 0 5 0; +#X connect 4 0 19 0; +#X connect 5 0 4 1; +#X connect 6 0 4 0; +#X connect 7 0 6 0; +#X connect 8 0 9 1; +#X connect 9 0 3 0; +#X connect 12 0 25 0; +#X connect 13 0 11 0; +#X connect 14 0 4 1; +#X connect 15 0 12 1; +#X connect 16 0 17 0; +#X connect 17 0 12 0; +#X connect 17 1 15 0; +#X connect 18 0 23 0; +#X connect 18 1 7 0; +#X connect 18 2 1 0; +#X connect 19 0 9 0; +#X connect 19 1 8 0; +#X connect 20 0 21 0; +#X connect 20 0 16 0; +#X connect 21 0 20 1; +#X connect 22 0 20 0; +#X connect 23 0 22 0; +#X connect 24 0 23 1; +#X connect 25 0 13 0; +#X connect 26 0 20 1; +#X connect 27 0 7 1; +#X restore 227 236 pd connections; +#X obj 227 63 dollarg; +#N canvas 906 445 436 308 initialSetup 0; +#X obj 53 9 inlet; +#X msg 97 71 0; +#X obj 137 87 s \$0reset; +#X obj 75 98 \$0; +#X obj 75 153 s pd-\$0canvas; +#X obj 53 230 s pd-\$0canvas; +#X obj 53 178 list prepend obj 0 50 route; +#X obj 53 204 list trim; +#X obj 53 47 t a b b; +#X msg 285 53 clear; +#X obj 285 25 r \$0reset; +#X obj 285 82 s pd-\$0canvas; +#X msg 75 125 obj 0 20 r \$1-inlet0; +#X obj 284 145 r \$0reset; +#X obj 300 191 r \$0lessThan; +#X obj 284 216 f; +#X obj 284 168 t b; +#X obj 284 240 sel 1; +#X obj 284 285 s \$0resetIfLess; +#X msg 284 262 0; +#X connect 0 0 8 0; +#X connect 1 0 2 0; +#X connect 3 0 12 0; +#X connect 6 0 7 0; +#X connect 7 0 5 0; +#X connect 8 0 6 0; +#X connect 8 1 3 0; +#X connect 8 2 1 0; +#X connect 9 0 11 0; +#X connect 10 0 9 0; +#X connect 12 0 4 0; +#X connect 13 0 16 0; +#X connect 14 0 15 1; +#X connect 15 0 17 0; +#X connect 16 0 15 0; +#X connect 17 0 19 0; +#X connect 19 0 18 0; +#X restore 271 181 pd initialSetup; +#N canvas 328 204 574 524 addOutlets 0; +#X obj 54 18 inlet; +#X obj 54 279 * 150; +#X obj 54 144 until; +#X obj 54 207 f; +#X obj 87 207 + 1; +#X obj 70 170 r \$0reset; +#X msg 54 390 obj \$1 100 s \$2-outlet\$3; +#X obj 54 301 list append \$0; +#X obj 54 363 list append; +#X obj 54 426 s pd-\$0canvas; +#X obj 54 242 t a a; +#X obj 54 120 f; +#N canvas 392 28 506 356 selfhelp 0; +#X obj 90 28 inlet; +#X obj 120 210 s \$0self; +#X obj 90 132 t a a; +#X obj 127 65 r \$0lessThan; +#X obj 90 107 spigot; +#X obj 127 85 invert; +#X msg 120 171 obj \$1 475 r \$2-outlet\$3; +#X msg 90 240 obj \$1 500 outlet; +#X connect 0 0 4 0; +#X connect 2 0 7 0; +#X connect 2 1 6 0; +#X connect 3 0 5 0; +#X connect 4 0 2 0; +#X connect 5 0 4 1; +#X connect 6 0 1 0; +#X connect 7 0 1 0; +#X restore 274 425 pd selfhelp; +#X obj 274 299 * 150; +#X obj 274 227 f; +#X obj 307 227 + 1; +#X obj 274 321 list append \$0; +#X obj 274 383 list append; +#X obj 274 262 t a a; +#X obj 54 42 t b b; +#X obj 274 118 until; +#X obj 274 58 f; +#X obj 290 34 r \$0checkedArgs; +#X obj 70 76 r \$0totalOuts; +#X obj 290 180 r \$0resetIfLess; +#X connect 0 0 19 0; +#X connect 1 0 7 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 3 0 10 0; +#X connect 4 0 3 1; +#X connect 5 0 3 1; +#X connect 6 0 9 0; +#X connect 7 0 8 0; +#X connect 8 0 6 0; +#X connect 10 0 1 0; +#X connect 10 1 8 1; +#X connect 11 0 2 0; +#X connect 13 0 16 0; +#X connect 14 0 15 0; +#X connect 14 0 18 0; +#X connect 15 0 14 1; +#X connect 16 0 17 0; +#X connect 17 0 12 0; +#X connect 18 0 13 0; +#X connect 18 1 17 1; +#X connect 19 0 11 0; +#X connect 19 1 21 0; +#X connect 20 0 14 0; +#X connect 21 0 20 0; +#X connect 22 0 21 1; +#X connect 23 0 11 1; +#X connect 24 0 14 1; +#X restore 249 210 pd addOutlets; +#N canvas 228 24 433 398 checkArgs 0; +#X obj 131 114 >; +#X obj 183 114 f; +#X obj 131 65 t f f; +#X obj 131 149 sel 1; +#X obj 183 149 t f f; +#X obj 213 188 -; +#X obj 37 130 invert; +#X obj 37 162 s \$0lessThan; +#X obj 161 313 f; +#X obj 161 179 t b; +#X obj 161 344 s \$0checkedArgs; +#X obj 213 223 s \$0checkedArgs; +#X obj 131 14 r \$0totalOuts; +#X obj 177 278 r \$0totalOuts; +#X connect 0 0 3 0; +#X connect 0 0 6 0; +#X connect 1 0 0 1; +#X connect 1 0 4 0; +#X connect 2 0 0 0; +#X connect 2 1 1 1; +#X connect 3 0 1 0; +#X connect 3 1 9 0; +#X connect 4 0 5 1; +#X connect 4 1 5 0; +#X connect 5 0 11 0; +#X connect 6 0 7 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 12 0 2 0; +#X connect 13 0 8 1; +#X restore 271 124 pd checkArgs; +#X obj 21 49 inlet; +#X obj 21 87 s \$0-inlet0; +#X obj 480 44 inlet; +#X obj 480 165 s \$0-inlet1; +#X obj 144 87 r \$0-inlet1; +#X obj 479 208 r \$0totalArgs; +#X obj 479 252 s \$0totalOuts; +#X obj 479 230 + 1; +#X obj 227 39 initbang; +#X connect 2 0 15 0; +#X connect 2 1 3 0; +#X connect 3 0 5 0; +#X connect 6 0 7 0; +#X connect 6 1 10 0; +#X connect 6 2 9 0; +#X connect 8 0 6 0; +#X connect 8 1 1 0; +#X connect 12 0 13 0; +#X connect 14 0 2 0; +#X connect 16 0 6 0; +#X connect 17 0 19 0; +#X connect 19 0 18 0; +#X connect 20 0 8 0; -- cgit v1.2.1