module Sound.SC3.UGen.Record.CircleRamp where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data CircleRamp = CircleRamp {
rate :: S.Rate,
input :: S.UGen,
lagTime :: S.UGen,
circmin :: S.UGen,
circmax :: S.UGen
} deriving (Show)
circleRamp :: CircleRamp
circleRamp = CircleRamp {
rate = S.AR,
input = 0.0,
lagTime = 0.1,
circmin = 180.0,
circmax = 180.0
}
mkCircleRamp :: CircleRamp -> S.UGen
mkCircleRamp (CircleRamp r a' b' c' d') = S.mkOsc r "CircleRamp" [a',b',c',d'] 1
instance Make CircleRamp where
ugen = mkCircleRamp