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