module Sound.SC3.UGen.Record.BeatTrack2 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data BeatTrack2 = BeatTrack2 {
  busindex :: S.UGen,
  numfeatures :: S.UGen,
  windowsize :: S.UGen,
  phaseaccuracy :: S.UGen,
  lock :: S.UGen,
  weightingscheme :: S.UGen
  } deriving (Show)
beatTrack2 :: BeatTrack2
beatTrack2 = BeatTrack2 {
  busindex = 0.0,
  numfeatures = 0.0,
  windowsize = 2.0,
  phaseaccuracy = 0.02,
  lock = 0.0,
  weightingscheme = 0.0
  }
mkBeatTrack2 :: BeatTrack2 -> S.UGen
mkBeatTrack2 (BeatTrack2  a' b' c' d' e' f') = S.mkOsc S.KR "BeatTrack2" [a',b',c',d',e',f'] 6
instance Make BeatTrack2 where
  ugen = mkBeatTrack2