-- scritto (rd)
module Sound.SC3.Graph.RD_scritto_m where

import Sound.SC3 {- hsc3 -}
import qualified Sound.SC3.Lang.Data.Vowel as V {- hsc3-lang -}

main :: IO ()
main =
  let s_msg n (_,_,f,a,b) = b_setn1 n 0 (f ++ a ++ b)
      s_alloc (s,b) = do _ <- async (b_alloc b 15 1)
                         send (s_msg b s)
      buf_at b n = bufRd 1 KR b (mce [n .. n + 4]) NoLoop NoInterpolation
      v_filter i f a b = resonz i f (b / f) * dbAmp a
      v_filter_b bi i = v_filter i (buf_at bi 0) (buf_at bi 5) (buf_at bi 10)
      mk_instr bx = do
        n <- lfNoise2M KR 3
        let t = impulse AR (n * 9 + 9) 0
            i d = do n1 <- tRandM 0.02 0.06 t
                     n2 <- tIRandM 30 52 t
                     n3 <- tIRandM 16 32 t
                     let p = pulseDivider t d 0
                         b = blip AR (midiCPS n2) n3
                     return (decay2 p 0.01 n1 * b * 12)
            bi = linLin_b n 0 bx
            voice = mix . v_filter_b bi
        return . out 0 . mce . map voice =<< mapM i [1,2]
  in withSC3 (do mapM_ s_alloc (zip V.fdata_table [0..])
                 let n = constant (length V.fdata_table)
                 play =<< mk_instr n)