BeepU.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.BeepU where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data BeepU = BeepU {
  maxSize :: S.UGen
  } deriving (Show)
beepU :: BeepU
beepU = BeepU {
  maxSize = 0.0
  }
mkBeepU :: BeepU -> S.UGen
mkBeepU (BeepU  a') = S.mkOsc S.AR "BeepU" [a'] 1
instance Make BeepU where
  ugen = mkBeepU