diff options
Diffstat (limited to 'sfruit/countseq.pd')
-rw-r--r-- | sfruit/countseq.pd | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/sfruit/countseq.pd b/sfruit/countseq.pd new file mode 100644 index 0000000..b5d32b5 --- /dev/null +++ b/sfruit/countseq.pd @@ -0,0 +1,105 @@ +#N canvas 974 303 373 390 10; +#X declare -lib list-abs -lib iemlib; +#X obj 26 159 f; +#X obj 81 83 sel restart; +#X msg 81 108 0; +#X obj 112 108 t b; +#X obj 28 10 inlet; +#X obj 163 40 inlet; +#X obj 130 159 mod \$1; +#X obj 232 147 dollarg; +#X obj 232 124 loadbang; +#X obj 232 171 list split 1; +#X obj 88 285 list-find; +#N canvas 712 115 568 364 split-symbols 0; +#X obj 160 159 route symbol float; +#X obj 84 159 list-filter; +#X obj 84 53 inlet; +#X obj 84 77 t a a; +#X msg 160 182 0; +#X msg 265 184 0; +#X msg 212 183 1; +#X obj 383 158 route symbol float; +#X obj 307 158 list-filter; +#X msg 488 183 0; +#X msg 383 181 1; +#X msg 435 182 0; +#X obj 307 288 outlet; +#X obj 84 249 outlet; +#X obj 307 252 list-map; +#X obj 384 233 s2l-explode; +#X obj 384 253 list split 1; +#X obj 418 274 list-l2s; +#X obj 418 295 atoi; +#X text 349 312 remove leading "accent" identifier; +#X connect 0 0 4 0; +#X connect 0 1 6 0; +#X connect 0 2 5 0; +#X connect 1 0 13 0; +#X connect 1 1 0 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 3 1 8 0; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 1; +#X connect 7 0 10 0; +#X connect 7 1 11 0; +#X connect 7 2 9 0; +#X connect 8 0 14 0; +#X connect 8 1 7 0; +#X connect 9 0 8 1; +#X connect 10 0 8 1; +#X connect 11 0 8 1; +#X connect 14 0 12 0; +#X connect 14 1 15 0; +#X connect 15 0 16 0; +#X connect 16 1 17 0; +#X connect 17 0 18 0; +#X connect 18 0 14 1; +#X restore 208 199 pd split-symbols; +#X obj 159 285 list-find; +#X obj 26 194 t a a a; +#X obj 26 312 sel 0; +#X obj 26 354 outlet; +#X obj 88 354 outlet; +#X obj 159 354 outlet; +#X obj 208 40 inlet; +#X obj 58 159 + 1; +#X obj 282 331 + 1; +#X obj 282 354 outlet; +#X obj 210 255 list-apply - 1; +#X obj 139 228 list-apply - 1; +#X obj 80 63 list; +#X obj 28 32 route bang seek; +#X obj 180 9 import list-abs iemlib; +#X connect 0 0 13 0; +#X connect 0 0 19 0; +#X connect 0 0 20 0; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X connect 2 0 0 1; +#X connect 3 0 0 0; +#X connect 4 0 25 0; +#X connect 5 0 6 1; +#X connect 6 0 0 1; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 1 11 0; +#X connect 10 0 16 0; +#X connect 11 0 23 0; +#X connect 11 1 22 0; +#X connect 12 0 17 0; +#X connect 13 0 14 0; +#X connect 13 1 10 0; +#X connect 13 2 12 0; +#X connect 14 0 15 0; +#X connect 18 0 11 0; +#X connect 19 0 6 0; +#X connect 20 0 21 0; +#X connect 22 0 12 1; +#X connect 23 0 10 1; +#X connect 24 0 1 0; +#X connect 25 0 0 0; +#X connect 25 1 0 1; +#X connect 25 2 24 0; |