f0-pkt-07.hs

-- http://www.fredrikolofsson.com/f0blog/?q=node/490 (f0)
let param n =
      let f g z = take n (iterate g z)
      in zip4 (f (* 4) 2) (f (/ 2) (1/2)) (f (* 4) 1) (f (* 4) 2)
    gen f0 (m,f1,l,r) = sinOsc ar f0 0 * m + linExp (sinOsc ar f1 0) (-1) 1 l r
    pkt n =
      let c = foldl gen 1 (param n)
          o = sinOsc ar c 0 * 0.1
      in gVerb (leakDC o 0.995) 16 8 0.75 0.5 15 1 0.7 0.5 16 * 0.1
in pkt 12