-- | Live Linear Predictive Coding Analysis and Resynthesis
module Sound.SC3.UGen.Record.LPCAnalyzer where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data LPCAnalyzer = LPCAnalyzer {
  input :: S.UGen,
  source :: S.UGen,
  n :: S.UGen,
  p :: S.UGen,
  testE :: S.UGen,
  delta :: S.UGen,
  windowtype :: S.UGen
  } deriving (Show)
lPCAnalyzer :: LPCAnalyzer
lPCAnalyzer = LPCAnalyzer {
  input = 0.0,
  source = 0.01,
  n = 256.0,
  p = 10.0,
  testE = 0.0,
  delta = 0.999,
  windowtype = 0.0
  }
mkLPCAnalyzer :: LPCAnalyzer -> S.UGen
mkLPCAnalyzer (LPCAnalyzer  a' b' c' d' e' f' g') = S.mkOsc S.AR "LPCAnalyzer" [a',b',c',d',e',f',g'] 1
instance Make LPCAnalyzer where
  ugen = mkLPCAnalyzer