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