F0_f0_tw0045.hs

-- www.fredrikolofsson.com/f0blog/?q=node/537 (f0)
module Sound.SC3.Graph.F0_f0_tw0045 where

import Sound.SC3 {- hsc3 -}

f0_0045 :: UGen
f0_0045 =
    let a i j k l = sinOsc AR i j * k + l
        f = a (a 0.11 0 1 0) 0 1 0
        p_f = a (95 * a 0.01 0 1 1) 0 (a 5e-3 0 50 0) 100
        p = a p_f (a (mce2 98 97) 0 1 0) (pi + a 5e-4 0 1 0) 0
    in tanh (a f p 1 0) * 0.1

main :: IO ()
main = audition (out 0 f0_0045)