diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm index 0ed0def..cd78d83 100644 --- a/scm/translation-functions.scm +++ b/scm/translation-functions.scm @@ -184,13 +184,10 @@ way the transposition number is displayed." (set! alt-markup #f))) - ;; hmm, how to get figures centered between note, and - ;; lone accidentals too? - - ;; (if (markup? fig-markup) - ;; (set! - ;; fig-markup (markup #:translate (cons 1.0 0) - ;; #:center-align fig-markup))) + (if (and (>= 0 (ly:duration-log (ly:event-property event 'duration))) (markup? fig-markup)) + (set! + fig-markup (markup #:translate (cons 1.0 0) + #:center-align fig-markup))) (if alt-markup (set! fig-markup