hsc3-graphs-0.15: gr/distort-input.hs

-- distort input (jmcc) #5

import Sound.SC3 {- hsc3 -}

distort_input :: UGen
distort_input =
    let gain = mouseX KR 1 100 Exponential 0.2  -- mouse x controls gain into distortion
    in distort (soundIn (mce2 0 1) * gain) * 0.4

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