new file.

diff --git a/input/regression/line-arrows.ly b/input/regression/line-arrows.ly
index 47e9ebbb9223822d1a9ce0fdd070c1c49a8cf375..b4cb74b2a0375b5b485f8e9ce03e4a25fcb0ccd2 100644 (file)
--- a/input/regression/line-arrows.ly
+++ b/input/regression/line-arrows.ly
@@ -1,23 +1,23 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\version "2.5.18"
+\header {
+  texidoc = "Arrows can be applied to text-spanners and line-spanners (such as the Glissando)"
+}
 
-%% demonstration of line arrows
-%% By Jonatan Liljedahl <http://kymatica.com>
+\version "2.5.20"
 
-\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
+\paper {
+  raggedright = ##t
+}
 
-    %% We can put arrows to a glissando line
-    \override Glissando #'arrow = ##t
-    
-    a8\startTextSpan gis8\< a2 b4\glissando
-    c,4 g'\! c\stopTextSpan c
+\relative c'' {
+  \override TextSpanner #'edge-text = #'("foo" . "bar")
+  \override TextSpanner #'bound-padding = #1.0
+  \override TextSpanner #'dash-fraction = #'()
+  \override TextSpanner #'arrow = ##t
+  
+  \override Glissando #'arrow = ##t
+  \override Glissando #'arrow-length = #0.5
+  \override Glissando #'arrow-width = #0.25
+  
+  a8\startTextSpan gis8 a4 b4\glissando
+  b,4 | g' c\stopTextSpan c
 }