a whole bunch of strange things!

This commit is contained in:
Nico 2021-09-19 17:34:48 +01:00
parent 125b3b0294
commit 6c49443d1d
8 changed files with 355 additions and 1 deletions

25
euclid.pd Normal file
View File

@ -0,0 +1,25 @@
#N canvas 633 203 1182 757 12;
#X obj 49 267 select 1;
#X obj 49 202 % \$3;
#X text 111 266 <-- bang out on each hit. (Silent on rest.);
#X obj 49 169 * \$1;
#X obj 49 235 < \$1;
#X obj 96 182 r \$0-length;
#X obj 96 149 r \$0-hits;
#X obj 96 215 r \$0-hits;
#X obj 190 78 s \$0-length;
#X obj 280 78 s \$0-hits;
#X obj 190 31 inlet length;
#X obj 280 31 inlet hits;
#X obj 49 315 outlet;
#X obj 49 116 inlet number;
#X connect 0 0 12 0;
#X connect 1 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 1 1;
#X connect 6 0 3 1;
#X connect 7 0 4 1;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X connect 13 0 3 0;

82
metronome.pd Normal file
View File

@ -0,0 +1,82 @@
#N canvas 526 264 876 687 12;
#N canvas 391 191 1238 803 metronome 1;
#X obj 513 271 line~;
#X obj 493 403 dac~;
#X obj 494 368 *~;
#X obj 378 348 osc~ 440;
#X obj 503 124 metro 100;
#X floatatom 104 102 5 33 240 1 bpm - -;
#X obj 103 202 expr (1/$f1)*60*1000;
#X obj 103 227 s speed;
#X obj 563 96 r speed;
#X obj 535 185 t b b;
#X msg 477 232 0 100;
#X obj 477 206 del 2;
#X msg 567 217 0 \, 1 2;
#X floatatom 178 102 5 0 16 1 bar - -;
#X obj 174 141 s downbeat;
#X obj 503 149 t b b;
#X obj 364 177 f;
#X obj 364 202 + 1;
#X obj 396 203 r downbeat;
#X obj 364 227 mod 4;
#X obj 364 252 sel 0;
#X msg 396 289 220;
#X msg 364 289 440;
#X obj 503 98 r run;
#X obj 279 102 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 318 115 s run;
#X obj 312 290 s beat;
#X obj 121 123 r beat;
#X obj 106 143 hradio 15 1 0 4 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X obj 10 97 r downbeat;
#X msg 10 122 number \$1;
#X obj 146 8 loadbang;
#X msg 146 69 120;
#X obj 146 35 t b b;
#X msg 178 69 4;
#X msg 299 40 \; pd dsp 1;
#X msg 401 138 0;
#X connect 0 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 1 1;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 4 1;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 10 0 0 0;
#X connect 11 0 10 0;
#X connect 12 0 0 0;
#X connect 13 0 14 0;
#X connect 15 0 16 0;
#X connect 15 1 9 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 16 1;
#X connect 19 0 20 0;
#X connect 19 0 26 0;
#X connect 20 0 22 0;
#X connect 20 1 21 0;
#X connect 21 0 3 0;
#X connect 22 0 3 0;
#X connect 23 0 4 0;
#X connect 23 0 36 0;
#X connect 24 0 25 0;
#X connect 27 0 28 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 31 0 33 0;
#X connect 31 0 35 0;
#X connect 32 0 5 0;
#X connect 33 0 32 0;
#X connect 33 1 34 0;
#X connect 34 0 13 0;
#X connect 36 0 16 0;
#X coords 0 -1 1 1 200 60 2 100 100;
#X restore 14 24 pd metronome;

48
mididrumrack.pd Normal file
View File

@ -0,0 +1,48 @@
#N canvas 500 251 709 562 12;
#X obj 168 93 grid;
#X msg 168 59 connect;
#X obj 212 180 unpack f f f;
#X obj 293 236 - 7;
#X obj 293 261 abs;
#X obj 252 306 +;
#X obj 293 286 * 4;
#X obj 252 271 mod 4;
#X obj 209 271 div 4;
#X obj 252 235 t f f;
#X obj 209 296 * 32;
#X obj 234 333 +;
#X obj 234 358 + 12;
#X obj 234 466 noteout;
#X obj 179 238 s state;
#X obj 257 383 r state;
#X floatatom 280 440 5 1 16 1 channel - -;
#X obj 168 118 t a a;
#X msg 82 171 set \$2 \$3 \$1;
#X obj 257 408 * 127;
#X obj 216 210 swap;
#X msg 241 72 disconnect;
#X connect 0 0 17 0;
#X connect 1 0 0 0;
#X connect 2 0 20 1;
#X connect 2 1 20 0;
#X connect 2 2 3 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 11 1;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 15 0 19 0;
#X connect 16 0 13 2;
#X connect 17 0 18 0;
#X connect 17 1 2 0;
#X connect 18 0 0 0;
#X connect 19 0 13 1;
#X connect 20 0 14 0;
#X connect 20 1 9 0;
#X connect 21 0 0 0;

View File

@ -1,11 +1,13 @@
#N canvas 1285 59 450 300 12;
#X msg 175 119 connect;
#X msg 175 87 connect;
#X obj 175 144 gridkbd;
#X obj 175 216 noteout;
#X floatatom 231 200 5 0 0 0 - - -;
#X obj 198 181 * 127;
#X msg 179 113 disconnect;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 3 0 2 2;
#X connect 4 0 2 1;
#X connect 5 0 1 0;

17
modular-seq/clock.pd Normal file
View File

@ -0,0 +1,17 @@
#N canvas 657 157 736 649 12;
#X obj 99 140 f;
#X obj 99 165 + 1;
#X floatatom 99 215 5 0 0 0 - - -;
#X obj 99 87 inlet;
#X obj 159 87 inlet, f 6;
#X obj 99 189 mod \$1;
#X obj 99 239 outlet;
#X obj 99 115 metro \$2;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 4 0 7 1;
#X connect 5 0 0 1;
#X connect 5 0 2 0;
#X connect 7 0 0 0;

13
modular-seq/counter.pd Normal file
View File

@ -0,0 +1,13 @@
#N canvas 1098 262 736 649 12;
#X obj 99 140 f;
#X obj 99 165 + 1;
#X floatatom 99 215 5 0 0 0 - - -;
#X obj 99 189 mod \$1;
#X obj 99 239 outlet;
#X obj 99 110 inlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 0 1;
#X connect 3 0 2 0;
#X connect 5 0 0 0;

89
modular-seq/gstep.pd Normal file
View File

@ -0,0 +1,89 @@
#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;

78
modular-seq/test.pd Normal file
View File

@ -0,0 +1,78 @@
#N canvas 443 119 628 707 12;
#X obj 25 69 grid;
#X obj 25 43 r grid;
#X msg 225 49 connect;
#X msg 84 49 disconnect;
#X obj 25 94 s grid_out;
#X msg 175 49 all 0;
#X obj 116 146 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 116 190 counter 16;
#X obj 116 276 gstep 1;
#X obj 162 316 s grid;
#X obj 116 165 metro 200;
#X obj 162 250 r grid_out;
#X obj 116 471 noteout;
#X floatatom 178 452 5 0 0 0 - - -;
#X msg 116 366 36;
#X obj 116 301 sel 1;
#X obj 116 406 makenote 60 100;
#X obj 116 221 t f f f;
#X obj 288 315 s grid;
#X obj 288 249 r grid_out;
#X obj 243 300 sel 1;
#X msg 243 365 38;
#X obj 242 275 gstep 2;
#X obj 410 328 s grid;
#X obj 410 262 r grid_out;
#X obj 365 313 sel 1;
#X obj 364 288 gstep 3;
#X msg 365 375 44;
#X obj 362 175 mod 2;
#X obj 362 200 sel 1;
#X obj 362 225 counter 16;
#X obj 414 375 counter 16;
#X obj 442 475 s grid;
#X obj 442 409 r grid_out;
#X obj 397 460 sel 1;
#X msg 397 485 48;
#X obj 403 435 gstep 4;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 10 0;
#X connect 7 0 17 0;
#X connect 8 0 15 0;
#X connect 8 1 9 0;
#X connect 10 0 7 0;
#X connect 11 0 8 1;
#X connect 13 0 12 2;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 12 1;
#X connect 17 0 8 0;
#X connect 17 1 22 0;
#X connect 17 2 28 0;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 16 0;
#X connect 22 0 20 0;
#X connect 22 1 18 0;
#X connect 24 0 26 1;
#X connect 25 0 27 0;
#X connect 25 0 31 0;
#X connect 26 0 25 0;
#X connect 26 1 23 0;
#X connect 27 0 16 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 26 0;
#X connect 31 0 36 0;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 35 0 12 0;
#X connect 36 0 34 0;
#X connect 36 1 32 0;