[PD] list-tuplet

[colet . patrice]

Hello, 

I'm working over an object that is sequencing list items symmetrically over 
time, 
at some level we can randomize time lengths. 

it's attached and only needs [list-find]. 
I'm wondering if there is such list object and/or class object 
in pd patches repository? 

acw, 

patko 

#N canvas 0 0 450 300 10;
#X obj 30 37 inlet;
#X obj 30 203 outlet;
#X obj 139 37 inlet;
#N canvas 69 16 448 596 list-tuplet 0;
#X obj 19 10 inlet;
#X obj 235 393 outlet;
#X msg 46 74 0;
#X obj 227 109 list;
#X obj 76 124 inlet;
#X obj 19 42 t a b;
#X obj 46 102 s \$0init;
#X obj 282 380 s \$0loop;
#X obj 248 85 r \$0in;
#X obj 227 57 r \$0tap;
#N canvas 0 0 313 647 loop 0;
#X obj 128 345 + 1;
#X obj 99 630 spigot 1;
#X obj 99 288 t b b;
#X obj 99 263 del;
#X obj 83 46 t b b b;
#X obj 245 586 < 1;
#X obj 99 576 t b a;
#X obj 260 244 - 1;
#X obj 114 315 r \$0init;
#X obj 83 14 r \$0loop;
#X obj 99 664 s \$0loop;
#X obj 126 536 s \$0counter;
#X obj 164 664 s \$0tap;
#X obj 146 464 random;
#X obj 99 393 t a b;
#X obj 202 438 r \$0init;
#X obj 126 440 sel 0 1;
#X obj 122 96 sel 0;
#X obj 231 71 list length;
#X obj 231 44 r \$0in;
#X obj 212 144 f;
#X obj 99 345 f;
#X msg 45 154 stop;
#X obj 45 120 r \$0stop;
#X obj 149 18 r \$0sepNum;
#X obj 122 72 f;
#X text 197 115 steps number;
#X obj 160 144 + 1;
#X obj 161 205 r \$0ft1;
#X obj 247 185 r \$0bts;
#X obj 114 231 expr $f2/$f1*$f3;
#X obj 126 416 f;
#X obj 140 392 r \$0mode;
#X obj 126 491 f;
#X connect 0 0 21 1;
#X connect 0 0 33 1;
#X connect 1 0 10 0;
#X connect 1 0 12 0;
#X connect 2 0 21 0;
#X connect 3 0 2 0;
#X connect 4 1 3 0;
#X connect 4 2 25 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 6 1 5 0;
#X connect 7 0 5 1;
#X connect 7 0 13 1;
#X connect 8 0 21 1;
#X connect 9 0 4 0;
#X connect 13 0 11 0;
#X connect 14 0 6 0;
#X connect 14 1 31 0;
#X connect 15 0 13 1;
#X connect 15 0 11 0;
#X connect 16 0 33 0;
#X connect 16 1 13 0;
#X connect 17 0 20 0;
#X connect 17 1 27 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 7 0;
#X connect 20 0 30 0;
#X connect 21 0 0 0;
#X connect 21 0 14 0;
#X connect 22 0 3 0;
#X connect 23 0 22 0;
#X connect 24 0 25 1;
#X connect 25 0 17 0;
#X connect 27 0 7 0;
#X connect 27 0 30 0;
#X connect 28 0 30 1;
#X connect 29 0 30 2;
#X connect 30 0 3 1;
#X connect 31 0 16 0;
#X connect 32 0 31 1;
#X connect 33 0 11 0;
#X restore 131 90 pd loop;
#X obj 68 11 loadbang;
#X obj 68 35 s \$0-loadbang;
#N canvas 475 25 780 384 routing 0;
#X obj 185 14 inlet;
#X obj 558 140 list split 1;
#X obj 592 162 list split 1;
#X obj 626 184 list split 1;
#X obj 660 210 list split 1;
#X obj 635 307 s \$0in;
#X obj 581 308 s \$0tap;
#X obj 581 283 t b a;
#X obj 392 285 min 1;
#X obj 392 308 max 0;
#X obj 694 242 list split 1;
#X obj 187 283 sel 0;
#X msg 187 308 20;
#X obj 103 67 \$2;
#X obj 77 67 \$1;
#X obj 143 66 \$4;
#X obj 553 25 inlet;
#X obj 378 121 s \$0stop;
#X obj 8 22 r \$0loadbang;
#X obj 354 145 s \$0loadbang;
#X obj 238 98 s \$0separator;
#X obj 235 283 max 1;
#X obj 188 48 route ft1 beats separator mode reset stop nested;
#X obj 408 99 s \$0nested;
#X obj 9 318 symbol \$3;
#X obj 9 343 s \$0separator;
#X obj 27 294 s \$0nested;
#X obj 213 358 s \$0ft1;
#X obj 235 306 s \$0bts;
#X obj 392 336 s \$0mode;
#X obj 27 272 \$5;
#X connect 0 0 22 0;
#X connect 1 0 11 0;
#X connect 1 1 2 0;
#X connect 2 0 21 0;
#X connect 2 1 3 0;
#X connect 3 1 4 0;
#X connect 4 1 10 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 8 0 9 0;
#X connect 9 0 29 0;
#X connect 10 0 8 0;
#X connect 10 1 5 0;
#X connect 11 0 12 0;
#X connect 11 1 27 0;
#X connect 12 0 27 0;
#X connect 13 0 21 0;
#X connect 14 0 11 0;
#X connect 15 0 8 0;
#X connect 16 0 1 0;
#X connect 18 0 14 0;
#X connect 18 0 13 0;
#X connect 18 0 15 0;
#X connect 18 0 24 0;
#X connect 18 0 30 0;
#X connect 21 0 28 0;
#X connect 22 0 11 0;
#X connect 22 1 21 0;
#X connect 22 2 20 0;
#X connect 22 3 8 0;
#X connect 22 4 19 0;
#X connect 22 5 17 0;
#X connect 22 6 23 0;
#X connect 22 7 7 0;
#X connect 24 0 25 0;
#X connect 30 0 26 0;
#X restore 19 154 pd routing;
#X obj 40 332 list-find;
#X obj 91 246 r \$0separator;
#X obj 21 220 r \$0in;
#X obj 21 498 s \$0sepPos;
#X obj 92 355 s \$0sepNum;
#X obj 40 301 symbol;
#X obj 21 471 list;
#X obj 40 408 list prepend;
#X obj 135 408 t l;
#X obj 236 345 t a a;
#X text 262 12 list factory;
#X text 130 70 timing;
#X text 17 191 find separator indexes;
#X obj 21 247 t b b a;
#X obj 167 356 r \$0init;
#X obj 111 386 - 1;
#X obj 273 112 r \$0sepNum;
#N canvas 376 47 470 631 nested 0;
#X obj 20 8 inlet;
#X obj 152 84 r \$0counter;
#X obj 62 107 list split;
#X obj 131 27 r \$0sepPos;
#X obj 62 84 list prepend;
#X obj 21 31 t a a;
#X obj 48 54 list length;
#X obj 46 288 list split;
#X obj 21 185 list split;
#X obj 46 602 outlet;
#N canvas 0 0 450 300 demux 0;
#X obj 296 90 sel 0;
#X msg 296 113 0;
#X msg 325 113 1;
#X obj 227 177 route 0 1;
#X obj 220 67 inlet;
#X obj 229 216 outlet;
#X obj 278 215 outlet;
#X obj 290 65 inlet;
#X obj 227 150 list prepend 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 8 1;
#X connect 2 0 8 1;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 8 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X restore 46 344 pd demux;
#X obj 91 315 r \$0nested;
#X msg 93 567 ft1 400 \, beats 2 \, 1 2 3 4;
#X obj 136 538 list trim;
#X obj 143 427 /;
#X obj 232 359 r \$0sepNum;
#X obj 136 512 list prepend add2;
#X obj 177 360 r \$0ft1;
#X obj 139 399 f 20;
#X obj 232 394 + 1;
#X obj 263 392 r \$0bts;
#X obj 143 457 pack;
#X msg 143 483 set \, add2 ft1 \$1 \, addcomma \, add2 beats \$2 \,
addcomma;
#X obj 89 373 t b a b;
#X text 135 55 dummy value for having a pair;
#X obj 90 131 list split 1;
#X obj 49 210 t a b;
#X obj 101 255 -;
#X obj 97 224 f;
#X obj 97 193 t b a;
#X obj 143 191 list split 1;
#X obj 90 155 + 1;
#X connect 0 0 5 0;
#X connect 1 0 2 1;
#X connect 2 1 25 0;
#X connect 3 0 4 1;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 7 0 10 0;
#X connect 8 1 26 0;
#X connect 10 0 9 0;
#X connect 10 1 23 0;
#X connect 11 0 10 1;
#X connect 12 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 21 0;
#X connect 15 0 19 0;
#X connect 16 0 13 0;
#X connect 17 0 18 1;
#X connect 18 0 14 0;
#X connect 19 0 14 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 22 0 12 0;
#X connect 23 0 12 0;
#X connect 23 1 16 0;
#X connect 23 2 18 0;
#X connect 25 0 31 0;
#X connect 25 1 30 0;
#X connect 26 0 7 0;
#X connect 27 0 7 1;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 29 1 27 1;
#X connect 30 0 28 1;
#X connect 31 0 8 1;
#X connect 31 0 29 0;
#X restore 237 181 pd nested tuplets;
#X obj 227 280 list split;
#X obj 284 242 r \$0init;
#X obj 347 242 r \$0counter;
#X obj 255 320 list split 1;
#X obj 57 441 r \$0init;
#N canvas 0 0 450 300 demux 0;
#X obj 296 90 sel 0;
#X msg 296 113 0;
#X msg 325 113 1;
#X obj 227 177 route 0 1;
#X obj 220 67 inlet;
#X obj 229 216 outlet;
#X obj 278 215 outlet;
#X obj 290 65 inlet;
#X obj 227 150 list prepend 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 8 1;
#X connect 2 0 8 1;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 8 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X restore 227 148 pd demux;
#X connect 0 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 37 0;
#X connect 4 0 13 1;
#X connect 5 0 13 0;
#X connect 5 1 2 0;
#X connect 8 0 3 1;
#X connect 9 0 3 0;
#X connect 11 0 12 0;
#X connect 14 0 21 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X connect 16 0 27 0;
#X connect 19 0 14 0;
#X connect 20 0 17 0;
#X connect 21 0 22 0;
#X connect 21 0 20 1;
#X connect 22 0 21 1;
#X connect 23 0 1 0;
#X connect 23 1 7 0;
#X connect 27 0 20 0;
#X connect 27 1 19 0;
#X connect 27 2 14 1;
#X connect 28 0 29 0;
#X connect 29 0 21 1;
#X connect 30 0 37 1;
#X connect 31 0 23 0;
#X connect 32 1 35 0;
#X connect 33 0 32 1;
#X connect 34 0 32 1;
#X connect 35 0 23 0;
#X connect 36 0 20 1;
#X connect 37 0 32 0;
#X connect 37 1 31 0;
#X restore 30 90 pd list-tuplet;
#X text 234 34 arg1 time;
#X text 233 58 arg2 beats playing taps;
#X text 234 82 arg3 symbol of separator;
#X text 234 107 arg4 read mode 0:normal 1:random;
#X text 234 133 arg5 nested 0:normal 1:nested;
#X text 92 201 list-tuplet methods <time (f)> <beats (f)> <separator
(s)> <mode (f) > <nested (f)>;
#X text 35 244 patko 2010;
#X connect 0 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;

#N canvas 175 204 672 383 10;
#X obj 47 255 r \$0list;
#X obj 109 208 s \$0list;
#X obj 47 209 s \$0list;
#X msg 47 182 mode \$1;
#X obj 47 156 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 54 133 random output pattern;
#X text 156 279 open for arguments;
#X obj 45 95 s \$0list;
#X text 43 44 outputs one item every 1001ms;
#X obj 132 305 t b b;
#X obj 132 327 timer;
#X floatatom 132 349 5 0 0 0 - - -;
#X msg 45 69 reset \, ft1 8008 \, 0 1 2 3 4 5 6 7;
#X msg 149 179 reset \, mode 1 \, 0 1 2 3 4 5 6 7;
#N canvas 679 287 450 465 sequencing 0;
#X obj 207 222 hsl 128 15 10 10000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 117 59 tgl 20 0 empty empty empty 17 7 0 10 -258113 -1 -1 0
1;
#X msg 204 265 ft1 \$1;
#X obj 204 306 s \$0list;
#X obj 117 427 s \$0list;
#X obj 117 309 metro 1000;
#X obj 144 375 print TICK;
#X obj 117 345 t b b;
#X text 56 11 giving time object the same argument over ft1 will synchronize
the list tuplet;
#X text 238 183 time setting;
#X msg 145 130 reset;
#X obj 117 103 t a b;
#X obj 145 172 s \$0list;
#X msg 279 299 50 51 54 55 57 58 61 62;
#X msg 297 328 61 57 54;
#X obj 117 400 list append 48 48 50 48;
#X msg 304 360;
#X text 289 265 change pattern here;
#X connect 0 0 2 0;
#X connect 0 0 5 1;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 5 0 7 0;
#X connect 7 0 15 0;
#X connect 7 1 6 0;
#X connect 10 0 12 0;
#X connect 11 0 5 0;
#X connect 11 1 10 0;
#X connect 13 0 15 1;
#X connect 14 0 15 1;
#X connect 15 0 4 0;
#X connect 16 0 15 1;
#X restore 299 280 pd sequencing patterns;
#X text 134 12 outputs list items symmetrically over time;
#X text 44 12 list-tuplet;
#X obj 542 318 s \$0list;
#X msg 578 289 stop;
#X msg 109 156 un deux trois quatre cinq six sept huit;
#X msg 576 264 reset;
#X msg 540 94 ft1 \$1;
#X floatatom 541 72 5 0 0 0 - - -;
#X msg 569 238 mode \$1;
#X obj 569 215 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 551 141 beats 2;
#N canvas 456 2 646 300 nesting 0;
#X obj 121 270 s \$0list;
#X msg 61 134 reset;
#X msg 17 135 mode 1;
#X msg 113 68 0;
#X msg 130 99 1;
#X text 54 22 nested 1 prepares a message for another list-tuplet instance
;
#X text 157 98 randomize;
#X msg 123 133 mode \$1 \, ft1 2000 \, beats 2 \, nested 1 \, separator
- \, 1 2 3 - 1 2 3 4 - 1 2 3 4 5 - 1 2 3 4 5 6 - 1 2 3 4 5 6 7;
#X text 152 65 normal;
#X obj 178 218 print NESTED;
#X obj 122 179 list-tuplet 1000;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 7 0 10 0;
#X connect 10 0 0 0;
#X connect 10 0 9 0;
#X restore 299 312 pd nesting tuplets;
#X msg 546 116 separator -;
#X msg 492 44 1 - 2 3 quatre;
#X obj 47 305 print TUPLET;
#X obj 47 277 list-tuplet 1000;
#X text 294 357 patko 2010;
#X msg 563 194 nested \$1;
#X obj 563 173 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X connect 0 0 30 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 12 0 7 0;
#X connect 13 0 1 0;
#X connect 18 0 17 0;
#X connect 19 0 1 0;
#X connect 20 0 17 0;
#X connect 21 0 17 0;
#X connect 22 0 21 0;
#X connect 23 0 17 0;
#X connect 24 0 23 0;
#X connect 25 0 17 0;
#X connect 27 0 17 0;
#X connect 28 0 17 0;
#X connect 30 0 9 0;
#X connect 30 0 29 0;
#X connect 32 0 17 0;
#X connect 33 0 32 0;

_______________________________________________
Pd-list@iem.at mailing list
UNSUBSCRIBE and account-management -> 
http://lists.puredata.info/listinfo/pd-list