]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/arpeggio.ly
Run scripts/auxiliar/update-with-convert-ly.sh
[lilypond.git] / input / regression / arpeggio.ly
index 6d398ace0bae8947685fb511cb5334d90db79a32..dc6ae63480112ec55f49c40d09b7856a691df300 100644 (file)
@@ -1,28 +1,28 @@
-\version "1.7.18"
+
+\version "2.16.0"
 \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,  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
-            <<fis, a c>>-\arpeggio
-         }
-        \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 b d>>-\arpeggio
-        }
-    >
-}
+\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
+  }
+>>