packages feed

hsc3-graphs-0.8: src/drummer.lhs

drummer (thor magnusson)

> import Sound.SC3.ID

> main =
>   let { n = whiteNoise 'α' AR
>       ; tempo = 4
>       ; 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