f0-pkt-28.hs

-- http://www.fredrikolofsson.com/f0blog/?q=node/490 (f0)
let n = 28
    pkt i =
      let a = lfSaw ar ((i + 1) * 5) 0 * 0.5 * pi
          b = sinOsc ar ((i + 1) * 0.001) 0 * 0.5
          c = max (lfSaw ar (0.2 + b) (i / constant n) * 0.4) 0
          d = sinOsc ar 0.03 (i + 1) * 0.5 + 1
          e = sinOsc ar (200 + i) 0 * d
          f = sinOsc ar 0.04 (i + 2) * 0.5 + 1
          g = sinOsc ar (400 + i) 0 * f
          h = sinOsc ar 0.05 (i + 3) * 0.5 + 1
          j = sinOsc ar (800 + i) 0 * h
          k = linExp i 0 (constant n - 1) 70 1500
          z = sinOsc ar k a * c * e * g * j
          l = linLin i 0 (constant n - 1) (-0.925) 0.925
      in pan2 z l (1 / constant n)
    y = limiter (leakDC (mixFill n pkt) 0.995) 1 0.01
in gVerb y 3 5 0.2 0.8 20 0.1 0.7 0.5 300 * 0.2