analogSnareDrum.help.hs

-- analogSnareDrum
let trig = dust2Id 'α' kr 8
    infsustain = 0.0
    accent = 0.25
    freq = tExpRandId 'β' 40 220  trig
    tone = tRandId 'γ' 0.0 0.4 trig
    decay = tRandId 'δ' 0.1 0.8 trig
    snappy = tRandId 'ε' 0.0 0.9  trig
    sig = X.analogSnareDrum ar trig infsustain accent freq tone decay snappy
in pan2 sig (tRandId 'ζ' (-1) 1 trig) 0.1

-- analogSnareDrum ; event control
let f (_,g,x,y,z,o,rx,ry,_,_,_) =
      let freq = midiCps (x * 25 + 36)
          tr = trig g controlDur
          sig = X.analogSnareDrum ar tr 0 z freq y rx (ry * 2)
      in pan2 sig (o * 2 - 1) (lagUD g 0 2)
in mix (voicer 16 f) * control kr "gain" 0.25