drummer.lhs

drummer (thor magnusson)

> do { n <- M.whiteNoise ar
>    ; let { tempo = 4
>          ; dup a = mce2 a a 
>          ; tr = impulse ar tempo 0
>          ; tr_2 = pulseDivider tr 4 2
>          ; tr_4 = pulseDivider tr 4 0
>          ; snare = n * decay2 tr_2 0.005 0.5
>          ; bass = sinOsc ar 60 0 * decay2 tr_4 0.005 0.5
>          ; hihat = hpf n 10000 * decay2 tr 0.005 0.5 }
>      in audition (out 0 (pan2 (snare + bass + hihat) 0 0.4)) }

{ var tempo = 4
; var n = WhiteNoise.ar()
; var tr = Impulse.ar(tempo, 0)
; var tr_2 = PulseDivider.ar(tr, 4, 2)
; var tr_4 = PulseDivider.ar(tr, 4, 0)
; var snare = n * Decay2.ar(tr_2, 0.005, 0.5)
; var bass = SinOsc.ar(60, 0) * Decay2.ar(tr_4, 0.005, 0.5)
; var hihat = HPF.ar(n, 10000) * Decay2.ar(tr, 0.005, 0.5)
; Out.ar(0, Pan2.ar(snare + bass + hihat, 0, 0.4)) }.play