(conv): dashes rule.

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

diff --git a/input/regression/arpeggio.ly b/input/regression/arpeggio.ly
index 82080d31c1dc16b6770085c7e8247c9f4ec4a620..303c8dd9a943eafb924d2a7c4d93bb0539a76093 100644 (file)
--- a/input/regression/arpeggio.ly
+++ b/input/regression/arpeggio.ly
@@ -1,41 +1,30 @@
-\version "1.3.146"
+#(ly:set-option 'old-relative)
+\version "1.9.1"
 \header{
 texidoc="
 Arpeggios are supported, both cross-staff and broken single staff.
-Directed arpeggios are indicated by arrows, while a square bracket 
-to the left prevents arpeggiation. 
 "
 }
 
 
 
-\score {
-     \context PianoStaff < 
-        \context Staff=one \notes\relative c'{
-           \context Voice {
-            < a4 d fis-\arpeggio a >
-            \property Voice.Arpeggio \override #'arpeggio-type = #'bracket
-            < d fis-\arpeggio a d >
-     %%\property PianoStaff.SpanArpeggio \override #'connect = ##t
+\score{
+    \context PianoStaff < 
+        \context Staff=one \notes\relative c''{
+           \context Voice << fis,  d a >>\arpeggio
+           \property Staff.Arpeggio \override #'arpeggio-direction = #1 
+           \context Voice << fis,  d a >>\arpeggio         
+            %%\property PianoStaff.SpanArpeggio \override #'connect = ##t
             \property PianoStaff.connectArpeggios = ##t
-            <b-\arpeggio d g b>
-            \property PianoStaff.Arpeggio \override #'arpeggio-type = #'bracket
-            <c-\arpeggio e g c>
-            \property PianoStaff.connectArpeggios = ##f
-            \property Voice.Arpeggio \override #'arpeggio-type = #'down
-            <a1-\arpeggio d fis a>
-
-           }
+            <<fis, a c>>\arpeggio
          }
-        \context Staff=two \notes\relative c {
+        \context Staff=two \notes\relative c{
             \clef bass
-            \context Voice {
-            r4 r 
-            <d,\arpeggio a' d >
-            <d \arpeggio a' d >
-            \property Voice.Arpeggio \override #'arpeggio-type = #'up
-            <g1 \arpeggio b d g>
-           }
-         }
+           \context Voice << g b d   >>\arpeggio
+           \property Staff.Arpeggio \override #'arpeggio-direction = #-1           
+           \context Voice << g b d   >>\arpeggio           
+            <<g b d>>\arpeggio
+        }
     >
+    \paper { raggedright= ##t }
 }