-- | (Undocumented class) module Sound.SC3.UGen.Record.Slub where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Slub = Slub { rate :: S.Rate, trig :: S.UGen, spike :: S.UGen } deriving (Show) slub :: Slub slub = Slub { rate = S.AR, trig = 0.0, spike = 4.04 } mkSlub :: Slub -> S.UGen mkSlub (Slub r a' b') = S.mkOsc r "Slub" [a',b'] 1 instance Make Slub where ugen = mkSlub