1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
|
#N canvas 311 94 558 625 10;
#X obj 224 163 + 1;
#X obj 61 559 outlet;
#X text 252 354 chooses list elements
;
#X text 273 238 chooses list size
;
#X text 82 152 generate a new list
;
#X obj 180 79 inlet;
#X obj 224 79 inlet;
#X obj 318 79 inlet;
#X obj 275 79 inlet;
#X obj 61 24 inlet;
#X text 174 453 1993-98 by Karlheinz
Essl;
#X obj 222 322 outlet;
#X text 174 469 vs. 1.1;
#X obj 318 125 int \$4;
#X obj 224 125 int \$2;
#X obj 335 463 t a;
#X obj 243 463 list prepend;
#X obj 61 520 list;
#X obj 192 362 until;
#X obj 192 288 t a a;
#X obj 148 235 moses 0;
#X obj 192 258 int;
#X obj 308 180 + 1;
#X obj 374 79 loadbang;
#X obj 120 42 s \$0-reset-output;
#X obj 322 436 r \$0-reset-output;
#X obj 84 463 r \$0-reset-output;
#X obj 61 42 t b b b;
#X text 222 339 length;
#X obj 148 200 between \$1;
#X obj 243 427 int;
#X obj 243 392 between \$3;
#X connect 0 0 29 2;
#X connect 5 0 29 1;
#X connect 6 0 14 0;
#X connect 7 0 13 0;
#X connect 8 0 31 1;
#X connect 9 0 27 0;
#X connect 13 0 22 0;
#X connect 14 0 0 0;
#X connect 15 0 16 1;
#X connect 16 0 15 0;
#X connect 16 0 17 1;
#X connect 17 0 1 0;
#X connect 18 0 31 0;
#X connect 19 0 18 0;
#X connect 19 1 11 0;
#X connect 20 1 21 0;
#X connect 21 0 19 0;
#X connect 22 0 31 2;
#X connect 23 0 13 0;
#X connect 23 0 14 0;
#X connect 25 0 16 1;
#X connect 26 0 17 1;
#X connect 27 0 17 0;
#X connect 27 1 29 0;
#X connect 27 2 24 0;
#X connect 29 0 20 0;
#X connect 30 0 16 0;
#X connect 31 0 30 0;
|