JMCC_noise_modulated_sines.hs

-- noise modulated sines (jmcc) #6
module Sound.SC3.Graph.JMCC_noise_modulated_sines where

import Sound.SC3 {- hsc3 -}
import Sound.SC3.Lang.Control.OverlapTexture {- hsc3-lang -}

nms :: UGen
nms =
    let f = midiCPS (rand 'α' 60 100)
        o = fSinOsc AR (mce2 f (f + 0.2)) 0
        a = lfNoise2 'β' KR (f * mce2 0.15 0.16) * 0.1
    in o * a

nms_pp :: (UGen -> UGen)
nms_pp i = combN i 0.3 0.3 4 + mceReverse i

main :: IO ()
main = overlapTextureU_pp (4,4,4,maxBound) nms 2 nms_pp