Hi,<br>I've given this topic a thought in a sleepless night because I always wanted to build a drum machine myself. after some reading (indeed SOS articles are pretty damn convenient..) I've build a few patches. hihats snare and bd. I'm willing to share some on the board for everyone who's interrested. <br>
They're still a bit sloppy but simple. The pulsgen's of the hihats need some more tuning. Also the snare is likely to be modified a bit for a better sound. The bassdrum is still a mess so i won't share this one, unless someone is in need for it...<br>
cheers,<br>Jeroen.<br><br>snare:<br><br>max v2;<br>#N vpatcher 420 203 1125 833;<br>#P origin 0 -104;<br>#P window setfont "Sans Serif" 9.;<br>#P window linecount 1;<br>#P newex 266 43 144 9109513 unpack f f f f f f f f f f f;<br>
#P newex 266 22 205 9109513 loadmess 0.3 0.65 5 81 2 39 0 172 0.9 4700 0;<br>#P newex 112 560 46 9109513 clip~ -1 1;<br>#P user scope~ 361 569 491 699 256 3 128 -1. 1. 0 0. 0 0. 102 255 51 135 135 135 0;<br>#P newex 112 534 33 9109513 *~ 0.6;<br>
#P newex 475 404 25 9109513 sig~;<br>#P flonum 475 385 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P newex 64 326 25 9109513 sig~;<br>#P newex 27 325 25 9109513 sig~;<br>#P flonum 64 307 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>
#P flonum 27 307 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P user ezdac~ 105 655 149 688 0;<br>#P flonum 611 364 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P number 574 364 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>
#P number 528 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P number 492 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P number 451 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P number 415 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>
#P number 374 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P number 338 151 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P message 149 82 23 9109513 127;<br>#P message 274 194 34 9109513 set \$1;<br>
#P message 216 233 14 9109513 0;<br>#P newex 244 170 40 9109513 t b b f;<br>#P newex 244 146 83 9109513 scale 0 127 0.5 1.;<br>#P inlet 244 127 15 0;<br>#P newex 112 508 27 9109513 +~;<br>#P newex 112 439 27 9109513 +~;<br>
#P newex 531 454 27 9109513 *~;<br>#P newex 172 391 27 9109513 *~;<br>#P newex 112 391 27 9109513 *~;<br>#P newex 531 423 53 9109513 svf~;<br>#P newex 531 398 53 9109513 svf~;<br>#P newex 531 356 27 9109513 *~;<br>#P newex 548 304 35 9109513 noise~;<br>
#P newex 376 210 45 9109513 loadbang;<br>#P newex 415 307 66 9109513 adsr~;<br>#P message 281 233 14 9109513 1.;<br>#P message 376 267 14 9109513 0;<br>#P message 376 249 64 9109513 maxsustain 0;<br>#P message 376 231 55 9109513 retrigger 10;<br>
#P newex 348 307 66 9109513 adsr~;<br>#P newex 281 307 66 9109513 adsr~;<br>#P newex 172 356 27 9109513 *~;<br>#P newex 172 268 54 9109513 cycle~ 320;<br>#P newex 112 356 27 9109513 *~;<br>#P newex 112 268 54 9109513 cycle~ 154;<br>
#P comment 92 83 49 9109513 trigger ->>;<br>#P comment 426 383 44 9109513 "snappy";<br>#P comment 496 117 100 9109513 envelope values...;<br>#P connect 49 0 39 0;<br>#P connect 39 0 41 0;<br>#P connect 49 1 40 0;<br>
#P connect 40 0 42 0;<br>#P connect 47 0 38 0;<br>#P connect 3 0 4 0;<br>#P connect 4 0 19 0;<br>#P connect 19 0 22 0;<br>#P connect 22 0 23 0;<br>#P connect 23 0 45 0;<br>#P connect 45 0 47 0;<br>#P fasten 7 0 4 1 286 339 134 339;<br>
#P connect 41 0 19 1;<br>#P fasten 20 0 22 1 177 425 134 425;<br>#P fasten 21 0 23 1 536 490 134 490;<br>#P connect 47 0 38 1;<br>#P fasten 27 0 3 1 221 259 161 259;<br>#P connect 5 0 6 0;<br>#P connect 6 0 20 0;<br>#P fasten 8 0 6 1 353 344 194 344;<br>
#P connect 42 0 20 1;<br>#P fasten 26 1 27 0 264 202 221 202;<br>#P connect 27 0 5 1;<br>#P connect 29 0 25 0;<br>#P connect 24 0 25 0;<br>#P connect 25 0 26 0;<br>#P connect 48 0 49 0;<br>#P connect 26 2 28 0;<br>#P fasten 26 0 12 0 249 226 286 226;<br>
#P fasten 28 0 12 0 279 222 286 222;<br>#P connect 12 0 7 0;<br>#P connect 10 0 7 0;<br>#P connect 9 0 7 0;<br>#P connect 30 0 7 1;<br>#P connect 31 0 7 2;<br>#P fasten 11 0 7 3 381 302 328 302;<br>#P fasten 11 0 7 4 381 302 342 302;<br>
#P connect 49 2 30 0;<br>#P fasten 12 0 8 0 286 295 353 295;<br>#P connect 10 0 8 0;<br>#P connect 9 0 8 0;<br>#P connect 47 0 46 0;<br>#P connect 32 0 8 1;<br>#P connect 49 3 31 0;<br>#P connect 14 0 9 0;<br>#P connect 14 0 10 0;<br>
#P connect 14 0 11 0;<br>#P connect 33 0 8 2;<br>#P fasten 11 0 8 3 381 302 395 302;<br>#P fasten 11 0 8 4 381 302 409 302;<br>#P connect 49 4 32 0;<br>#P fasten 12 0 13 0 286 295 420 295;<br>#P connect 10 0 13 0;<br>#P connect 9 0 13 0;<br>
#P connect 34 0 13 1;<br>#P connect 35 0 13 2;<br>#P connect 49 5 33 0;<br>#P fasten 11 0 13 3 381 302 462 302;<br>#P fasten 11 0 13 4 381 302 476 302;<br>#P connect 49 8 43 0;<br>#P connect 43 0 44 0;<br>#P connect 49 6 34 0;<br>
#P connect 49 7 35 0;<br>#P fasten 13 0 16 0 420 337 536 337;<br>#P connect 16 0 17 0;<br>#P connect 17 1 18 0;<br>#P connect 18 0 21 0;<br>#P connect 15 0 16 1;<br>#P connect 44 0 21 1;<br>#P connect 36 0 17 1;<br>#P connect 36 0 18 1;<br>
#P connect 37 0 17 2;<br>#P connect 37 0 18 2;<br>#P connect 49 9 36 0;<br>#P connect 49 10 37 0;<br>#P pop;<br><br>hihats:<br><br>max v2;<br>#N vpatcher 406 179 1006 827;<br>#P origin 0 -40;<br>#P window setfont "Sans Serif" 9.;<br>
#P window linecount 1;<br>#P newex 310 400 46 9109513 clip~ -1 1;<br>#P newex 53 237 27 9109513 *~;<br>#P newex 99 237 27 9109513 *~;<br>#P newex 70 211 27 9109513 +~ 1;<br>#P flonum 116 123 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>
#P newex 70 190 27 9109513 !-~;<br>#P newex 116 164 25 9109513 sig~;<br>#P newex 116 143 27 9109513 * 0.;<br>#P newex 447 202 45 9109513 loadbang;<br>#P newex 277 70 73 9109513 unpack f f f f f;<br>#P newex 277 47 142 9109513 loadmess 0.75 10000 0.27 2. 90;<br>
#N vpatcher 15 55 615 455;<br>#P origin 0 -3;<br>#P window setfont "Sans Serif" 9.;<br>#P newex 124 42 64 9109513 loadmess 0.1;<br>#P flonum 194 89 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P newex 194 250 52 9109513 rect~ 1742;<br>
#P newex 181 228 52 9109513 rect~ 1347;<br>#P newex 163 206 52 9109513 rect~ 2498;<br>#P newex 141 183 52 9109513 rect~ 1184;<br>#P newex 117 163 52 9109513 rect~ 1425;<br>#P newex 148 301 37 9109513 +~ -0.5;<br>#P newex 94 142 52 9109513 rect~ 1040;<br>
#P outlet 148 325 15 0;<br>#P connect 8 0 1 1;<br>#P connect 8 0 3 1;<br>#P connect 1 0 2 0;<br>#P connect 3 0 2 0;<br>#P connect 4 0 2 0;<br>#P connect 5 0 2 0;<br>#P connect 6 0 2 0;<br>#P connect 7 0 2 0;<br>#P connect 2 0 0 0;<br>
#P connect 8 0 4 1;<br>#P connect 8 0 5 1;<br>#P connect 9 0 8 0;<br>#P connect 8 0 6 1;<br>#P connect 8 0 7 1;<br>#P pop;<br>#P newobj 53 56 58 9109513 p pulsebank;<br>#P message 460 236 14 9109513 0;<br>#P user scope~ 406 440 536 570 256 3 128 -1. 1. 0 0. 0 0. 102 255 51 135 135 135 0;<br>
#P newex 310 350 27 9109513 *~;<br>#P message 223 129 14 9109513 1;<br>#P flonum 372 157 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P flonum 334 158 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P message 371 291 64 9109513 maxsustain 0;<br>
#P message 357 273 55 9109513 retrigger 10;<br>#P newex 336 322 66 9109513 adsr~;<br>#P newex 229 309 53 9109513 svf~;<br>#P newex 100 76 35 9109513 noise~;<br>#P user ezdac~ 269 501 313 534 0;<br>#P newex 310 374 33 9109513 *~ 0.3;<br>
#P flonum 249 237 42 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P flonum 277 256 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;<br>#P newex 228 279 53 9109513 svf~;<br>#P comment 178 130 44 9109513 trigger ->;<br>
#P comment 347 135 100 9109513 attack / decay;<br>#P comment 247 217 120 9109513 bandpass freq / resonance;<br>#P window linecount 2;<br>#P comment 136 61 122 9109513 <<--tweak freqs in pulsebank for better sound;<br>
#P connect 20 0 30 0;<br>#P fasten 25 0 26 0 121 187 75 187;<br>#P connect 26 0 28 0;<br>#P connect 28 0 30 1;<br>#P connect 9 0 29 0;<br>#P connect 22 0 27 0;<br>#P connect 27 0 24 0;<br>#P connect 24 0 25 0;<br>#P connect 25 0 29 1;<br>
#P connect 27 0 24 1;<br>#P fasten 30 0 4 0 58 267 233 267;<br>#P fasten 29 0 4 0 104 267 233 267;<br>#P connect 4 2 10 0;<br>#P connect 22 1 6 0;<br>#P connect 6 0 4 1;<br>#P connect 6 0 10 1;<br>#P connect 31 0 8 0;<br>
#P connect 5 0 4 2;<br>#P connect 5 0 10 2;<br>#P connect 21 0 22 0;<br>#P connect 22 2 5 0;<br>#P connect 31 0 8 1;<br>#P connect 10 2 17 0;<br>#P connect 17 0 7 0;<br>#P connect 7 0 31 0;<br>#P connect 11 0 17 1;<br>#P connect 22 3 14 0;<br>
#P connect 16 0 11 0;<br>#P connect 13 0 11 0;<br>#P connect 12 0 11 0;<br>#P connect 14 0 11 1;<br>#P connect 23 0 12 0;<br>#P connect 15 0 11 2;<br>#P connect 23 0 13 0;<br>#P connect 22 4 15 0;<br>#P connect 19 0 11 3;<br>
#P connect 19 0 11 4;<br>#P connect 31 0 18 0;<br>#P connect 23 0 19 0;<br>#P pop;<br><br><br><br>