]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/new/simultaneous-headword.ly
Docs: run convert-ly for 2.14.0.
[lilypond.git] / Documentation / snippets / new / simultaneous-headword.ly
index 201abbd9286b323f9d15959a51d51de6b60686d3..e42121447e312ed313df611faf05c48d72c6e576 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.12.0"
+\version "2.14.0"
 \include "english.ly"
 #(set-global-staff-size 15)
 \paper {
@@ -7,15 +7,6 @@
   indent = 0\cm
 }
 
-\layout {
-  \context {
-    \Score
-    \override PaperColumn #'keep-inside-line = ##t
-    \override NonMusicalPaperColumn #'keep-inside-line = ##t
-  }
-}
-
-
 \header {
   lsrtags = "headwords"
   texidoc = ""
   }
 }
 
-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))
-
+trillFlat =
+\once \override TrillSpanner #'(bound-details left text) = \markup {
+  \concat {
+    \musicglyph #"scripts.trill"
+    \translate #'(-0.5 . 1.9)
+    \fontsize #-7
+    \with-dimensions #'(0 . 0) #'(0 . 0)
+    \flat
+  }
+}
 
 \new PianoStaff <<
 
@@ -95,7 +90,7 @@ trillflat =
       |
       \break
 
-      \trillflat
+      \trillFlat
       af''4. \startTrillSpan
       ~
       af''8.
@@ -151,7 +146,7 @@ trillflat =
       |
 
       d''8. \stopTrillSpan
-      \trillflat
+      \trillFlat
       d''4. \startTrillSpan
       ~
 
@@ -178,7 +173,7 @@ trillflat =
 
       |
 
-      \trillflat
+      \trillFlat
       d''4. \startTrillSpan
       ~
       d''8.