From 302ecd66f4857d991473f1476b9c910261fe02d6 Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Mon, 16 Nov 2009 00:24:39 +0000 Subject: [PATCH] Thinko: Translate final stencil in note-head::brew-ez-stencil. --- scm/output-lib.scm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/scm/output-lib.scm b/scm/output-lib.scm index c3d51282f0..b9f5e421e9 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -140,18 +140,21 @@ (letter (markup #:center-align #:vcenter pitch-string)) (filled-circle (markup #:draw-circle radius 0 #t))) - (grob-interpret-markup - grob - (if (>= log 2) - (make-combine-markup - filled-circle - (make-with-color-markup white letter)) - (make-combine-markup + (ly:stencil-translate-axis + (grob-interpret-markup + grob + (if (>= log 2) (make-combine-markup filled-circle - (make-with-color-markup white (make-draw-circle-markup - (- radius stem-thickness) 0 #t))) - letter))))) + (make-with-color-markup white letter)) + (make-combine-markup + (make-combine-markup + filled-circle + (make-with-color-markup white (make-draw-circle-markup + (- radius stem-thickness) 0 #t))) + letter))) + radius X))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; break visibility -- 2.39.2