-- trmlo (rd)

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

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)
  audition (s,pbind [("dur",pxrand 'a' [0.25,0.5,1,2,4] inf)])

{-
audition (out 0 trmlo)
-}