Release: bump Welcome versions.

[lilypond.git] / input / regression / line-arrows.ly

diff --git a/input/regression/line-arrows.ly b/input/regression/line-arrows.ly
index 47e9ebbb9223822d1a9ce0fdd070c1c49a8cf375..9cfa44915475a51894b15f250bee4424898e335e 100644 (file)
--- a/input/regression/line-arrows.ly
+++ b/input/regression/line-arrows.ly
@@ -1,23 +1,28 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\version "2.5.18"
+\header {
+  texidoc = "Arrows can be applied to text-spanners and line-spanners (such as the Glissando)"
+}
+
+\version "2.19.21"
 
-%% demonstration of line arrows
-%% By Jonatan Liljedahl <http://kymatica.com>
+\paper {
+  ragged-right = ##t
+}
 
-\relative c'' {
-    %% Arrow between two texts    
-    \override TextSpanner #'edge-text = #'("foo" . "bar")
-    \override TextSpanner #'dash-fraction = #'()
-    \override TextSpanner #'style = #'line
-    \override TextSpanner #'arrow = ##t
-    
-    %% Default arrow size
-%    \override TextSpanner #'arrow-length = #1.3
-%    \override TextSpanner #'arrow-width = #0.5
+\relative {
+  \override TextSpanner.bound-padding = #1.0
+  \override TextSpanner.style = #'line
+  \override TextSpanner.bound-details.right.arrow = ##t
+  \override TextSpanner.bound-details.left.text = #"fof"
+  \override TextSpanner.bound-details.right.text = #"gag"
+  \override TextSpanner.bound-details.right.padding = #0.6
 
-    %% We can put arrows to a glissando line
-    \override Glissando #'arrow = ##t
-    
-    a8\startTextSpan gis8\< a2 b4\glissando
-    c,4 g'\! c\stopTextSpan c
+  \override TextSpanner.bound-details.right.stencil-align-dir-y = #CENTER
+  \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
+  
+  \override Glissando.bound-details.right.arrow = ##t
+  \override Glissando.arrow-length = #0.5
+  \override Glissando.arrow-width = #0.25
+  
+  a'8\startTextSpan gis8 a4 b4\glissando
+  b,4 | g' c\stopTextSpan c
 }