]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/arpeggio-collision.ly
Doc-es: various updates.
[lilypond.git] / input / regression / arpeggio-collision.ly
index d7d9907af4634c721a12290a6a56f94a758e7e39..5fccbca3a6af6aaf416b3d101905f901e1297249 100644 (file)
@@ -1,47 +1,22 @@
-\header = {
-texidoc = "arpeggio stays clear of accidentals and flipped note heads.
-Since Arpeggio engraver is Voice, it does nothing for voice collisions."
-};
+\version "2.17.17"
+
+\header  {
+texidoc = "Arpeggio stays clear of accidentals and flipped note heads."
+}
+\layout {
+  ragged-right = ##t
+  \context{
+    \Staff
+    connectArpeggios = ##t
+    \consists "Span_arpeggio_engraver"
+  }
+}
 
-hairyChord = \context Staff \notes\relative c' <
-    \context Voice=one {
-        \property Voice.Stem \override #'direction = #1
-        \property Voice.NoteColumn \override #'horizontal-shift = #0
-        e4-\arpeggio
-    }
-    
-    \context Voice=two {
-        \property Voice.Stem \override #'direction = #1
-        \property Voice.NoteColumn \override #'horizontal-shift = #1
-        cis-\arpeggio
-        }
-    
-    \context Voice=three {
-       \property Voice.Stem \override #'direction = #1
-       \property Voice.NoteColumn \override #'horizontal-shift = #2
-       ais-\arpeggio
-       }
-    
-    \context Voice=four {
-       \property Voice.Stem \override #'direction = #-1
-       \property Voice.NoteColumn \override #'horizontal-shift = #-1
-       fis-\arpeggio
-       }
->
 
 
-\score{
-    \notes \transpose c'' {
-        \context Voice < fis''-\arpeggio g  d a >
-        \context Voice < fis,-\arpeggio g  d a >
-        \context Voice < fis''-\arpeggio g  d a >
-        \hairyChord
-       }
-    \paper {
-        linewidth = -1.;
-       \translator{
-           \StaffContext
-           connectArpeggios = ##t
-       }
-       }
+\transpose c c' {
+  <fis'' g d a>\arpeggio
+  <fis, g d a>\arpeggio
+  <fis'' g d a>\arpeggio
+  << { <e' a>\arpeggio } \\ { <g cis>\arpeggio } >>
 }