hdf-0.15: gr/drummer.hs

import Sound.DF.Uniform.GADT {- hdf -}

-- > draw drummer
drummer :: DF ()
drummer =
  let n = white_noise 0
      tempo = 4
      tr = impulse tempo 0
      tr_2 = pulse_divider' tr 4 2
      tr_4 = pulse_divider' tr 4 0
      snare = n * decay2 tr_2 0.005 0.5
      bass = sin_osc 60 0 * decay2 tr_4 0.005 0.5
      hihat = hpf n 10000 * decay2 tr 0.005 0.5
  in out1 ((snare + bass + hihat) * 0.4)

main :: IO ()
main = audition_rju [] drummer