X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Farpeggio.ly;h=dc6ae63480112ec55f49c40d09b7856a691df300;hb=26a079ca2393d053315ef8dbef626c897dc9645a;hp=83f353f9bf8a984bb032b9f4a1ef6008b074be8f;hpb=197f00037dc4c9e7bd17368f50d11dd8cde7a994;p=lilypond.git

diff --git a/input/regression/arpeggio.ly b/input/regression/arpeggio.ly
index 83f353f9bf..dc6ae63480 100644
--- a/input/regression/arpeggio.ly
+++ b/input/regression/arpeggio.ly
@@ -1,30 +1,28 @@
 
-\version "2.1.22"
+\version "2.16.0"
 \header{
-texidoc="
+  texidoc="
 Arpeggios are supported, both cross-staff and broken single staff.
 "
 }
 
+\layout { ragged-right= ##t }
 
 
-\score{
-    \context PianoStaff\notes << 
-	 \new Staff \relative c''{
-	     <fis,  d a>\arpeggio
-	    \override Staff.Arpeggio  #'arpeggio-direction = #1 
-	     <fis d a >\arpeggio	    
-	     %%\override PianoStaff.SpanArpeggio  #'connect = ##t
-	     \set PianoStaff.connectArpeggios =  ##t
-	     <fis d a>\arpeggio
-	  }
-	 \new Staff\relative c{
-	     \clef bass
-	     <g b d>\arpeggio
-	    \override Staff.Arpeggio  #'arpeggio-direction = #-1
-	     <g b d>\arpeggio
-	     <g b d>\arpeggio
-	 }
-    >>
-    \paper { raggedright= ##t }
-}
+\context PianoStaff << 
+  \new Staff \relative c''{
+    <fis,  d a>\arpeggio
+    \arpeggioArrowUp
+    <fis d a >\arpeggio	    
+    %%\override PianoStaff.SpanArpeggio  #'connect = ##t
+    \set PianoStaff.connectArpeggios = ##t
+    <fis d a>\arpeggio
+  }
+  \new Staff\relative c{
+    \clef bass
+    <g b d>\arpeggio
+    \arpeggioArrowDown
+    <g b d>\arpeggio
+    <g b d>\arpeggio
+  }
+>>