pd-experiments/modular-seq/gstep.pd

90 lines
2.1 KiB
Plaintext

#N canvas 608 147 1130 859 12;
#X obj 471 43 inlet grid;
#X obj 300 450 outlet grid;
#X obj 39 437 outlet note;
#X obj 39 19 inlet step;
#X obj 471 68 t a a;
#X obj 471 191 spigot;
#X obj 503 98 unpack f f f;
#X obj 584 131 == \$1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-seq 16 float 2;
#X coords 0 1 16 -1 200 140 1 0 0;
#X restore 245 44 graph;
#X obj 39 374 tabread \$0-seq;
#X obj 503 130 == 1;
#X obj 540 171 &&;
#X obj 471 333 t f f;
#X obj 388 364 tabread \$0-seq;
#X obj 401 449 tabwrite \$0-seq;
#X obj 388 389 expr -($f1-1);
#X msg 471 241 \$2;
#X obj 471 266 t f f;
#X obj 537 286 t f b;
#X obj 536 351 pack f f f;
#X obj 569 309 float \$1;
#X obj 388 414 t f f;
#X msg 536 376 set \$2 \$3 \$1;
#X obj 39 44 t f f, f 11;
#X obj 150 96 float \$1;
#X msg 97 149 lset \$1 \$2 8;
#X obj 97 122 pack f f;
#X obj 97 174 s \$0-grid;
#X obj 536 401 s \$0-grid;
#X obj 300 415 r \$0-grid;
#X obj 104 70 t f f b;
#X obj 53 194 - 1;
#X obj 53 219 mod 16;
#X obj 39 399 t f f;
#X obj 53 295 pack f f f;
#X obj 53 244 t f b;
#X text 509 235 when a button is pressed on this seq's row \, toggle
it in the sequence;
#X text 116 213 state display + chasing light;
#X obj 86 272 float \$1;
#X msg 53 320 set \$1 \$2 \$3;
#X obj 53 345 s grid;
#X connect 0 0 4 0;
#X connect 3 0 23 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 16 0;
#X connect 6 0 10 0;
#X connect 6 2 7 0;
#X connect 7 0 11 1;
#X connect 9 0 33 0;
#X connect 10 0 11 0;
#X connect 11 0 5 1;
#X connect 12 0 13 0;
#X connect 12 1 14 1;
#X connect 13 0 15 0;
#X connect 15 0 21 0;
#X connect 16 0 17 0;
#X connect 17 0 12 0;
#X connect 17 1 18 0;
#X connect 18 0 19 1;
#X connect 18 1 20 0;
#X connect 19 0 22 0;
#X connect 20 0 19 2;
#X connect 21 0 14 0;
#X connect 21 1 19 0;
#X connect 22 0 28 0;
#X connect 23 0 9 0;
#X connect 23 1 30 0;
#X connect 24 0 26 1;
#X connect 25 0 27 0;
#X connect 26 0 25 0;
#X connect 29 0 1 0;
#X connect 30 0 31 0;
#X connect 30 1 26 0;
#X connect 30 2 24 0;
#X connect 31 0 32 0;
#X connect 32 0 35 0;
#X connect 33 0 2 0;
#X connect 33 1 34 2;
#X connect 34 0 39 0;
#X connect 35 0 34 0;
#X connect 35 1 38 0;
#X connect 38 0 34 1;
#X connect 39 0 40 0;