hsc3-graphs-0.11: src/rain-thunder.hs

-- rain, thunder (jl)
-- http://sccode.org/1-e

import Sound.SC3.ID

rain_thunder :: UGen
rain_thunder =
    let n0 = pinkNoise 'a' AR * (0.08 + lfNoise1 'a' KR 0.3 * 0.02)
        d0 = lpf (dust2 'b' AR (range 40 50 (lfNoise1 'b' KR 0.2))) 7000
        e0 = line KR 0 1 10 DoNothing
        p0 = tanh (3 * gVerb (hpf (n0+d0) 400) 250 100 0.25 0.5 15 0.3 0.7 0.5 300 * e0)
        lfNoise1C e r f = clip (lfNoise1 e r f) 0 1
        n1 = pinkNoise 'c' AR * ((lfNoise1C 'c' KR 3 * lfNoise1C 'c' KR 2) ** 1.8)
        f1 = linExp (lfNoise1 'd' KR 1) (-1) 1 100 2500
        e1 = line KR 0 0.7 30 DoNothing
        p1 = gVerb (tanh (lpf (10 * hpf n1 20) f1)) 270 30 0.7 0.5 15 0.5 0.7 0.5 300 * e1
    in limiter (p0 + p1) 1 0.01

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

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