hdf-0.15: gr/why-supercollider.hs

-- why supercollider (jmcc) #0

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

-- > draw why_supercollider
why_supercollider =
    let r = resonz (dust 16987362 0.2 * 50) (rand 216948736 200 3200) 0.003
        z = r -- delay_n 1629876327 r 0.048 0.048
        n = lf_noise1 169872631 (rand 790283276 0 0.01) * 0.04 + 0.05
        c = comb_n [0] 0.1 z n 15
    in out c

{-
    let r = resonz (dust 'α' AR 0.2 * 50) (rand 'β' 200 3200) 0.003
        s = mix (uclone 'γ' 10 r)
        z = delayN s 0.048 0.048
        c = combL z 0.1 (lfNoise1 'δ' KR (rand 'ε' 0 0.1) * 0.04 + 0.05) 15
        y = mix (uclone 'ζ' 7 c)
        f i = allpassN i 0.05 (randN 2 'η' 0 0.05) 1
        x = useq 'θ' 4 f y
    in out 0 (s + 0.2 * x)
-}

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