hsc3-0.20: Help/Graph/f0-pkt-26.hs

-- http://www.fredrikolofsson.com/f0blog/?q=node/490 (f0)
let n = 8
    pkt i =
      let t = i / constant n
          a = abs (varSaw ar 0.02 t 0.5 * 7.5)
          b = varSaw ar 0.16 t (2/3) * a + 300
          c = varSaw ar 0.064 t 0.5 * 25 + 50
          d = varSaw ar 0.012 t 0.75 * c + 200
          e = varSaw ar 0.024 t 0.25 * 0.475 + 0.5
          f = varSaw ar (100 + i) t e
          g = varSaw ar 0.048 0 0.5 * 25 + 150
          h = varSaw ar ((i + 1) * g) t (1/3) * 150
          o = sinOsc ar h (f * pi) * d + b
          z = leakDC (varSaw ar o t 0.5) 0.995
      in pan2 z (varSaw ar 0.02 t 0.5) 1
in mixFill n pkt * (0.25 / constant n)