X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Farpeggio.ly;h=8e0066e8b2619a51da6515caca405950c3c9ec67;hb=9a7dfb0f5156e52dd4c4ad158abad29f165220e9;hp=1f956f90a070e5773a3ba3d8ed06c38629a91c2d;hpb=68a168bff1fec7f8011b2afa82d4fc89182c4bf7;p=lilypond.git

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