-- | (Undocumented class) module Sound.SC3.UGen.Record.AverageOutput where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AverageOutput = AverageOutput { rate :: S.Rate, input :: S.UGen, trig :: S.UGen } deriving (Show) averageOutput :: AverageOutput averageOutput = AverageOutput { rate = S.AR, input = 0.0, trig = 0.0 } mkAverageOutput :: AverageOutput -> S.UGen mkAverageOutput (AverageOutput r a' b') = S.mkOsc r "AverageOutput" [a',b'] 1 instance Make AverageOutput where ugen = mkAverageOutput