module Sound.SC3.UGen.Record.RunningMin where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data RunningMin = RunningMin { rate :: S.Rate, trig :: S.UGen, reset :: S.UGen } deriving (Show) runningMin :: RunningMin runningMin = RunningMin { rate = S.AR, trig = 0.0, reset = 0.0 } mkRunningMin :: RunningMin -> S.UGen mkRunningMin (RunningMin r a' b') = S.mkOsc r "RunningMin" [a',b'] 1 instance Make RunningMin where ugen = mkRunningMin