VOSIM.hs

-- | vosim pulse generator
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