-- dark sea horns (jl)
-- http://sccode.org/1-j#c51

import Sound.SC3.ID

dark_sea_horns :: UGen
dark_sea_horns =
    let n = lfNoise1
        x = localIn 2 AR
        a = tanh (sinOsc AR 65 (x * n 'a' AR 0.1 * 3) * (n 'a' AR 3 * 6))
        f i = allpassN i 0.3 (udup 2 (rand 'a' 0.1 0.3)) 5
        o = tanh (useq 'a' 9 f a)
    in mrg2 o (localOut o)

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

{-
Sound.SC3.UGen.Dot.draw dark_sea_horns
-}