From: Werner Lemberg <wl@gnu.org>
Date: Mon, 28 Jul 2008 22:30:57 +0000 (+0200)
Subject: Fix trills.
X-Git-Tag: release/2.11.55-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=247b63ad7cb0effe2b657aa95d1fba8e6c98ec49;p=lilypond.git

Fix trills.
---

diff --git a/input/manual/simultaneous-headword.ly b/input/manual/simultaneous-headword.ly
index fa2f02573d..8650c35d86 100644
--- 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.