Merge branch 'master' of ssh+git://git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / input / lsr / caesura-railtracks-with-fermata.ly

diff --git a/input/lsr/caesura-railtracks-with-fermata.ly b/input/lsr/caesura-railtracks-with-fermata.ly
index 08ee89a2858d6a097177f62298e3b04323b807e6..9a7fbf1ac9696b841df1de0c5e6ad5e224a6640e 100644 (file)
--- a/input/lsr/caesura-railtracks-with-fermata.ly
+++ b/input/lsr/caesura-railtracks-with-fermata.ly
@@ -12,19 +12,16 @@ and a fermata.
 " }
 % begin verbatim
 {
-  \context Voice {
-    c''2.
-    % use some scheme code to construct the symbol
-    \override BreathingSign #'text = #(markup #:line 
-                                  (#:musicglyph "scripts.caesura.curved"
-                                   #:translate (cons -1.75 1.6) 
-                                   #:musicglyph "scripts.ufermata"
-                                  ))
-    \breathe c''4
-    % set the breathe mark back to normal
-    \revert BreathingSign #'text
-    c''2. \breathe c''4
-    \bar "|."
+  c''2.
+  % construct the symbol
+  \override BreathingSign #'text = \markup {
+    \line {
+      \musicglyph #"scripts.caesura.curved" \translate #'(-1.75 . 1.6) \musicglyph #"scripts.ufermata"
+    }
   }
+  \breathe c''4
+  % set the breathe mark back to normal
+  \revert BreathingSign #'text
+  c''2. \breathe c''4
+  \bar "|."
 }
-