getElapsedBeats :: MonadIO m => Tempo -> UTCTime -> m Rational
getElapsedBeats t now = do
  let x = timeToCount t now 
  return x


---- separate the view Box from the circle, so this function can be a generic container for the metric and cyclic vis
getElapsedBeats :: MonadIO m => Tempo -> UTCTime -> m Rational
getElapsedBeats t now = do
  let x = timeToCount t now 
  return x


---- separate the view Box from the circle, so this function can be a generic container for the metric and cyclic vis
getElapsedBeats t now = do
  let x = timeToCount t now 
  return x


---- separate the view Box from the circle, so this function can be a generic container for the metric and cyclic vis