Fix trills.

diff --git a/input/manual/simultaneous-headword.ly b/input/manual/simultaneous-headword.ly
index fa2f02573d26889866666de32dce1db030a2241d..8650c35d86da82c1e72020432f0c829fcf47092e 100644 (file)
--- a/input/manual/simultaneous-headword.ly
+++ b/input/manual/simultaneous-headword.ly
@@ -31,6 +31,13 @@
    }
 }
 
+trillflat = 
+  \once \override TrillSpanner #'bound-details #'left #'text =
+    #(markup #:translate-scaled '(-0.05 . -1)
+             #:concat (#:musicglyph "scripts.trill"
+                       #:translate '(-0.5 . 1.9) #:fontsize -7 #:flat))
+
+
 \new PianoStaff <<
 
    % RH
@@ -79,6 +86,7 @@
 
          |
 
+         \trillflat
          af''4. \startTrillSpan
          ~
          af''8.
@@ -134,6 +142,7 @@
          |
 
          d''8. \stopTrillSpan
+         \trillflat
          d''4. \startTrillSpan
          ~
 
@@ -160,6 +169,7 @@
 
          |
 
+         \trillflat
          d''4. \startTrillSpan
          ~
          d''8.