Merge master into nested-bookparts

[lilypond.git] / input / regression / flags-in-scheme.ly

diff --git a/input/regression/flags-in-scheme.ly b/input/regression/flags-in-scheme.ly
index 0707f84258c89be783b5d98107a010848eb9008f..637f210866a215c4d50c2ff1b08c4b3a3e0f3f64 100644 (file)
--- a/input/regression/flags-in-scheme.ly
+++ b/input/regression/flags-in-scheme.ly
@@ -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