From 515c318ec8e43077b0fa937620913959cf9851a5 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys 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 + * 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