]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/arpeggio-collision.ly
(Composite_music): new transpose syntax,
[lilypond.git] / input / regression / arpeggio-collision.ly
1 \version "1.7.5"
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         \context Voice < fis''-\arpeggio g  d a >
38         \context Voice < fis,-\arpeggio g  d a >
39         \context Voice < fis''-\arpeggio g  d a >
40         \hairyChord
41         }
42     \paper {
43         linewidth = -1.
44         \translator{
45             \StaffContext
46             connectArpeggios = ##t
47         }
48         }
49 }