* lily/stem.cc (print): only produce stemlets if there are no

[lilypond.git] / input / regression / arpeggio.ly

diff --git a/input/regression/arpeggio.ly b/input/regression/arpeggio.ly
index e956dc4e7f0b35fb469f5b0dee5a81213c5f5f0e..8e0066e8b2619a51da6515caca405950c3c9ec67 100644 (file)
--- a/input/regression/arpeggio.ly
+++ b/input/regression/arpeggio.ly
@@ -1,4 +1,5 @@
-\version "1.5.68"
+
+\version "2.4.0"
 \header{
 texidoc="
 Arpeggios are supported, both cross-staff and broken single staff.
@@ -8,21 +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 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 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   >
-           \property Staff.Arpeggio \override #'arpeggio-direction = #-1           
-           \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 }
 }