module Sound.SC3.UGen.Record.FreeVerb2 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data FreeVerb2 = FreeVerb2 {
  input :: S.UGen,
  in2 :: S.UGen,
  mix :: S.UGen,
  room :: S.UGen,
  damp :: S.UGen
  } deriving (Show)
freeVerb2 :: FreeVerb2
freeVerb2 = FreeVerb2 {
  input = 0.0,
  in2 = 0.0,
  mix = 0.33,
  room = 0.5,
  damp = 0.5
  }
mkFreeVerb2 :: FreeVerb2 -> S.UGen
mkFreeVerb2 (FreeVerb2  a' b' c' d' e') = S.mkOsc S.AR "FreeVerb2" [a',b',c',d',e'] 2
instance Make FreeVerb2 where
  ugen = mkFreeVerb2