LPF18.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.LPF18 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data LPF18 = LPF18 {
  in :: S.UGen,
  freq :: S.UGen,
  res :: S.UGen,
  dist :: S.UGen
  } deriving (Show)
lPF18 :: LPF18
lPF18 = LPF18 {
  in = 0.0,
  freq = 100.0,
  res = 1.0,
  dist = 0.4
  }
mkLPF18 :: LPF18 -> S.UGen
mkLPF18 (LPF18  a' b' c' d') = S.mkOsc S.AR "LPF18" [a',b',c',d'] 1
instance Make LPF18 where
  ugen = mkLPF18