hdf-0.15: gr/lfo-modulation.hs

import Sound.DF.Uniform.GADT {- hdf -}
import Sound.DF.Uniform.LL.K {- hdf -}

-- > draw lfo_modulation
lfo_modulation :: DF ()
lfo_modulation =
    let p = sin_osc (mce2 0.6 0.7) 0.0 * 3600.0 + 4000.0
        s = sin_osc 0.05 0.0 * 80.0 + 160.0
        l = lf_pulse s 0 0.4 * 0.05
        r = rlpf l p 0.2
        c = comb_n [0,1] 0.25 r (mce2 0.20 0.25) 2.0
    in out c

main :: IO ()
main = audition_rju [] lfo_modulation