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