]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/lsr/creating-text-spanners.ly
Imported Upstream version 2.12.3
[lilypond.git] / input / lsr / creating-text-spanners.ly
index 0b3100b94b6b03105d107e7b6cfe6a63ee72bb36..feb83b55dcbf5db47d496ff91fac8dfd42b7149c 100644 (file)
@@ -1,6 +1,6 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.62"
+\version "2.12.3"
 
 \header {
   lsrtags = "expressive-marks, text, tweaks-and-overrides"
@@ -24,32 +24,39 @@ to modify its output.
 "
   doctitle = "Creating text spanners"
 } % begin verbatim
+
+\paper { ragged-right = ##f }
+
 \relative c'' {
-  \override TextSpanner  #'edge-text = #'("bla" . "blu")
-  a \startTextSpan
-  b c
-  a \stopTextSpan
+  \override TextSpanner #'(bound-details left text) = #"bla"
+  \override TextSpanner #'(bound-details right text) = #"blu"
+  a4 \startTextSpan
+  b4 c
+  a4 \stopTextSpan
   
-  \override TextSpanner  #'dash-period = #2
-  \override TextSpanner  #'dash-fraction = #0.0
-  a \startTextSpan
-  b c
-  a \stopTextSpan
+  \override TextSpanner #'style = #'line
+  \once \override TextSpanner
+    #'(bound-details left stencil-align-dir-y) = #CENTER
+  a4 \startTextSpan
+  b4 c
+  a4 \stopTextSpan
   
-  \revert TextSpanner #'style
-  \override TextSpanner  #'style = #'dashed-line \override TextSpanner #'bound-details #'left #'text = \markup { \draw-line #'(0 . 1) }
- \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -2) }
+  \override TextSpanner #'style = #'dashed-line
+  \override TextSpanner #'(bound-details left text) =
+    \markup { \draw-line #'(0 . 1) }
+  \override TextSpanner #'(bound-details right text) =
+    \markup { \draw-line #'(0 . -2) }
+  \once \override TextSpanner #'(bound-details right padding) = #-2
 
-  a \startTextSpan
-  b c
-  a \stopTextSpan
+  a4 \startTextSpan
+  b4 c
+  a4 \stopTextSpan
   
   \set Staff.middleCPosition = #-13
-  \override TextSpanner  #'dash-period = #10
-  \override TextSpanner  #'dash-fraction = #0.5
-  \override TextSpanner  #'thickness = #10
-  a \startTextSpan
-  b c
-  a \stopTextSpan
-  \set Staff.middleCPosition = #-6
+  \override TextSpanner #'dash-period = #10
+  \override TextSpanner #'dash-fraction = #0.5
+  \override TextSpanner #'thickness = #10
+  a4 \startTextSpan
+  b4 c
+  a4 \stopTextSpan
 }