module Sound.SC3.UGen.Record.PanAz where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PanAz = PanAz {
rate :: S.Rate,
input :: S.UGen,
pos :: S.UGen,
level :: S.UGen,
width :: S.UGen,
orientation :: S.UGen
} deriving (Show)
panAz :: PanAz
panAz = PanAz {
rate = S.AR,
input = 0.0,
pos = 0.0,
level = 1.0,
width = 2.0,
orientation = 0.5
}
mkPanAz :: PanAz -> S.UGen
mkPanAz (PanAz r a' b' c' d' e') = S.mkOsc r "PanAz" [a',b',c',d',e'] undefined
instance Make PanAz where
ugen = mkPanAz