From 515c318ec8e43077b0fa937620913959cf9851a5 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 16 Mar 2006 11:03:24 +0000
Subject: [PATCH] (note-by-number): put (magstep size) in y-attach too.
---
ChangeLog | 3 +++
scm/define-markup-commands.scm | 4 ++--
2 files changed, 5 insertions(+), 2 deletions(-)
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))
--
2.39.5