(note-by-number): put (magstep

size) in y-attach too.

diff --git a/ChangeLog b/ChangeLog
index e1a008cfac0c628c3c73ac173b1f6bd209ce9d91..32a8240eff0d1565b5c96e74e10784e8001c888b 100644 (file)
--- 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 3b84ff6b1749a50d707c85be29f791bfce3ed3af..c0295c38ed70c02be26eb7f6afb6f9f1167ff9a8 100644 (file)
--- 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))