-- | (Undocumented class) module Sound.SC3.UGen.Record.BFDecode1 where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BFDecode1 = BFDecode1 { w :: S.UGen, x :: S.UGen, y :: S.UGen, z :: S.UGen, azimuth :: S.UGen, elevation :: S.UGen, wComp :: S.UGen } deriving (Show) bFDecode1 :: BFDecode1 bFDecode1 = BFDecode1 { w = 0.0, x = 0.0, y = 0.0, z = 0.0, azimuth = 0.0, elevation = 0.0, wComp = 0.0 } mkBFDecode1 :: BFDecode1 -> S.UGen mkBFDecode1 (BFDecode1 a' b' c' d' e' f' g') = S.mkOsc S.AR "BFDecode1" [a',b',c',d',e',f',g'] 1 instance Make BFDecode1 where ugen = mkBFDecode1