-- | (Undocumented class) module Sound.SC3.UGen.Record.VOSIM where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data VOSIM = VOSIM { trig :: S.UGen, freq :: S.UGen, nCycles :: S.UGen, decay :: S.UGen } deriving (Show) vOSIM :: VOSIM vOSIM = VOSIM { trig = 0.1, freq = 400.0, nCycles = 1.0, decay = 0.9 } mkVOSIM :: VOSIM -> S.UGen mkVOSIM (VOSIM a' b' c' d') = S.mkOsc S.AR "VOSIM" [a',b',c',d'] 1 instance Make VOSIM where ugen = mkVOSIM