A2B.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.A2B where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data A2B = A2B {
  a :: S.UGen,
  b :: S.UGen,
  c :: S.UGen,
  d :: S.UGen
  } deriving (Show)
a2B :: A2B
a2B = A2B {
  a = 0.0,
  b = 0.0,
  c = 0.0,
  d = 0.0
  }
mkA2B :: A2B -> S.UGen
mkA2B (A2B  a' b' c' d') = S.mkOsc S.AR "A2B" [a',b',c',d'] 4
instance Make A2B where
  ugen = mkA2B