Amplitude.hs

-- | Amplitude follower
module Sound.SC3.UGen.Record.Amplitude where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Amplitude = Amplitude {
  rate :: S.Rate,
  in :: S.UGen,
  attackTime :: S.UGen,
  releaseTime :: S.UGen
  } deriving (Show)
amplitude :: Amplitude
amplitude = Amplitude {
  rate = S.AR,
  in = 0.0,
  attackTime = 0.01,
  releaseTime = 0.01
  }
mkAmplitude :: Amplitude -> S.UGen
mkAmplitude (Amplitude r a' b' c') = S.mkOsc r "Amplitude" [a',b',c'] 1
instance Make Amplitude where
  ugen = mkAmplitude