RedLbyl.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.RedLbyl where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RedLbyl = RedLbyl {
  rate :: S.Rate,
  in :: S.UGen,
  thresh :: S.UGen,
  samples :: S.UGen
  } deriving (Show)
redLbyl :: RedLbyl
redLbyl = RedLbyl {
  rate = S.AR,
  in = 0.0,
  thresh = 0.5,
  samples = 2.0
  }
mkRedLbyl :: RedLbyl -> S.UGen
mkRedLbyl (RedLbyl r a' b' c') = S.mkOsc r "RedLbyl" [a',b',c'] 1
instance Make RedLbyl where
  ugen = mkRedLbyl