analog-modelling 808 hihat and cowbell - Pd-list

8 Jul 2008 · *~ 0.7; #X obj 29 94 *


      hey everyone,
to complement Roman Haefeli's excellent 808 kick and clap abstractions 
(http://www.romanhaefeli.net/software/pd/rdz_dsplib.tar.gz), i've put 
together a hihat and cowbell, constructed by close listening to a 
collection of 808 samples. it's not perfect but it's close enough.
put all the attached patches together in the same folder and open 808test.pd.
enjoy, and send me links to audio if you use it :-)
take care
d
-- 
damian stewart | +31 6 5902 5782 |  damian@frey.co.nz
frey | live art with machines | http://www.frey.co.nz

#N canvas 187 161 622 421 10;
#X obj 66 249 808cowbell;
#X obj 67 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 163 247 808hihat;
#X obj 188 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 340 95 hsl 128 15 0.7 1.3 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 7700 1;
#X text 351 79 master tuning;
#X obj 337 161 s 808-tuning;
#X obj 382 281 808brain;
#X obj 162 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 375 128 5 0 0 0 - - -;
#X obj 153 324 dac~;
#X obj 252 99 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 12700 1;
#X text 159 80 CH;
#X text 188 80 OH;
#X text 67 79 CB;
#X text 228 79 OH decay;
#X obj 337 8 loadbang;
#X msg 337 28 1;
#X connect 0 0 10 0;
#X connect 0 0 10 1;
#X connect 1 0 0 0;
#X connect 2 0 10 0;
#X connect 2 0 10 1;
#X connect 2 1 10 0;
#X connect 2 1 10 1;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 4 0 9 0;
#X connect 8 0 2 0;
#X connect 11 0 2 2;
#X connect 16 0 17 0;
#X connect 17 0 4 0;

#N canvas 482 294 491 373 10;
#X obj 30 116 s~ 808-sq-1;
#X obj 25 210 s~ 808-sq-2;
#X obj 24 300 s~ 808-sq-3;
#X obj 190 126 s~ 808-sq-4;
#X obj 185 210 s~ 808-sq-5;
#X obj 194 306 s~ 808-sq-6;
#X obj 105 11 r 808-tuning;
#X obj 190 98 *~ 0.7;
#X obj 29 94 *~ 0.9;
#X obj 31 49 * 210;
#X obj 189 50 * 540;
#X obj 183 164 * 550;
#X obj 194 256 * 800;
#X obj 24 253 * 380;
#X obj 24 162 * 320;
#X obj 190 72 d-square~ 540;
#X obj 186 187 d-square~ 550;
#X obj 194 283 d-square~ 800;
#X obj 24 276 d-square~ 380;
#X obj 23 187 d-square~ 320;
#X obj 29 73 d-square~ 210;
#X text 327 166 808 support;
#X text 325 210 damian@frey.co.nz;
#X text 325 195 damian stewart 2008;
#X text 328 241 GPL v3;
#X connect 6 0 9 0;
#X connect 6 0 10 0;
#X connect 6 0 11 0;
#X connect 6 0 12 0;
#X connect 6 0 13 0;
#X connect 6 0 14 0;
#X connect 7 0 3 0;
#X connect 8 0 0 0;
#X connect 9 0 20 0;
#X connect 10 0 15 0;
#X connect 11 0 16 0;
#X connect 12 0 17 0;
#X connect 13 0 18 0;
#X connect 14 0 19 0;
#X connect 15 0 7 0;
#X connect 16 0 4 0;
#X connect 17 0 5 0;
#X connect 18 0 2 0;
#X connect 19 0 1 0;
#X connect 20 0 8 0;

#N canvas 636 171 503 465 10;
#X obj 106 236 line~;
#X obj 94 281 *~;
#X text 11 109 attack;
#X obj 23 32 inlet;
#X obj 21 59 t b;
#X obj 107 260 *~;
#X obj 88 141 +~;
#X obj 97 378 *~ 0.2;
#X msg 22 91 1 2;
#X obj 107 169 del 2.2;
#X msg 106 201 0.3 70;
#X obj 106 335 bpq2~ 2691 1.631 100;
#X obj 201 171 del 76;
#X obj 88 101 r~ 808-sq-4;
#X obj 213 100 r~ 808-sq-6;
#X obj 95 409 outlet~;
#X text 196 154 release;
#X text 106 156 decay/sus;
#X msg 202 201 0 400;
#X text 323 382 damian@frey.co.nz;
#X text 323 367 damian stewart 2008;
#X text 326 413 GPL v3;
#X text 324 338 808 cowbell;
#X text 20 9 bang to trigger;
#X connect 0 0 5 0;
#X connect 0 0 5 1;
#X connect 1 0 11 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 4 0 9 0;
#X connect 4 0 12 0;
#X connect 5 0 1 1;
#X connect 6 0 1 0;
#X connect 7 0 15 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 7 0;
#X connect 12 0 18 0;
#X connect 13 0 6 0;
#X connect 14 0 6 1;
#X connect 18 0 0 0;

#N canvas 189 357 478 328 10;
#X obj 78 238 clip~ -1 1;
#X obj 80 213 *~ 10000;
#X obj 85 275 outlet~;
#X text 268 222 basic square wave;
#X obj 180 83 random 1000;
#X obj 80 189 +~;
#X obj 282 164 d-smooth~;
#X obj 284 43 inlet;
#X obj 281 104 loadbang;
#X obj 283 128 $2;
#X text 272 246 $1 = frequency;
#X text 304 272 (0 = equal);
#X text 270 261 $2 = pulsewidth (-1..1);
#X obj 79 157 osc~;
#X obj 151 41 loadbang;
#X obj 151 62 t b b;
#X obj 89 84 f $1;
#X text 72 5 frequency;
#X text 277 18 pulsewidth;
#X obj 80 34 inlet;
#X obj 78 128 + 0;
#X obj 180 102 / 500;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 4 0 21 0;
#X connect 5 0 1 0;
#X connect 6 0 5 1;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 13 0 5 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 4 0;
#X connect 16 0 20 0;
#X connect 19 0 16 0;
#X connect 20 0 13 0;
#X connect 21 0 20 1;

#N canvas 419 100 748 568 10;
#X obj 204 84 +~;
#X obj 47 268 line~;
#X obj 98 318 *~;
#X obj 66 176 t b;
#X obj 65 119 inlet;
#X obj 51 296 *~;
#X obj 184 5 r~ 808-sq-1;
#X obj 172 31 r~ 808-sq-2;
#X obj 170 57 r~ 808-sq-3;
#X obj 288 4 r~ 808-sq-4;
#X obj 300 30 r~ 808-sq-5;
#X obj 314 56 r~ 808-sq-6;
#X text 514 390 open hh;
#X obj 402 325 line~;
#X obj 393 381 *~;
#X obj 402 93 inlet;
#X obj 395 512 outlet~;
#X obj 108 460 outlet~;
#X obj 404 188 t b b;
#X msg 306 256 0 20;
#X msg 9 222 1 5;
#X obj 45 217 del 6;
#X obj 199 165 clip~ -1 1;
#X obj 104 270 *~ 1;
#X obj 296 296 *~ 1;
#X obj 198 103 hip~ 5000;
#X obj 89 407 *~ 0.06;
#X obj 198 122 bp2~ 8906 1.437 100;
#X obj 662 79 inlet;
#X obj 553 271 pack 0 120;
#X obj 199 142 *~ 100;
#X obj 602 196 * 30;
#X obj 352 227 del 6;
#X obj 388 435 hip~ 5764.1;
#X obj 107 359 hip~ 5764.1;
#X obj 394 404 hip~ 1000.1;
#X obj 394 476 *~ 0.1;
#X obj 99 337 hip~ 5764.1;
#X obj 403 354 *~;
#X obj 519 329 line~;
#X msg 403 292 0;
#X msg 535 296 0;
#X obj 535 242 t b b;
#X obj 412 242 t b b;
#X obj 410 221 del 14;
#X obj 99 216 del 9;
#X text 565 319 combination of linear;
#X text 568 332 and squared grads;
#X msg 354 253 0.6 7;
#X msg 487 293 0.36;
#X obj 553 172 + 80;
#X obj 554 147 * 410;
#X obj 552 199 + 21;
#X obj 504 218 del 721;
#X obj 412 264 pack 0.09 300;
#X msg 505 268 0.3;
#X obj 602 222 + 90;
#X msg 50 236 0.6 10;
#X msg 98 231 0 10;
#X msg 324 198 stop;
#X text 126 294 closed HH;
#X text 251 142 make it noisy;
#X text 406 77 bang to trigger OH;
#X text 39 99 bang to trigger CH;
#X text 624 58 OH decay 0..1;
#X obj 564 55 loadbang;
#X msg 565 84 1;
#X text 542 499 damian@frey.co.nz;
#X text 542 484 damian stewart 2008;
#X text 545 530 GPL v3;
#X text 544 455 808 hihats;
#X connect 0 0 25 0;
#X connect 1 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 37 0;
#X connect 3 0 20 0;
#X connect 3 0 19 0;
#X connect 3 0 21 0;
#X connect 3 0 45 0;
#X connect 3 0 59 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 1;
#X connect 10 0 0 1;
#X connect 11 0 0 1;
#X connect 13 0 38 0;
#X connect 13 0 38 1;
#X connect 14 0 35 0;
#X connect 15 0 18 0;
#X connect 18 0 32 0;
#X connect 18 0 44 0;
#X connect 18 0 53 0;
#X connect 18 1 3 0;
#X connect 19 0 13 0;
#X connect 19 0 39 0;
#X connect 20 0 1 0;
#X connect 21 0 57 0;
#X connect 22 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 2 1;
#X connect 24 0 14 0;
#X connect 25 0 27 0;
#X connect 26 0 17 0;
#X connect 27 0 30 0;
#X connect 28 0 31 0;
#X connect 28 0 51 0;
#X connect 29 0 13 0;
#X connect 30 0 22 0;
#X connect 31 0 56 0;
#X connect 32 0 48 0;
#X connect 33 0 36 0;
#X connect 34 0 26 0;
#X connect 35 0 33 0;
#X connect 36 0 16 0;
#X connect 37 0 34 0;
#X connect 38 0 14 1;
#X connect 39 0 14 1;
#X connect 40 0 13 0;
#X connect 41 0 39 0;
#X connect 42 0 29 0;
#X connect 42 1 55 0;
#X connect 42 1 41 0;
#X connect 43 0 54 0;
#X connect 43 1 49 0;
#X connect 43 1 40 0;
#X connect 44 0 43 0;
#X connect 45 0 58 0;
#X connect 48 0 13 0;
#X connect 49 0 39 0;
#X connect 50 0 52 0;
#X connect 50 0 54 1;
#X connect 51 0 50 0;
#X connect 52 0 53 1;
#X connect 53 0 41 0;
#X connect 53 0 42 0;
#X connect 54 0 39 0;
#X connect 55 0 13 0;
#X connect 56 0 29 1;
#X connect 57 0 1 0;
#X connect 58 0 1 0;
#X connect 59 0 53 0;
#X connect 59 0 44 0;
#X connect 65 0 66 0;
#X connect 66 0 51 0;
#X connect 66 0 31 0;