notateTremolo (Just (runTremoloT -> (n, _))) d = let
  scale   = 2^n
  newDur  = (d `min` (1/4)) / scale
  repeats = d / newDur
  in (Lilypond.Tremolo (round repeats), newDur)
notateTremolo (Just (runTremoloT -> (n, _))) d = let
  scale   = 2^n
  newDur  = (d `min` (1/4)) / scale
  repeats = d / newDur
  in (Lilypond.Tremolo (round repeats), newDur)
notateTremolo (Just (runTremoloT -> (n, _))) d = let
  scale   = 2^n
  newDur  = (d `min` (1/4)) / scale
  repeats = d / newDur
  in (Lilypond.Tremolo (round repeats), newDur)