From: Risto Vääräniemi <risvaara@gmail.com>
Date: Thu, 29 May 2008 11:42:31 +0000 (+1000)
Subject: Tweak the dot positioning in note-by-number.
X-Git-Tag: release/2.11.48-1~14^2~5^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=860dbf4ca77f31b520c214d93783d7036217dbbe;p=lilypond.git

Tweak the dot positioning in note-by-number.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 2cffb172e6..3c8d151b4f 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1608,8 +1608,10 @@ Construct a note symbol, with stem.  By using fractional values for
 							 (number->string log)))
                        (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)))
+    ; If there is a flag on an upstem and the stem is short, move the dots to avoid the flag.
+    ; 16th notes get a special case because their flags hang lower than any other flags.
+    (if (and dots (> dir 0) (> log 2) (or (< dir 1.15) (and (= log 4) (< dir 1.3))))
+	(set! dots (ly:stencil-translate-axis dots 0.5 X)))
     (if flaggl
         (set! stem-glyph (ly:stencil-add flaggl stem-glyph)))
     (if (ly:stencil? stem-glyph)