Metro.hs

-- | (not documented)
module Sound.SC3.UGen.Record.Metro where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Metro = Metro {
  rate :: S.Rate,
  bpm :: S.UGen,
  numBeats :: S.UGen
  } deriving (Show)
metro :: Metro
metro = Metro {
  rate = S.AR,
  bpm = 0.0,
  numBeats = 0.0
  }
mkMetro :: Metro -> S.UGen
mkMetro (Metro r a' b') = S.mkOsc r "Metro" [a',b'] 1
instance Make Metro where
  ugen = mkMetro