hsc3-graphs-0.15: gr/trmlo-u.hs

-- trmlo-u (rd)

import Sound.SC3 {- hsc3 -}
import qualified Sound.SC3.UGen.Unsafe as U {- hsc3-unsafe -}
import qualified Sound.SC3.Lang.Pattern.Plain as P {- hsc3-lang -}

-- > audition (out 0 trmlo)
trmlo :: UGen
trmlo =
    let mWrp i l r = linLin_b i (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 = U.iRand 5 9
                 d = U.iRand 5 9
                 s = envSine d (U.rand 0.1 0.2)
                 e = envGen KR 1 1 0 1 DoNothing s
                 n = U.iRand 69 72
                 m = sinOsc KR f 0
             in pan2 (sinOsc AR (mWrp1 m n) 0) m e
        o3 = let f = U.iRand 5 9
                 d = U.iRand 9 12
                 s = envSine d (U.rand 0.1 0.2)
                 e = envGen KR 1 1 0 1 DoNothing s
                 n = U.iRand 69 72
                 m = sinOsc KR f 0
                 l = line KR 0 (U.iRand 1 5) d DoNothing
             in pan2 (blip AR (mWrp1 m (n + l)) (linLin_b m 1 2)) m e
        o4 = let f = U.iRand 5 18
                 d = U.iRand 12 15
                 s = envSine d (U.rand 0.1 0.2)
                 e = envGen KR 1 5e-2 0 1 DoNothing s
                 n = U.iRand 69 72
                 m = sinOsc KR f 0
                 l = line KR 0 (U.iRand 1 5) d RemoveSynth
                 fr = mWrpN m (n + l) (U.iRand 1 5)
             in pan2 (blip AR fr (linLin_b m 1 (U.iRand 2 24))) m e
    in o1 + o2 + o3 + o4

main :: IO ()
main = do
  let s = synthdef "trmlo" (out 0 trmlo)
      p = [("dur",P.xrand 'ρ' [0.25,0.5,1,2,4])]
  audition (P.sbind1 (s,p))