From: Neil Puttock <n.puttock@gmail.com>
Date: Mon, 16 Nov 2009 00:24:39 +0000 (+0000)
Subject: Thinko: Translate final stencil in note-head::brew-ez-stencil.
X-Git-Tag: release/2.13.8-1~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=302ecd66f4857d991473f1476b9c910261fe02d6;p=lilypond.git

Thinko: Translate final stencil in note-head::brew-ez-stencil.
---

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