module Sound.SC3.UGen.Record.RDelayMap where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RDelayMap = RDelayMap {
rate :: S.Rate,
bufnum :: S.UGen,
input :: S.UGen,
dynamic :: S.UGen,
spec :: S.UGen
} deriving (Show)
rDelayMap :: RDelayMap
rDelayMap = RDelayMap {
rate = S.AR,
bufnum = 0.0,
input = 0.0,
dynamic = 0.0,
spec = 0.0
}
mkRDelayMap :: RDelayMap -> S.UGen
mkRDelayMap (RDelayMap r a' b' c' d') = S.mkOsc r "RDelayMap" [a',b',c',d'] 1
instance Make RDelayMap where
ugen = mkRDelayMap