diff options
Diffstat (limited to 'core/troute.pd')
-rw-r--r-- | core/troute.pd | 104 |
1 files changed, 51 insertions, 53 deletions
diff --git a/core/troute.pd b/core/troute.pd index d10175a..be06e57 100644 --- a/core/troute.pd +++ b/core/troute.pd @@ -1,24 +1,13 @@ -#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; +#N canvas 286 157 803 191 10; +#X declare -lib iemlib -lib list-abs; +#X obj 1 67 namecanvas \$0self; +#N canvas 34 277 750 385 constructor 0; +#X obj 266 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 507 117 list length; +#X obj 507 138 s \$0totalArgs; #X obj 227 152 t b b a; -#N canvas 518 172 903 672 connections 0; +#N canvas 423 44 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; @@ -44,9 +33,9 @@ #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 obj 215 429 list-apply + 4; #X connect 0 0 18 0; #X connect 1 0 2 0; #X connect 3 0 10 0; @@ -57,7 +46,7 @@ #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 12 0 27 0; #X connect 13 0 11 0; #X connect 14 0 4 1; #X connect 15 0 12 1; @@ -75,9 +64,9 @@ #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 connect 25 0 20 1; +#X connect 26 0 7 1; +#X connect 27 0 13 0; #X restore 227 236 pd connections; #X obj 227 63 dollarg; #N canvas 906 445 436 308 initialSetup 0; @@ -118,7 +107,7 @@ #X connect 16 0 15 0; #X connect 17 0 19 0; #X connect 19 0 18 0; -#X restore 271 181 pd initialSetup; +#X restore 266 181 pd initialSetup; #N canvas 328 204 574 524 addOutlets 0; #X obj 54 18 inlet; #X obj 54 279 * 150; @@ -138,9 +127,9 @@ #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 obj 127 85 == 0; +#X msg 120 171 obj \$1 100 r \$2-outlet\$3; +#X msg 90 240 obj \$1 150 outlet; #X connect 0 0 4 0; #X connect 2 0 7 0; #X connect 2 1 6 0; @@ -190,7 +179,7 @@ #X connect 22 0 21 1; #X connect 23 0 11 1; #X connect 24 0 14 1; -#X restore 249 210 pd addOutlets; +#X restore 246 210 pd addOutlets; #N canvas 228 24 433 398 checkArgs 0; #X obj 131 114 >; #X obj 183 114 f; @@ -198,7 +187,6 @@ #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; @@ -206,23 +194,24 @@ #X obj 213 223 s \$0checkedArgs; #X obj 131 14 r \$0totalOuts; #X obj 177 278 r \$0totalOuts; +#X obj 37 130 == 0; #X connect 0 0 3 0; -#X connect 0 0 6 0; +#X connect 0 0 13 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 3 1 8 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 connect 5 0 10 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 11 0 2 0; +#X connect 12 0 7 1; +#X connect 13 0 6 0; +#X restore 266 124 pd checkArgs; #X obj 21 49 inlet; #X obj 21 87 s \$0-inlet0; #X obj 480 44 inlet; @@ -232,17 +221,26 @@ #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; +#N canvas 122 62 611 204 \$0canvas 1; +#X restore 30 243 pd \$0canvas; +#X obj 378 17 import iemlib list-abs; +#X obj 30 263 saveclear pd-\$0canvas; +#X connect 1 0 13 0; +#X connect 1 1 2 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 4 1 8 0; +#X connect 4 2 7 0; +#X connect 6 0 4 0; +#X connect 6 1 0 0; +#X connect 10 0 11 0; +#X connect 12 0 1 0; +#X connect 14 0 4 0; +#X connect 15 0 17 0; +#X connect 17 0 16 0; +#X connect 18 0 6 0; +#X restore 1 45 pd constructor; +#X obj 1 20 inlet; +#X obj 82 19 inlet; +#X connect 2 0 1 0; +#X connect 3 0 1 1; |