JMCC_distort_input.hs

-- distort input (jmcc) #5
module Sound.SC3.Graph.JMCC_distort_input where

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)