diff options
Diffstat (limited to 'instruments/d-drumcenter.pd')
| -rw-r--r-- | instruments/d-drumcenter.pd | 232 |
1 files changed, 232 insertions, 0 deletions
diff --git a/instruments/d-drumcenter.pd b/instruments/d-drumcenter.pd new file mode 100644 index 0000000..8226835 --- /dev/null +++ b/instruments/d-drumcenter.pd @@ -0,0 +1,232 @@ +#N canvas 16 88 1206 681 10;
+#X obj 265 117 inlet;
+#X obj 316 117 inlet;
+#X obj 362 117 inlet;
+#X obj 265 212 mtof;
+#X obj 362 191 mtof;
+#X text 360 84 To-freq;
+#X text 263 84 From-freq;
+#X text 321 97 time;
+#X obj 406 532 *~;
+#X obj 509 117 inlet;
+#X obj 560 117 inlet;
+#X text 551 98 att_time;
+#X text 602 85 release;
+#X obj 43 48 inlet;
+#X text 40 25 trigger;
+#X obj 43 125 f 1;
+#X obj 43 151 s \$0-trigger;
+#X obj 111 270 r \$0-trigger;
+#X obj 416 298 r \$0-trigger;
+#X obj 406 598 outlet~;
+#X obj 501 364 *~;
+#X obj 492 387 *~;
+#X obj 757 120 inlet;
+#X obj 808 120 inlet;
+#X obj 856 120 inlet;
+#X obj 713 301 r \$0-trigger;
+#X obj 817 364 *~;
+#X obj 808 387 *~;
+#X obj 609 441 *~;
+#X text 753 83 attack_level;
+#X text 806 100 att_time;
+#X text 849 84 release;
+#X obj 926 121 inlet;
+#N canvas 379 248 450 300 noise 0;
+#X obj 215 52 == 1;
+#X obj 151 51 == 0;
+#X obj 106 228 outlet~;
+#X obj 257 79 inlet;
+#X obj 214 4 r \$0-filt_type;
+#X obj 92 73 inlet~;
+#N canvas 358 389 450 300 hip 0;
+#X obj 130 69 inlet~;
+#X obj 130 207 outlet~;
+#X obj 251 70 inlet;
+#X obj 251 119 switch~ 0;
+#X obj 130 114 hip~ 4000;
+#X obj 188 70 inlet;
+#X obj 352 74 r \$0-Q;
+#X obj 225 157 hp2~ 4000 0.707 10;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 2 0 3 0;
+#X connect 5 0 4 1;
+#X connect 5 0 7 1;
+#X connect 6 0 7 2;
+#X connect 7 0 1 0;
+#X restore 91 146 pd hip;
+#N canvas 358 389 450 300 lop 0;
+#X obj 130 69 inlet~;
+#X obj 130 168 outlet~;
+#X obj 251 70 inlet;
+#X obj 188 70 inlet;
+#X obj 130 114 lop~ 4000;
+#X obj 251 120 switch~ 1;
+#X obj 350 83 r \$0-Q;
+#X obj 172 146 lp2~ 4000 0.707 20;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 1;
+#X connect 3 0 7 1;
+#X connect 6 0 7 2;
+#X connect 7 0 1 0;
+#X restore 158 145 pd lop;
+#N canvas 201 195 450 300 bap 0;
+#X obj 130 69 inlet~;
+#X obj 130 168 outlet~;
+#X obj 251 70 inlet;
+#X obj 188 70 inlet;
+#X obj 130 114 lop~ 4000;
+#X obj 350 83 r \$0-Q;
+#X obj 172 146 bpq2~ 400 0.707 20;
+#X obj 251 120 switch~ 0;
+#X connect 0 0 4 0;
+#X connect 0 0 6 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 1;
+#X connect 3 0 6 1;
+#X connect 5 0 6 2;
+#X connect 6 0 1 0;
+#X restore 245 147 pd bap;
+#X obj 262 52 == 2;
+#X obj 215 24 unpack 0 0;
+#X connect 0 0 7 2;
+#X connect 1 0 6 2;
+#X connect 3 0 6 1;
+#X connect 3 0 7 1;
+#X connect 3 0 8 1;
+#X connect 4 0 10 0;
+#X connect 5 0 7 0;
+#X connect 5 0 6 0;
+#X connect 5 0 8 0;
+#X connect 6 0 2 0;
+#X connect 7 0 2 0;
+#X connect 8 0 2 0;
+#X connect 9 0 8 2;
+#X connect 10 0 1 0;
+#X connect 10 0 0 0;
+#X connect 10 0 9 0;
+#X restore 609 382 pd noise;
+#X obj 190 474 osc~;
+#X obj 43 101 bang;
+#X obj 105 82 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 111 322 t b;
+#X text 812 41 NOISE;
+#X text 537 71 OSC AMPLITUTE;
+#X text 307 57 OSC FREQUENCIES;
+#X obj 981 120 inlet;
+#X obj 926 147 s \$0-filt_type;
+#X obj 928 184 s \$0-filt_freq;
+#X obj 660 359 r \$0-filt_freq;
+#X obj 560 166 f;
+#X obj 362 168 f;
+#X obj 265 166 f;
+#X obj 757 169 f;
+#X obj 808 169 f;
+#X obj 856 169 f;
+#X obj 609 117 inlet;
+#X obj 609 166 f;
+#X text 500 86 attack_level;
+#X obj 509 166 f 1;
+#X obj 227 475 osc~;
+#X floatatom 271 408 5 0 0;
+#X obj 226 515 *~ 0.3;
+#X obj 267 476 osc~;
+#X obj 608 356 noise~;
+#X obj 111 346 f 0.5;
+#X obj 824 330 2lineseg~;
+#X obj 507 336 2lineseg~;
+#X obj 188 382 line~;
+#X obj 303 250 pack 0 0;
+#X msg 303 273 set \$1 \$2;
+#X obj 316 190 t b f;
+#X msg 226 310 369.994;
+#X msg 233 358 55 9;
+#X obj 232 334 bang;
+#X msg 251 274 set \$1;
+#X obj 44 74 select 0;
+#X obj 287 443 -~ 0.3;
+#X obj 227 441 +~ 0.3;
+#X obj 1041 117 inlet;
+#X obj 1040 146 s \$0-detune;
+#X obj 324 406 r \$0-detune;
+#X obj 1124 122 inlet;
+#X obj 1124 151 s \$0-Q;
+#X text 1036 94 osc detune;
+#X text 1119 92 filter Q;
+#X connect 0 0 47 0;
+#X connect 1 0 66 0;
+#X connect 2 0 46 0;
+#X connect 3 0 70 0;
+#X connect 4 0 64 0;
+#X connect 8 0 19 0;
+#X connect 9 0 54 0;
+#X connect 10 0 45 0;
+#X connect 13 0 71 0;
+#X connect 15 0 16 0;
+#X connect 17 0 37 0;
+#X connect 17 0 67 0;
+#X connect 18 0 62 0;
+#X connect 20 0 21 0;
+#X connect 20 0 21 1;
+#X connect 21 0 8 1;
+#X connect 22 0 48 0;
+#X connect 23 0 49 0;
+#X connect 24 0 50 0;
+#X connect 25 0 61 0;
+#X connect 26 0 27 0;
+#X connect 26 0 27 1;
+#X connect 27 0 28 1;
+#X connect 28 0 19 0;
+#X connect 32 0 42 0;
+#X connect 33 0 28 0;
+#X connect 34 0 57 0;
+#X connect 35 0 15 0;
+#X connect 36 0 35 0;
+#X connect 37 0 60 0;
+#X connect 41 0 43 0;
+#X connect 44 0 33 1;
+#X connect 45 0 62 2;
+#X connect 46 0 4 0;
+#X connect 47 0 3 0;
+#X connect 48 0 61 1;
+#X connect 49 0 61 2;
+#X connect 50 0 61 4;
+#X connect 51 0 52 0;
+#X connect 52 0 62 4;
+#X connect 54 0 62 1;
+#X connect 55 0 57 0;
+#X connect 56 0 72 1;
+#X connect 56 0 73 1;
+#X connect 57 0 8 0;
+#X connect 58 0 57 0;
+#X connect 59 0 33 0;
+#X connect 60 0 34 1;
+#X connect 60 0 55 1;
+#X connect 60 0 58 1;
+#X connect 61 0 26 0;
+#X connect 61 0 26 1;
+#X connect 62 0 20 0;
+#X connect 62 0 20 1;
+#X connect 63 0 34 0;
+#X connect 63 0 72 0;
+#X connect 63 0 73 0;
+#X connect 64 0 65 0;
+#X connect 65 0 68 0;
+#X connect 66 0 64 0;
+#X connect 66 1 64 1;
+#X connect 67 0 63 0;
+#X connect 67 0 69 0;
+#X connect 68 0 63 0;
+#X connect 69 0 68 0;
+#X connect 70 0 67 0;
+#X connect 71 1 35 0;
+#X connect 72 0 58 0;
+#X connect 73 0 55 0;
+#X connect 74 0 75 0;
+#X connect 76 0 72 1;
+#X connect 76 0 73 1;
+#X connect 77 0 78 0;
|