-- | (Undocumented class) module Sound.SC3.UGen.Record.OSFold4 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data OSFold4 = OSFold4 { input :: S.UGen, lo :: S.UGen, hi :: S.UGen } deriving (Show) oSFold4 :: OSFold4 oSFold4 = OSFold4 { input = 0.0, lo = 0.0, hi = 0.0 } mkOSFold4 :: OSFold4 -> S.UGen mkOSFold4 (OSFold4 a' b' c') = S.mkOsc S.AR "OSFold4" [a',b',c'] 1 instance Make OSFold4 where ugen = mkOSFold4