-- http://tai-studio.org/index.php/2012/02/alarm-clock-sound/
-- partial...

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

grain :: UGen
grain =
    let o = control KR "out" 0
        f = control KR "freq" 100
        attack = control KR "attack" 0
        decay' = control KR "decay" 1
        sus = control KR "sustain" 0.1
        distort' = control KR "distort" 0
        fTime = control KR "fTime" 0.1
        fFac = control KR "fFac" 1.2
        amp' = control KR "amp" 1
        delay = control KR "delay" 0
        startFreq = fFac * f
        endFreq = f
        env l t = Envelope l t [] Nothing Nothing
        aEnv = let e = envPerc attack decay'
               in envGen AR 1 amp' 0 sus RemoveSynth e
        fEnv = let e = env [startFreq,endFreq] [fTime]
               in envGen AR 1 1 0 1 DoNothing e
        src = wrap2 (sinOsc AR fEnv 1 * (1 + distort')) 1
    in out o (delayN (src * mce2 aEnv aEnv) 0.1 delay)

pattern :: Enum e => (Field,e) -> [P_Bind]
pattern (f,z) =
    let f_mul = prand 'α' [4,1,2,3,4,8] inf
    in [(K_instr,pinstr "grain")
       ,(K_freq,prepeat f * f_mul * phold (pwhite z 0.99 1 inf))
       ,(K_dur,pseq [pseq [10,0.1,10] 1
                    ,pseq [0.1] 6
                    ,pseq [1,pseq [0.1] 6,1] inf] 1)
       ,(K_param "fTime",0.0125)
       ,(K_param "fFac",5)
       ,(K_sustain,0.1)
       ,(K_param "attack",0.0005)
       ,(K_param "decay",2)
       ,(K_amp,0.1)
       ,(K_param "delay",phold (pwhite z 0.01 0.1 inf * 0.1))]

main :: IO ()
main =
    let f = concat (replicate 12 [1200, 800, 600, 200])
        p = ppar (map (pbind . pattern) (zip f ['β'..]))
    in withSC3 (async (d_recv (synthdef "grain" grain)) >> play p)