X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fflags-in-scheme.ly;h=1ee3d1c3cc8d03c4cfcb8d19159b0a97f98d6344;hb=9efefe47a0ead1c618566df8d845705c36693ac8;hp=0707f84258c89be783b5d98107a010848eb9008f;hpb=def21b306e2b8fa2d5630fab0878e9922e197f0c;p=lilypond.git

diff --git a/input/regression/flags-in-scheme.ly b/input/regression/flags-in-scheme.ly
index 0707f84258..1ee3d1c3cc 100644
--- a/input/regression/flags-in-scheme.ly
+++ b/input/regression/flags-in-scheme.ly
@@ -1,4 +1,4 @@
-\version "2.11.57"
+\version "2.12.0"
 
 \header {
   texidoc = "The 'flag property of the Stem grob can be set to a custom
@@ -23,10 +23,14 @@ testnotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64 c''8 d''1
 #(define (inverted-flag stem-grob)
   (let* ((dir (if (eqv? (ly:grob-property stem-grob 'direction) UP) "d" "u"))
          (flag (retrieve-glyph-flag "" dir "" stem-grob))
+         (line-thickness (ly:staff-symbol-line-thickness stem-grob))
+         (stem-thickness (ly:grob-property stem-grob 'thickness))
+         (stem-width (* line-thickness stem-thickness))
          (stroke-style (ly:grob-property stem-grob 'stroke-style))
          (stencil (if (null? stroke-style) flag
-                         (add-stroke-glyph flag stem-grob dir stroke-style ""))))
-    (ly:stencil-rotate stencil 180 -1 -1)))
+                         (add-stroke-glyph flag stem-grob dir stroke-style "")))
+         (rotated-flag (ly:stencil-rotate-absolute stencil 180 0 0)))
+    (ly:stencil-translate rotated-flag (cons (- (/ stem-width 2))  0))))
 
 {
   \override Score.RehearsalMark #'self-alignment-X = #LEFT