From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 16 Mar 2006 11:03:24 +0000 (+0000)
Subject: (note-by-number): put (magstep
X-Git-Tag: release/2.7.39~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=515c318ec8e43077b0fa937620913959cf9851a5;p=lilypond.git

(note-by-number): put (magstep
size) in y-attach too.
---

diff --git a/ChangeLog b/ChangeLog
index e1a008cfac..32a8240eff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-03-16  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/define-markup-commands.scm (note-by-number): put (magstep
+	size) in y-attach too.
+
 	* Documentation/topdocs/NEWS.tely (Top): show override.
 
 	* scm/define-grobs.scm (all-grob-descriptions): reinstate neutral
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 3b84ff6b17..c0295c38ed 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1074,12 +1074,12 @@ figured bass notation"
          (head-glyph (ly:font-get-glyph
 		      font
 		      (string-append "noteheads.s" (number->string (min log 2)))))
-         (stem-thickness 0.13)
+         (stem-thickness 0.13) ;; TODO: should scale with font-size. 
          (stemy (* dir stem-length))
          (attachx (if (> dir 0)
                       (- (cdr (ly:stencil-extent head-glyph X)) stem-thickness)
                       0))
-         (attachy (* dir 0.28))
+         (attachy (* (magstep size) (* dir 0.28)))
          (stem-glyph (and (> log 0)
 			  (ly:round-filled-box
 			   (cons attachx (+ attachx  stem-thickness))