BMoog.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.BMoog where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data BMoog = BMoog {
  input :: S.UGen,
  freq :: S.UGen,
  q :: S.UGen,
  mode :: S.UGen,
  saturation :: S.UGen
  } deriving (Show)
bMoog :: BMoog
bMoog = BMoog {
  input = 0.0,
  freq = 440.0,
  q = 0.2,
  mode = 0.0,
  saturation = 0.95
  }
mkBMoog :: BMoog -> S.UGen
mkBMoog (BMoog  a' b' c' d' e') = S.mkOsc S.AR "BMoog" [a',b',c',d',e'] 1
instance Make BMoog where
  ugen = mkBMoog