hsc3-graphs-0.12: gr/f0-tw0014.hs

-- http://fredrikolofsson.com/f0blog/?q=node/478 (f0)

import Sound.SC3 {- hsc3 -}

f0_tw0014 :: UGen
f0_tw0014 =
    let a = sinOscFB AR
        k = 1/9
        f i = let a0 = a (i+1) k * 999
                  a1 = a k 1 * k
                  a2 = a a0 k * a1
                  a3 = a 0.1 3
                  a4 = a a2 a3 * ((i+2) * 999)
                  a5 = a k k
              in a a4 a5 * k
        s = sum (map f [0..9])
    in out 0 (mce2 s s)

main :: IO ()
main = audition f0_tw0014