-- | (Undocumented class) module Sound.SC3.UGen.Record.LPF1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data LPF1 = LPF1 { rate :: S.Rate, input :: S.UGen, freq :: S.UGen } deriving (Show) lPF1 :: LPF1 lPF1 = LPF1 { rate = S.AR, input = 0.0, freq = 1000.0 } mkLPF1 :: LPF1 -> S.UGen mkLPF1 (LPF1 r a' b') = S.mkOsc r "LPF1" [a',b'] 1 instance Make LPF1 where ugen = mkLPF1