module Sound.SC3.UGen.Record.Filter where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Filter = Filter {
  maxSize :: S.UGen
  } deriving (Show)
filter :: Filter
filter = Filter {
  maxSize = 0.0
  }
mkFilter :: Filter -> S.UGen
mkFilter (Filter  a') = S.mkOsc S.AR "Filter" [a'] 1
instance Make Filter where
  ugen = mkFilter