Commit 6e7bc32f authored by max's avatar max

crude voice stealing for percussion patch

parent c60b7743
#N canvas 2008 339 507 445 12;
#X obj 93 300 del 6000;
#X msg 86 341 0;
#X msg 49 342 1;
#X msg 81 177 stop;
#X obj 49 378 outlet;
#X obj 251 211 r polyphony;
#X obj 173 207 f;
#X obj 206 207 + 1;
#X obj 140 140 t b b;
#X msg 189 176 0;
#X obj 173 237 > 4;
#X obj 172 266 sel 0 1;
#X obj 49 25 inlet;
#X obj 49 53 route \$1;
#X obj 140 110 change;
#X obj 49 130 t b b b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 10 1;
#X connect 6 0 7 0;
#X connect 6 0 10 0;
#X connect 7 0 6 1;
#X connect 8 0 0 0;
#X connect 8 1 6 0;
#X connect 9 0 6 1;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 11 1 1 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 13 1 14 0;
#X connect 14 0 8 0;
#X connect 15 0 2 0;
#X connect 15 1 3 0;
#X connect 15 2 9 0;
#N canvas 1988 400 474 414 12;
#X obj 56 49 == \$2;
#X obj 100 262 del 6000;
#X msg 93 303 0;
#X msg 56 304 1;
#X msg 73 128 stop;
#X obj 56 72 sel 1, f 13;
#X obj 56 340 outlet;
#X obj 258 173 r polyphony;
#X obj 180 169 f;
#X obj 213 169 + 1;
#X obj 147 102 t b b;
#X obj 72 101 t b b;
#X msg 196 138 0;
#X obj 180 199 > 4;
#X obj 179 228 sel 0 1;
#X obj 56 19 inlet;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 5 0 11 0;
#X connect 5 1 10 0;
#X connect 7 0 13 1;
#X connect 8 0 9 0;
#X connect 8 0 13 0;
#X connect 9 0 8 1;
#X connect 10 0 1 0;
#X connect 10 1 8 0;
#X connect 11 0 4 0;
#X connect 11 1 12 0;
#X connect 12 0 8 1;
#X connect 13 0 14 0;
#X connect 14 0 1 0;
#X connect 14 1 2 0;
#X connect 15 0 0 0;
#N canvas 594 453 558 509 10;
#N canvas 594 453 596 523 10;
#X declare -path abstractions;
#X declare -path chair;
#N canvas 77 296 1523 854 rotaries 0;
#X obj 103 119 vsl 15 35 0 1 0 0 \$0-hsl1 \$0-hsl1r empty 0 -9 0 10
-262144 -1 -1 150 1;
-262144 -1 -1 1600 1;
#X obj 130 119 vsl 15 35 0 1 0 0 \$0-hsl2 \$0-hsl2r empty 0 -9 0 10
-262144 -1 -1 3400 1;
-262144 -1 -1 2000 1;
#X obj 159 119 vsl 15 35 0 1 0 0 \$0-hsl3 \$0-hsl3r empty 0 -9 0 10
-262144 -1 -1 1862 1;
-262144 -1 -1 1300 1;
#X obj 458 532 list prepend;
#X obj 458 552 list trim;
#X obj 349 196 * 64;
......@@ -19,7 +19,7 @@
#X obj 458 578 s \$0-params-list;
#X obj 661 506 text set \$0-rotary-states;
#X obj 662 529 text define -k \$0-rotary-states;
#A set 0.558824 0.0588235 0.470588 \; 0.456801 0.487135 0.296875 \;
#A set 0.470588 0.588235 0.382353 \; 0.456801 0.487135 0.296875 \;
0.421875 0.875 0.5625 \; 0.65625 0.8125 0.875 \; 0 0.5625 1 \; 0 1
0 \; 0.184743 0.250919 0.860294 \; 0.75 0.890625 0.28125 \; 0.325368
0.81342 1.32905 \; 0.794118 0.297794 0.235294 \; 0.0441179 1.00092
......@@ -214,38 +214,38 @@
#X connect 3 0 4 0;
#X connect 6 0 5 0;
#X restore 261 85 pd init;
#N canvas 75 270 1359 611 instruments 0;
#X obj 267 321 cowbell~ \$0 5;
#X obj 615 342 *~ 0.5;
#X obj 683 341 *~ 0.5;
#X obj 729 341 *~ 0.5;
#X obj 798 341 *~ 0.5;
#X obj 729 318 stcymb~ \$0 8;
#X obj 1080 313 bongo~ \$0 10;
#X obj 13 320 stsnare~ \$0 6;
#X obj 97 320 stsnare~ \$0 7;
#X obj 614 320 stcymb~ \$0 3;
#X obj 353 321 cowbell~ \$0 0;
#X obj 439 321 cowbell~ \$0 1;
#X obj 527 321 cowbell~ \$0 9;
#X obj 844 340 *~ 0.5;
#X obj 912 340 *~ 0.5;
#X obj 843 317 stcymb~ \$0 4;
#X obj 959 339 *~ 0.5;
#X obj 1032 339 *~ 0.5;
#X obj 958 316 stcymb~ \$0 13;
#X obj 1172 311 bongo~ \$0 11;
#X obj 1263 311 bongo~ \$0 12;
#X obj 183 320 stsnare~ \$0 2;
#X obj 12 155 inlet~;
#X obj 12 516 outlet~;
#X obj 1033 544 outlet~;
#X obj 1081 338 *~ 1.5;
#X obj 1125 337 *~ 1.5;
#X obj 1173 334 *~ 1.5;
#X obj 1219 334 *~ 1.5;
#X obj 1263 334 *~ 1.5;
#X obj 1309 334 *~ 1.5;
#N canvas 75 270 1415 472 instruments 0;
#X obj 267 185 cowbell~ \$0 5;
#X obj 615 206 *~ 0.5;
#X obj 683 205 *~ 0.5;
#X obj 729 205 *~ 0.5;
#X obj 798 205 *~ 0.5;
#X obj 729 182 stcymb~ \$0 8;
#X obj 1080 177 bongo~ \$0 10;
#X obj 13 184 stsnare~ \$0 6;
#X obj 97 184 stsnare~ \$0 7;
#X obj 614 184 stcymb~ \$0 3;
#X obj 353 185 cowbell~ \$0 0;
#X obj 439 185 cowbell~ \$0 1;
#X obj 527 185 cowbell~ \$0 9;
#X obj 844 204 *~ 0.5;
#X obj 912 204 *~ 0.5;
#X obj 843 181 stcymb~ \$0 4;
#X obj 959 203 *~ 0.5;
#X obj 1032 203 *~ 0.5;
#X obj 958 180 stcymb~ \$0 13;
#X obj 1172 175 bongo~ \$0 11;
#X obj 1263 175 bongo~ \$0 12;
#X obj 183 184 stsnare~ \$0 2;
#X obj 12 19 inlet~;
#X obj 12 380 outlet~;
#X obj 1033 408 outlet~;
#X obj 1081 202 *~ 1.5;
#X obj 1125 201 *~ 1.5;
#X obj 1173 198 *~ 1.5;
#X obj 1219 198 *~ 1.5;
#X obj 1263 198 *~ 1.5;
#X obj 1309 198 *~ 1.5;
#X connect 0 0 23 0;
#X connect 0 1 24 0;
#X connect 1 0 23 0;
......@@ -285,7 +285,9 @@
#X connect 22 0 9 0;
#X connect 22 0 6 0;
#X connect 22 0 0 0;
#X connect 22 0 7 0;
#X connect 22 0 21 0;
#X connect 22 0 8 0;
#X connect 22 0 12 0;
#X connect 22 0 11 0;
#X connect 22 0 10 0;
......@@ -294,8 +296,6 @@
#X connect 22 0 5 0;
#X connect 22 0 20 0;
#X connect 22 0 19 0;
#X connect 22 0 7 0;
#X connect 22 0 8 0;
#X connect 25 0 23 0;
#X connect 26 0 24 0;
#X connect 27 0 23 0;
......@@ -386,6 +386,9 @@ by the three rotaries \, they will affect the last played sound of
the pad last played. Each pad memorizes its parameters., f 38;
#X text 262 330 reset to default;
#X text 261 134 Press up or down button to initialize!;
#X obj 263 454 s polyphony;
#X floatatom 263 428 5 0 0 0 - - -;
#X text 300 429 default: 4;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
......@@ -398,3 +401,4 @@ the pad last played. Each pad memorizes its parameters., f 38;
#X connect 10 0 6 0;
#X connect 12 0 5 0;
#X connect 13 0 5 1;
#X connect 19 0 18 0;
#N canvas 117 66 1233 816 10;
#X msg 279 321 \$1 100;
#X obj 279 342 line~;
#X obj 184 378 *~;
#X obj 184 -3 mtof;
#X obj 280 257 sqrt;
#X msg 468 325 \$1 100;
#X obj 468 346 line~;
#X obj 373 385 *~;
#X obj 468 264 sqrt;
#X text 191 257 del-1 feedback;
#X text 379 265 del-2 feedback;
#X obj 17 52 inlet~;
#X obj 185 590 outlet~;
#X obj 15 614 delwrite~ \$0-d1 100;
#X text 206 500 del rolloff;
#X obj 185 521 chair.dc-offset~;
#X obj 372 416 *~ -1;
#X floatatom 412 431 5 0 0 0 - - -;
#X obj 44 585 expr~ tanh($v1);
#X obj 279 279 * 0.5;
#X obj 183 233 delread4~ \$0-d1;
#X obj 372 236 delread4~ \$0-d1;
#X obj 468 284 * 0.5;
#X obj 279 301 clip 0 0.4999;
#X obj 468 305 clip 0 0.4999;
#X obj 184 95 /;
#X msg 184 72 1000 \$1;
#X msg 373 85 1000 \$1;
#X obj 373 106 /;
#X obj 184 25 t f f f;
#X obj 373 152 line~;
#X obj 184 143 line~;
#X msg 373 129 \$1 10;
#X msg 184 120 \$1 10;
#X floatatom 468 173 5 0 0 0 - - -;
#X floatatom 435 495 5 0 0 0 - - -;
#X obj 435 518 sig~ 0.25;
#X obj 185 477 lop~ 800;
#X obj 371 489 allp-d~ 3;
#X obj 411 454 sig~ 0.28;
#X obj 372 520 allp-d~;
#X obj 372 588 outlet~;
#X obj 29 94 r \$1-fieldn;
#X obj 29 117 == \$2;
#X obj 572 132 r \$1-params-list;
#X obj 572 155 route \$2;
#X obj 572 178 unpack f f f;
#X obj 572 208 s \$0-param-1;
#X obj 605 233 s \$0-param-2;
#X obj 641 258 s \$0-param-3;
#X obj 468 126 * 0.2;
#X obj 468 149 + 0.8;
#X obj 468 103 r \$0-param-2;
#X obj 230 445 + 1800;
#X obj 184 -48 * 26;
#X obj 184 -25 + 34;
#X obj 184 -68 r \$0-param-1;
#X obj 373 64 * 4.02;
#X obj 184 190 +~;
#X obj 357 190 +~;
#X obj 250 103 osc~ 6.5;
#X obj 265 23 r \$0-param-3;
#X obj 265 46 pow 4;
#X obj 265 69 * 2;
#X obj 250 126 *~;
#X obj 570 98 switch~ 1 1 1;
#X obj 570 -52 r \$1-fieldn;
#X obj 570 -29 == \$2;
#X obj 626 44 del 6000;
#X msg 603 69 0;
#X msg 570 66 1;
#X msg 597 18 stop;
#X obj 570 -6 sel 1, f 13;
#X obj 16 139 chair.touchgate~ 0.5 5;
#X obj 645 18 t b;
#N canvas 117 188 1233 816 10;
#X msg 286 433 \$1 100;
#X obj 286 454 line~;
#X obj 191 490 *~;
#X obj 191 109 mtof;
#X obj 287 369 sqrt;
#X msg 475 437 \$1 100;
#X obj 475 458 line~;
#X obj 380 497 *~;
#X obj 475 376 sqrt;
#X text 198 369 del-1 feedback;
#X text 386 377 del-2 feedback;
#X obj 24 164 inlet~;
#X obj 192 702 outlet~;
#X obj 22 726 delwrite~ \$0-d1 100;
#X text 213 612 del rolloff;
#X obj 192 633 chair.dc-offset~;
#X obj 379 528 *~ -1;
#X floatatom 419 543 5 0 0 0 - - -;
#X obj 51 697 expr~ tanh($v1);
#X obj 286 391 * 0.5;
#X obj 190 345 delread4~ \$0-d1;
#X obj 379 348 delread4~ \$0-d1;
#X obj 475 396 * 0.5;
#X obj 286 413 clip 0 0.4999;
#X obj 475 417 clip 0 0.4999;
#X obj 191 207 /;
#X msg 191 184 1000 \$1;
#X msg 380 197 1000 \$1;
#X obj 380 218 /;
#X obj 191 137 t f f f;
#X obj 380 264 line~;
#X obj 191 255 line~;
#X msg 380 241 \$1 10;
#X msg 191 232 \$1 10;
#X floatatom 475 285 5 0 0 0 - - -;
#X floatatom 442 607 5 0 0 0 - - -;
#X obj 442 630 sig~ 0.25;
#X obj 192 589 lop~ 800;
#X obj 378 601 allp-d~ 3;
#X obj 418 566 sig~ 0.28;
#X obj 379 632 allp-d~;
#X obj 379 700 outlet~;
#X obj 36 206 r \$1-fieldn;
#X obj 36 229 == \$2;
#X obj 579 244 r \$1-params-list;
#X obj 579 267 route \$2;
#X obj 579 290 unpack f f f;
#X obj 579 320 s \$0-param-1;
#X obj 612 345 s \$0-param-2;
#X obj 648 370 s \$0-param-3;
#X obj 475 238 * 0.2;
#X obj 475 261 + 0.8;
#X obj 475 215 r \$0-param-2;
#X obj 237 557 + 1800;
#X obj 191 64 * 26;
#X obj 191 87 + 34;
#X obj 191 44 r \$0-param-1;
#X obj 380 176 * 4.02;
#X obj 191 302 +~;
#X obj 364 302 +~;
#X obj 257 215 osc~ 6.5;
#X obj 272 135 r \$0-param-3;
#X obj 272 158 pow 4;
#X obj 272 181 * 2;
#X obj 257 238 *~;
#X obj 23 251 chair.touchgate~ 0.5 5;
#X obj 577 131 r \$1-fieldn;
#X obj 577 180 switch~ 1 1 1;
#X obj 577 155 chair.polyphony \$2;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 37 0;
......@@ -83,7 +77,7 @@
#X connect 6 0 7 1;
#X connect 7 0 16 0;
#X connect 8 0 22 0;
#X connect 11 0 73 0;
#X connect 11 0 65 0;
#X connect 15 0 12 0;
#X connect 15 0 18 0;
#X connect 16 0 38 0;
......@@ -116,7 +110,7 @@
#X connect 40 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 43 0;
#X connect 43 0 73 1;
#X connect 43 0 65 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
......@@ -138,14 +132,6 @@
#X connect 63 0 64 1;
#X connect 64 0 58 1;
#X connect 64 0 59 0;
#X connect 66 0 67 0;
#X connect 67 0 72 0;
#X connect 68 0 69 0;
#X connect 69 0 65 0;
#X connect 70 0 65 0;
#X connect 71 0 68 0;
#X connect 72 0 70 0;
#X connect 72 0 71 0;
#X connect 72 1 74 0;
#X connect 73 0 13 0;
#X connect 74 0 68 0;
#X connect 65 0 13 0;
#X connect 66 0 68 0;
#X connect 68 0 67 0;
#N canvas 84 61 1125 711 10;
#N canvas 84 188 1125 711 10;
#X obj 24 27 inlet~;
#X obj 178 546 sig~;
#X obj 23 827 +~;
......@@ -119,17 +119,11 @@
#X obj 176 100 pow 4;
#X obj 176 77 r \$0-param-2;
#X obj 176 123 * 0.1;
#X obj 576 170 switch~ 1 1 1;
#X obj 576 20 r \$1-fieldn;
#X obj 576 43 == \$2;
#X obj 632 116 del 6000;
#X msg 609 141 0;
#X msg 576 138 1;
#X msg 603 90 stop;
#X obj 576 66 sel 1, f 13;
#X obj 24 92 chair.touchgate~ 0.5 5;
#X obj 652 91 t b;
#X connect 0 0 128 0;
#X obj 714 39 r \$1-fieldn;
#X obj 714 88 switch~ 1 1 1;
#X obj 714 63 chair.polyphony \$2;
#X connect 0 0 120 0;
#X connect 1 0 92 2;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
......@@ -169,7 +163,7 @@
#X connect 36 1 38 0;
#X connect 36 2 39 0;
#X connect 40 0 41 0;
#X connect 41 0 128 1;
#X connect 41 0 120 1;
#X connect 42 0 13 0;
#X connect 43 0 101 0;
#X connect 44 0 13 1;
......@@ -252,15 +246,7 @@
#X connect 117 0 119 0;
#X connect 118 0 117 0;
#X connect 119 0 98 1;
#X connect 121 0 122 0;
#X connect 122 0 127 0;
#X connect 123 0 124 0;
#X connect 124 0 120 0;
#X connect 125 0 120 0;
#X connect 126 0 123 0;
#X connect 127 0 125 0;
#X connect 127 0 126 0;
#X connect 127 1 129 0;
#X connect 128 0 2 0;
#X connect 128 0 83 0;
#X connect 129 0 123 0;
#X connect 120 0 2 0;
#X connect 120 0 83 0;
#X connect 121 0 123 0;
#X connect 123 0 122 0;
#N canvas 30 61 941 921 10;
#N canvas 2506 236 941 921 10;
#X obj 24 27 inlet~;
#X obj 23 827 +~;
#X obj 51 854 delwrite~ \$0-del 200;
......@@ -22,12 +22,12 @@
#X obj 717 195 + 92;
#X floatatom 717 284 5 0 0 0 - - -;
#X obj 718 73 r \$1-xy;
#X obj 527 195 r \$1-params-list;
#X obj 527 218 route \$2;
#X obj 527 241 unpack f f f;
#X obj 527 271 s \$0-param-1;
#X obj 560 296 s \$0-param-2;
#X obj 596 321 s \$0-param-3;
#X obj 527 225 r \$1-params-list;
#X obj 527 248 route \$2;
#X obj 527 271 unpack f f f;
#X obj 527 301 s \$0-param-1;
#X obj 560 326 s \$0-param-2;
#X obj 596 351 s \$0-param-3;
#X obj 37 89 r \$1-fieldn;
#X obj 37 112 == \$2;
#X obj 112 596 sig~ 0.09;
......@@ -106,17 +106,11 @@
#X obj 311 298 delread4~ \$0-del-r;
#X obj 312 863 delwrite~ \$0-del-r 200;
#X obj 283 887 outlet~;
#X obj 530 168 switch~ 1 1 1;
#X obj 530 18 r \$1-fieldn;
#X obj 530 41 == \$2;
#X obj 586 114 del 6000;
#X msg 563 139 0;
#X msg 530 136 1;
#X msg 557 88 stop;
#X obj 530 64 sel 1, f 13;
#X obj 24 134 chair.touchgate~ 0.5 5;
#X obj 605 91 t b;
#X connect 0 0 115 0;
#X obj 528 104 r \$1-fieldn;
#X obj 528 153 switch~ 1 1 1;
#X obj 528 128 chair.polyphony \$2;
#X connect 0 0 107 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 4 0 21 0;
......@@ -143,7 +137,7 @@
#X connect 25 1 27 0;
#X connect 25 2 28 0;
#X connect 29 0 30 0;
#X connect 30 0 115 1;
#X connect 30 0 107 1;
#X connect 31 0 7 0;
#X connect 32 0 56 0;
#X connect 33 0 7 1;
......@@ -223,15 +217,7 @@
#X connect 102 0 103 1;
#X connect 103 0 104 0;
#X connect 104 0 81 0;
#X connect 108 0 109 0;
#X connect 109 0 114 0;
#X connect 110 0 111 0;
#X connect 111 0 107 0;
#X connect 112 0 107 0;
#X connect 113 0 110 0;
#X connect 114 0 112 0;
#X connect 114 0 113 0;
#X connect 114 1 116 0;
#X connect 115 0 1 0;
#X connect 115 0 64 0;
#X connect 116 0 110 0;
#X connect 107 0 1 0;
#X connect 107 0 64 0;
#X connect 108 0 110 0;
#X connect 110 0 109 0;
#N canvas 465 93 1312 924 10;
#N canvas 465 188 1312 924 10;
#X obj 45 -13 inlet~;
#X obj 72 783 *~ 0.98;
#X obj 46 806 +~;
......@@ -126,17 +126,11 @@
#X obj 381 860 outlet~;
#X obj 407 255 delread~ \$0-del-r 2.95;
#X obj 391 831 delwrite~ \$0-del-r 200;
#X obj 701 164 switch~ 1 1 1;
#X obj 701 14 r \$1-fieldn;
#X obj 701 37 == \$2;
#X msg 734 135 0;
#X msg 701 132 1;
#X msg 728 84 stop;
#X obj 701 60 sel 1, f 13;
#X obj 46 60 chair.touchgate~ 0.5 5;
#X obj 771 86 t b;
#X obj 757 110 del 6000;
#X connect 0 0 134 0;
#X obj 700 98 r \$1-fieldn;
#X obj 700 147 switch~ 1 1 1;
#X obj 700 122 chair.polyphony \$2;
#X connect 0 0 127 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
......@@ -204,7 +198,7 @@
#X connect 66 0 18 1;
#X connect 67 0 43 0;
#X connect 68 0 69 0;
#X connect 69 0 134 1;
#X connect 69 0 127 1;
#X connect 70 0 16 0;
#X connect 71 0 41 0;
#X connect 72 0 73 1;
......@@ -263,15 +257,7 @@
#X connect 122 0 87 1;
#X connect 123 0 110 0;
#X connect 125 0 85 0;
#X connect 128 0 129 0;
#X connect 129 0 133 0;
#X connect 130 0 127 0;
#X connect 131 0 127 0;
#X connect 132 0 136 0;
#X connect 133 0 131 0;
#X connect 133 0 132 0;
#X connect 133 1 135 0;
#X connect 134 0 2 0;
#X connect 134 0 73 0;
#X connect 135 0 136 0;
#X connect 136 0 130 0;
#X connect 127 0 2 0;
#X connect 127 0 73 0;
#X connect 128 0 130 0;
#X connect 130 0 129 0;
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment