From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 18 Apr 2005 12:31:20 +0000 (+0000)
Subject: new file.
X-Git-Tag: release/2.5.20~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ca0f6dc1be50792ed4cfaaefc422a1332c01f7f9;p=lilypond.git

new file.
---

diff --git a/input/regression/line-arrows.ly b/input/regression/line-arrows.ly
index 47e9ebbb92..b4cb74b2a0 100644
--- 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
 }