-- | (Undocumented class)
module Sound.SC3.UGen.Record.TwoTube where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data TwoTube = TwoTube {
  input :: S.UGen,
  k :: S.UGen,
  loss :: S.UGen,
  d1length :: S.UGen,
  d2length :: S.UGen
  } deriving (Show)
twoTube :: TwoTube
twoTube = TwoTube {
  input = 0.0,
  k = 0.01,
  loss = 1.0,
  d1length = 100.0,
  d2length = 100.0
  }
mkTwoTube :: TwoTube -> S.UGen
mkTwoTube (TwoTube  a' b' c' d' e') = S.mkOsc S.AR "TwoTube" [a',b',c',d',e'] 1
instance Make TwoTube where
  ugen = mkTwoTube