-- | (Undocumented class) module Sound.SC3.UGen.Record.LTI where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LTI = LTI { input :: S.UGen, bufnuma :: S.UGen, bufnumb :: S.UGen } deriving (Show) lti :: LTI lti = LTI { input = 0.0, bufnuma = 0.0, bufnumb = 1.0 } mkLTI :: LTI -> S.UGen mkLTI (LTI a' b' c') = S.mkOsc S.AR "LTI" [a',b',c'] 1 instance Make LTI where ugen = mkLTI