]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/arpeggio-collision.ly
Issue 1388: Initial work to support opentype font features.
[lilypond.git] / input / regression / arpeggio-collision.ly
index 5bface2330bc323f4442b7cbaba814d04674c652..5fccbca3a6af6aaf416b3d101905f901e1297249 100644 (file)
@@ -1,52 +1,22 @@
-#(ly:set-option 'old-relative)
-\version "1.9.2"
+\version "2.17.17"
 
 \header  {
-texidoc = "Arpeggio stays clear of accidentals and flipped note heads.
-Since Arpeggio engraver is Voice, it does nothing for voice collisions."
+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' <
-    \new Voice {
-        \property Voice.Stem \override #'direction = #1
-        \property Voice.NoteColumn \override #'horizontal-shift = #0
-        e4\arpeggio
-    }
-    
-    \new Voice {
-        \property Voice.Stem \override #'direction = #1
-        \property Voice.NoteColumn \override #'horizontal-shift = #1
-        cis\arpeggio
-        }
-    
-    \new Voice {
-       \property Voice.Stem \override #'direction = #1
-       \property Voice.NoteColumn \override #'horizontal-shift = #2
-       ais\arpeggio
-       }
-    
-    \new Voice {
-       \property Voice.Stem \override #'direction = #-1
-       \property Voice.NoteColumn \override #'horizontal-shift = #-1
-       fis\arpeggio
-       }
->
 
 
-\score{
-    \notes \transpose c c' {
-       << fis'' g  d a >>\arpeggio
-       << fis, g  d a >>\arpeggio
-       << fis'' g  d a >>\arpeggio
-        \hairyChord
-       }
-    \paper {
-        raggedright = ##t
-       \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 } >>
 }
-
-