hsc3-graphs-0.14: gr/trmlo.hs

-- trmlo (rd)

import Sound.SC3.ID {- hsc3 -}
import Sound.SC3.Lang.Pattern {- hsc3-lang -}

-- > audition (out 0 trmlo)
trmlo :: UGen
trmlo =
    let mWrp i l r = linLin i (-1) 1 (midiCPS l) (midiCPS r)
        mWrp1 i m = mWrp i m (m + 1)
        mWrpN i m n = mWrp i m (m + n)
        o1 = let f = 5
                 d = 3
                 s = envSine d 0.1
                 e = envGen KR 1 1 0 1 DoNothing s
                 n = 65
                 m = sinOsc KR f 0
             in pan2 (sinOsc AR (mWrp1 m n) 0) m e
        o2 = let f = iRand 'α' 5 9
                 d = iRand 'β' 5 9
                 s = envSine d (rand 'γ' 0.1 0.2)
                 e = envGen KR 1 1 0 1 DoNothing s
                 n = iRand 'δ' 69 72
                 m = sinOsc KR f 0
             in pan2 (sinOsc AR (mWrp1 m n) 0) m e
        o3 = let f = iRand 'ε' 5 9
                 d = iRand 'ζ' 9 12
                 s = envSine d (rand 'η' 0.1 0.2)
                 e = envGen KR 1 1 0 1 DoNothing s
                 n = iRand 'θ' 69 72
                 m = sinOsc KR f 0
                 l = line KR 0 (iRand 'ι' 1 5) d DoNothing
             in pan2 (blip AR (mWrp1 m (n + l)) (linLin m (-1) 1 1 2)) m e
        o4 = let f = iRand 'κ' 5 18
                 d = iRand 'λ' 12 15
                 s = envSine d (rand 'μ' 0.1 0.2)
                 e = envGen KR 1 5e-2 0 1 DoNothing s
                 n = iRand 'ν' 69 72
                 m = sinOsc KR f 0
                 l = line KR 0 (iRand 'ξ' 1 5) d RemoveSynth
                 fr = mWrpN m (n + l) (iRand 'ο' 1 5)
             in pan2 (blip AR fr (linLin m (-1) 1 1 (iRand 'π' 2 24))) m e
    in o1 + o2 + o3 + o4

main :: IO ()
main = do
  let s = synthdef "trmlo" (out 0 trmlo)
      p = pbind [(K_instr,psynth s)
                ,(K_dur,pxrand 'ρ' [0.25,0.5,1,2,4] inf)
                ,(K_legato,1.25)]
  audition p