F0_f0_tw0030.hs

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

import Sound.SC3 {- hsc3 -}

f0_0030 :: UGen
f0_0030 =
    let a i j k l = lfPar AR i j * k + l
        f = a 1 0 5 (a (mce2 0.05 0.04) 0 50 160 `roundTo` 50)
        w = a 0.2 0 0.5 (a 3 0 0.2 0.5)
        o = varSaw AR f 0 w / 8
    in out 0 (gVerb o 80 3 0.5 0.5 15 1 0.7 0.5 300 * 0.1)

main :: IO ()
main = audition f0_0030