FoaPanB.hs

-- | First Order Ambisonic (FOA) panner
module Sound.SC3.UGen.Record.FoaPanB where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data FoaPanB = FoaPanB {
  input :: S.UGen,
  azimuth :: S.UGen,
  elevation :: S.UGen
  } deriving (Show)
foaPanB :: FoaPanB
foaPanB = FoaPanB {
  input = 0.0,
  azimuth = 0.0,
  elevation = 0.0
  }
mkFoaPanB :: FoaPanB -> S.UGen
mkFoaPanB (FoaPanB  a' b' c') = S.mkOsc S.AR "FoaPanB" [a',b',c'] 4
instance Make FoaPanB where
  ugen = mkFoaPanB