pd-experiments/sequencer_livepatch.pd

166 lines
3.9 KiB
Plaintext

#N canvas 643 177 954 820 12;
#X obj 181 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 268 76 mod 16;
#X obj 211 76 f;
#X obj 238 76 + 1;
#X obj 181 27 metro 200;
#N canvas 1468 59 450 250 (subpatch) 0;
#X array pattern 16 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 16 0 200 20 1 0 0;
#X restore 576 38 graph;
#X obj 195 473 spigot;
#X floatatom 195 498 5 0 0 0 - - -;
#X obj 86 766 tabwrite pattern;
#X obj 64 517 tabread pattern;
#X obj 64 542 - 1;
#X obj 64 567 abs;
#X obj 110 622 list;
#X obj 488 96 tabread pattern;
#X obj 449 147 spigot;
#X obj 435 432 dac~;
#X obj 307 47 value cut;
#X obj 368 586 value cut;
#X msg 368 641 set \$1 2 0;
#X obj 225 562 value cut;
#X obj 336 518 t f b;
#X msg 284 602 set \$1 2 1;
#X obj 225 538 + 1;
#X obj 368 615 - 1;
#X obj 577 65 hsl 200 15 1 16 0 0 empty empty empty -2 -8 0 10 -4034
-1 -1 19900 1;
#X obj 488 33 value cut;
#X text 787 63 cut pos;
#X msg 743 294 connect;
#X msg 804 294 disconnect;
#X obj 732 234 r grid;
#X obj 306 353 r s;
#X obj 267 387 spigot;
#X obj 267 353 r x;
#X obj 256 425 r y;
#X obj 256 453 == 1;
#X obj 284 681 s grid;
#X obj 268 222 s grid;
#X obj 336 489 spigot;
#X obj 375 436 r y;
#X obj 375 462 == 2;
#X obj 179 118 s metro;
#X obj 488 9 r metro;
#X obj 449 114 r metro;
#X msg 110 655 set \$1 1 \$2;
#X obj 110 687 s grid;
#X text 105 353 sequencing controls;
#X text 726 214 grid i/o;
#X text 50 26 counter/timing;
#X text 471 181 sound synthesis;
#X text 205 8 start/stop;
#N canvas 830 120 773 708 kick 0;
#X obj 160 338 outlet~;
#X obj 132 219 osc~ 100;
#X obj 160 306 *~;
#X obj 198 251 line~;
#X obj 132 187 line;
#X msg 198 219 0 200;
#X obj 168 64 inlet;
#X text 295 111 amp env;
#X text 153 116 pitch env;
#X obj 6 38 vsl 15 128 20 400 1 0 empty empty pitch 0 -9 0 10 -4034
-1 -1 5800 1;
#X msg 73 156 20 200;
#X msg 132 155 set \$1;
#X obj 109 117 t b f;
#X floatatom 5 171 5 0 0 0 - - -;
#X obj 234 117 t b b;
#X msg 251 219 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 9 0;
#X connect 6 0 14 0;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 14 0 5 0;
#X connect 14 1 15 0;
#X connect 15 0 3 0;
#X coords 0 -1 1 1 85 200 1 0 0;
#X restore 449 210 pd kick;
#X obj 627 538 loadbang;
#X text 626 514 reset pattern;
#X msg 732 405 \$2 \$3 \$1;
#X obj 732 374 grid;
#X obj 732 434 unpack f f f;
#X obj 732 467 s x;
#X obj 772 467 s y;
#X obj 813 467 s s;
#X obj 268 122 makenote 1 200;
#X obj 268 168 pack f f;
#X msg 268 194 set \$1 0 \$2;
#X msg 627 589 \; pattern const 0;
#X obj 587 545 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 4 0;
#X connect 1 0 13 0;
#X connect 1 0 2 1;
#X connect 1 0 59 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 0 40 0;
#X connect 4 0 16 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 7 0 9 0;
#X connect 7 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 0 12 1;
#X connect 12 0 43 0;
#X connect 13 0 14 1;
#X connect 14 0 50 0;
#X connect 16 0 1 1;
#X connect 17 0 23 0;
#X connect 18 0 35 0;
#X connect 20 0 22 0;
#X connect 20 0 21 0;
#X connect 20 1 17 0;
#X connect 21 0 35 0;
#X connect 22 0 19 0;
#X connect 23 0 18 0;
#X connect 25 0 24 0;
#X connect 27 0 54 0;
#X connect 28 0 54 0;
#X connect 29 0 54 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 31 0 37 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 6 1;
#X connect 37 0 20 0;
#X connect 38 0 39 0;
#X connect 39 0 37 1;
#X connect 41 0 25 0;
#X connect 42 0 14 0;
#X connect 43 0 44 0;
#X connect 50 0 15 0;
#X connect 50 0 15 1;
#X connect 51 0 62 0;
#X connect 53 0 55 0;
#X connect 54 0 53 0;
#X connect 55 0 56 0;
#X connect 55 1 57 0;
#X connect 55 2 58 0;
#X connect 59 0 60 0;
#X connect 59 1 60 1;
#X connect 60 0 61 0;
#X connect 61 0 36 0;
#X connect 63 0 62 0;