-- | (Undocumented class) module Sound.SC3.UGen.Record.GaussClass where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data GaussClass = GaussClass { input :: S.UGen, bufnum :: S.UGen, gate :: S.UGen } deriving (Show) gaussClass :: GaussClass gaussClass = GaussClass { input = 0.0, bufnum = 0.0, gate = 0.0 } mkGaussClass :: GaussClass -> S.UGen mkGaussClass (GaussClass a' b' c') = S.mkOsc S.KR "GaussClass" [a',b',c'] 1 instance Make GaussClass where ugen = mkGaussClass