-- http://tai-studio.org/index.php/2012/02/alarm-clock-sound/
{-# OPTIONS_GHC -F -pgmF hsc3-psynth #-}
-- partial...

import Sound.SC3 hiding (decay,distort) {- hsc3 -}
import Sound.SC3.Lang.Pattern hiding (freq) {- hsc3-lang -}

grain :: Synthdef
grain = psynth {bus=0,freq=100,attack=0,decay=1,sustain=0.1,distort=0,fTime=0.1,fFac=1.2,amp=1,delay=0} where
    let startFreq = fFac * freq
        endFreq = freq
        env l t = Envelope l t [] Nothing Nothing
        aEnv = let e = envPerc attack decay
               in envGen AR 1 amp 0 sustain 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 bus (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,psynth 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 grain) >> pplay p)