-- http://sccode.org/1-e (jl)
module Sound.SC3.Graph.JL_rain_thunder where

import Sound.SC3.ID {- hsc3 -}

rain_thunder :: UGen
rain_thunder =
    let n0 = pinkNoise 'α' AR * (0.08 + lfNoise1 'β' KR 0.3 * 0.02)
        d0 = lpf (dust2 'γ' AR (range 40 50 (lfNoise1 'δ' 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 'ε' AR * ((lfNoise1C 'ζ' KR 3 * lfNoise1C 'η' KR 2) ** 1.8)
        f1 = linExp (lfNoise1 'θ' 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)