X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Farpeggio.ly;h=abe2054cd531eb5fb91475bc33d815179a0a992c;hb=8cab78caa0db1ba14f2e52e4c1ddbb541ea0e5cb;hp=1699fa7dc7a920f81b00cc3e48dd4c06301fcec0;hpb=5d5ca8642dca9169ddf78949c41381e5f1380975;p=lilypond.git

diff --git a/input/regression/arpeggio.ly b/input/regression/arpeggio.ly
index 1699fa7dc7..abe2054cd5 100644
--- a/input/regression/arpeggio.ly
+++ b/input/regression/arpeggio.ly
@@ -1,23 +1,28 @@
+
+\version "2.12.0"
 \header{
-texidoc="
+  texidoc="
 Arpeggios are supported, both cross-staff and broken single staff.
-";
+"
 }
 
-\version "1.3.117";
+\layout { ragged-right= ##t }
 
-\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 Staff=two \notes\relative c{
-	     \clef bass;
-	    \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
+  }
+>>