module Sound.SC3.UGen.Record.RTraceRd where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RTraceRd = RTraceRd {
rate :: S.Rate,
bufnum :: S.UGen,
degree :: S.UGen,
index :: S.UGen,
axis :: S.UGen
} deriving (Show)
rTraceRd :: RTraceRd
rTraceRd = RTraceRd {
rate = S.AR,
bufnum = 0.0,
degree = 4.0,
index = 0.0,
axis = 1.0
}
mkRTraceRd :: RTraceRd -> S.UGen
mkRTraceRd (RTraceRd r a' b' c' d') = S.mkOsc r "RTraceRd" [a',b',c',d'] 1
instance Make RTraceRd where
ugen = mkRTraceRd