-- | (Undocumented class) module Sound.SC3.UGen.Record.NLFiltN where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data NLFiltN = NLFiltN { rate :: S.Rate, input :: S.UGen, a :: S.UGen, b :: S.UGen, d :: S.UGen, c :: S.UGen, l :: S.UGen } deriving (Show) nLFiltN :: NLFiltN nLFiltN = NLFiltN { rate = S.AR, input = 0.0, a = 0.0, b = 0.0, d = 0.0, c = 0.0, l = 0.0 } mkNLFiltN :: NLFiltN -> S.UGen mkNLFiltN (NLFiltN r a' b' c' d' e' f') = S.mkOsc r "NLFiltN" [a',b',c',d',e',f'] 1 instance Make NLFiltN where ugen = mkNLFiltN