Imported Upstream version 2.16.0

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

diff --git a/input/regression/line-arrows.ly b/input/regression/line-arrows.ly
index 47e9ebbb9223822d1a9ce0fdd070c1c49a8cf375..affd3a7ab082319df90f09f616bc2a9373854817 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.16.0"
 
-%% 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
+  \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
+  
+  a8\startTextSpan gis8 a4 b4\glissando
+  b,4 | g' c\stopTextSpan c
 }