SoftClipAmp4.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.SoftClipAmp4 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data SoftClipAmp4 = SoftClipAmp4 {
  in :: S.UGen,
  pregain :: S.UGen
  } deriving (Show)
softClipAmp4 :: SoftClipAmp4
softClipAmp4 = SoftClipAmp4 {
  in = 0.0,
  pregain = 1.0
  }
mkSoftClipAmp4 :: SoftClipAmp4 -> S.UGen
mkSoftClipAmp4 (SoftClipAmp4  a' b') = S.mkOsc S.AR "SoftClipAmp4" [a',b'] 1
instance Make SoftClipAmp4 where
  ugen = mkSoftClipAmp4