AudioControl.hs

module Sound.SC3.UGen.Record.AudioControl where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data AudioControl = AudioControl {
  values :: S.UGen
  } deriving (Show)
audioControl :: AudioControl
audioControl = AudioControl {
  values = 0.0
  }
mkAudioControl :: AudioControl -> S.UGen
mkAudioControl (AudioControl  a') = S.mkOsc S.AR "AudioControl" [a'] 1
instance Make AudioControl where
  ugen = mkAudioControl