From 66dc2359d1f875fa3b3cbe9f12dfe9d2c2ff42df Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 4 May 2013 15:24:24 +0200 Subject: [PATCH] Issue 3349: missing duration in \displayLilyMusic after a triplet --- scm/define-music-display-methods.scm | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index 3677051981..82e227c8f5 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -666,21 +666,18 @@ Otherwise, return #f." (formatted-span (and span (duration->lily-string span #:force-duration #t))) (scale (/ num den)) - (dur (*previous-duration*)) (time-scale (*time-scale*))) - - (parameterize ((*force-line-break* #f) - (*previous-duration* - (ly:make-duration (ly:duration-log dur) - (ly:duration-dot-count dur) - (* (ly:duration-scale dur) - scale))) - (*time-scale* (* time-scale scale))) - (format #f "\\tuplet ~a/~a ~@[~a ~]~a" - den - num - formatted-span - (music->lily-string (ly:music-property times 'element) parser))))) + (*previous-duration* #f) + (let ((result + (parameterize ((*force-line-break* #f) + (*time-scale* (* time-scale scale))) + (format #f "\\tuplet ~a/~a ~@[~a ~]~a" + den + num + formatted-span + (music->lily-string (ly:music-property times 'element) parser))))) + (*previous-duration* #f) + result))) (define-display-method RelativeOctaveMusic (m parser) (music->lily-string (ly:music-property m 'element) parser)) -- 2.39.5