]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/arpeggio-collision.ly
* Documentation/user/refman.itely: updates.
[lilypond.git] / input / regression / arpeggio-collision.ly
1 \version "1.7.16"
2
3 \header  {
4 texidoc = "arpeggio stays clear of accidentals and flipped note heads.
5 Since Arpeggio engraver is Voice, it does nothing for voice collisions."
6 }
7
8 hairyChord = \context Staff \notes\relative c' <
9     \context Voice=one {
10         \property Voice.Stem \override #'direction = #1
11          \property Voice.NoteColumn \override #'horizontal-shift = #0
12          e4-\arpeggio
13     }
14     
15     \context Voice=two {
16          \property Voice.Stem \override #'direction = #1
17          \property Voice.NoteColumn \override #'horizontal-shift = #1
18          cis-\arpeggio
19          }
20     
21     \context Voice=three {
22         \property Voice.Stem \override #'direction = #1
23         \property Voice.NoteColumn \override #'horizontal-shift = #2
24         ais-\arpeggio
25         }
26     
27     \context Voice=four {
28         \property Voice.Stem \override #'direction = #-1
29         \property Voice.NoteColumn \override #'horizontal-shift = #-1
30         fis-\arpeggio
31         }
32 >
33
34
35 \score{
36     \notes \transpose c c' {
37         << fis'' g  d a >>-\arpeggio
38         << fis, g  d a >>-\arpeggio
39         << fis'' g  d a >>-\arpeggio
40         \hairyChord
41         }
42     \paper {
43         raggedright = ##t
44         \translator{
45             \StaffContext
46             connectArpeggios = ##t
47         }
48         }
49 }
50
51 %% new-chords-done %%