-- | (Undocumented class) 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