module Sound.SC3.UGen.Record.VBAP where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data VBAP = VBAP {
rate :: S.Rate,
input :: S.UGen,
bufnum :: S.UGen,
azimuth :: S.UGen,
elevation :: S.UGen,
spread :: S.UGen
} deriving (Show)
vBAP :: VBAP
vBAP = VBAP {
rate = S.AR,
input = 0.0,
bufnum = 0.0,
azimuth = 0.0,
elevation = 1.0,
spread = 0.0
}
mkVBAP :: VBAP -> S.UGen
mkVBAP (VBAP r a' b' c' d' e') = S.mkOsc r "VBAP" [a',b',c',d',e'] undefined
instance Make VBAP where
ugen = mkVBAP