X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Farpeggio.ly;h=8b3076328b1420a32e2b9040782223718c3ab950;hb=4b78ea65daabcab3c4b6baf90fdd6f98aa186917;hp=405098dd6c4ebb2db73ab3860966cb218e3b8a99;hpb=5c2afd9ecbe4d91998a325f6323f05ea4d658d96;p=lilypond.git

diff --git a/input/regression/arpeggio.ly b/input/regression/arpeggio.ly
index 405098dd6c..8b3076328b 100644
--- a/input/regression/arpeggio.ly
+++ b/input/regression/arpeggio.ly
@@ -1,28 +1,28 @@
-\version "1.3.146"
+
+\version "2.17.6"
 \header{
-texidoc="
+  texidoc="
 Arpeggios are supported, both cross-staff and broken single staff.
 "
 }
 
+\layout { ragged-right= ##t }
 
 
-\score{
-    \context PianoStaff < 
-	 \context Staff=one \notes\relative c''{
-	    \context Voice < fis,-\arpeggio  d a >
-	    \property Staff.Arpeggio \override #'arpeggio-direction = #1 
-	    \context Voice < fis,-\arpeggio  d a >	    
-	     %%\property PianoStaff.SpanArpeggio \override #'connect = ##t
-	     \property PianoStaff.connectArpeggios = ##t
-	     <fis,\arpeggio a c>
-	  }
-	 \context Staff=two \notes\relative c{
-	     \clef bass
-	    \context Voice < g b d-\arpeggio   >
-	    \property Staff.Arpeggio \override #'arpeggio-direction = #-1 	    
-	    \context Voice < g b d-\arpeggio   >	    
-	     <g\arpeggio b d>
-	 }
-    >
-}
+\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
+  }
+>>