-- | (Undocumented class) module Sound.SC3.UGen.Record.LPCVals where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LPCVals = LPCVals { rate :: S.Rate, buffer :: S.UGen, pointer :: S.UGen } deriving (Show) lPCVals :: LPCVals lPCVals = LPCVals { rate = S.AR, buffer = 0.0, pointer = 0.0 } mkLPCVals :: LPCVals -> S.UGen mkLPCVals (LPCVals r a' b') = S.mkOsc r "LPCVals" [a',b'] 3 instance Make LPCVals where ugen = mkLPCVals