hsc3-rec-0.12: Sound/SC3/UGen/Record/Balance.hs

-- | (not documented)
module Sound.SC3.UGen.Record.Balance where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Balance = Balance {
  input :: S.UGen,
  test :: S.UGen,
  hp :: S.UGen,
  stor :: S.UGen
  } deriving (Show)
balance :: Balance
balance = Balance {
  input = 0.0,
  test = 0.0,
  hp = 10.0,
  stor = 0.0
  }
mkBalance :: Balance -> S.UGen
mkBalance (Balance  a' b' c' d') = S.mkOsc S.AR "Balance" [a',b',c',d'] 1
instance Make Balance where
  ugen = mkBalance