Sound.SC3.UGen.Help.viewSC3Help "LPCSynth"
    Sound.SC3.UGen.DB.ugenSummary "LPCSynth"

> import Sound.OSC {- hosc -}
> import Sound.SC3 {- hsc3 -}
> import Sound.SC3.Data.LPC {- hsc3-data -}

> lpc_instr b n lpc =
>     let x = mouseX KR 0.05 1.5 Linear 0.2
>         y = mouseY KR 0.25 2.0 Linear 0.2
>         f = x / constant (lpcAnalysisDuration (lpcHeader lpc))
>         ptr = lfSaw AR f 1 * 0.5 + 0.5
>         [cps, rms, err] = mceChannels (lpcVals AR b ptr)
>         nh = floorE (22000 / cps)
>         voc = blip AR (cps * y) nh * (1 - err)
>         s = lpcSynth b (voc + (n * err * 20)) ptr
>     in s * 1e-5 * rms

> fn_01 = "/home/rohan/cvs/tn/tn-56/lpc/fate.lpc"

> au_01 lpc = do
>   let d = map realToFrac (lpcSC3 lpc)
>   _ <- async (b_alloc 10 (length d) 1)
>   mapM_ send (b_setn1_segmented 512 10 0 d)
>   let s = lpc_instr 10 (pinkNoise 'α' AR) lpc
>   play (out 0 s)

    lpc <- lpcRead fn_01
    withSC3 (au_01 lpc)