Reduce 'outside-staff-priority of fermata over full measure rests

 - keep a fermata placed over a multi-measure rest
   close to the staff, in particular ensure it is
   not displaced upwards by TextScripts

 - add regression test for this and for inverting fermata
   glyph when placed under the staff

diff --git a/input/regression/full-measure-rest-fermata.ly b/input/regression/full-measure-rest-fermata.ly
new file mode 100644 (file)
index 0000000..71c62cf
--- /dev/null
+++ b/input/regression/full-measure-rest-fermata.ly
@@ -0,0 +1,25 @@
+\version "2.12.4"
+
+\header{
+  texidoc="
+Fermata over full-measure rests should invert when below and
+be closer to the staff than other articulations."
+}
+\layout {
+  ragged-right = ##t
+}
+\relative c'' {
+  R1
+  a1^"should be lower"
+  R1^"should be higher"
+  \break
+  R1
+  R1^"should be lower"
+  a1^"should be higher"
+  \break
+  a1^"should be above fermata"
+  R1^\fermataMarkup
+  \break
+  a1_"should be below fermata"
+  R1_\fermataMarkup
+}

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 1ab7d5e5d9d86db0fbe2728196af2ea6d0061f1c..2880bffb2f2d61135c8e646014ca36a7fd771fde 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -172,11 +172,13 @@ endincipit = \context Staff {
 
 fermataMarkup =
 #(make-music 'MultiMeasureTextEvent
-   ; Set the 'text based on the 'direction
-   'tweaks (list (cons 'text (lambda (grob)
-       (if (eq? (ly:grob-property grob 'direction) DOWN)
-          (markup #:musicglyph "scripts.dfermata")
-          (markup #:musicglyph "scripts.ufermata"))))))
+   'tweaks (list
+             ; Set the 'text based on the 'direction
+             (cons 'text (lambda (grob)
+               (if (eq? (ly:grob-property grob 'direction) DOWN)
+                (markup #:musicglyph "scripts.dfermata")
+                (markup #:musicglyph "scripts.ufermata"))))
+             (cons 'outside-staff-priority 40)))
 
 
 %% font sizes