From: Risto Vaaraniemi <risvaara@gmail.com>
Date: Fri, 25 Apr 2008 06:47:02 +0000 (+0300)
Subject: Fix flag positioning for \note markup.
X-Git-Tag: release/2.11.45-1~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d3c1f8d139c6ebbb3e08c2e15e47a93f0c5081d8;p=lilypond.git

Fix flag positioning for \note markup.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 57a66c7c5d..71fe0f5a66 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1414,7 +1414,7 @@ Construct a note symbol, with stem.  By using fractional values for
 					  (string-append "flags."
 							 (if (> dir 0) "u" "d")
 							 (number->string log)))
-                       (cons (car attach-off) stemy)))))
+                       (cons (+ (car attach-off) (if (< dir 0) stem-thickness 0)) stemy)))))
 
     (if (and dots flaggl (> dir 0))
 	(set! dots (ly:stencil-translate-axis dots 0.35 X)))