]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/custos.ly
4eeeab929eb4402711108813ee430b786d7dad72
[lilypond.git] / input / regression / custos.ly
1 \version "2.6.0"
2 \header {
3     texidoc = "Custodes may be engraved in various styles."
4 }
5
6 \score {
7      {
8         \override Staff.Custos  #'neutral-position = #4
9
10         \override Staff.Custos  #'style = #'hufnagel
11         c'1^"hufnagel"
12         \break < d' a' f''>1
13
14         \override Staff.Custos  #'style = #'medicaea
15         c'1^"medicaea"
16         \break < d' a' f''>1
17
18         \override Staff.Custos  #'style = #'vaticana
19         c'1^"vaticana"
20         \break < d' a' f''>1
21
22         \override Staff.Custos  #'style = #'mensural
23         c'1^"mensural"
24         \break < d' a' f''>1
25     }
26     \layout {
27         \context {
28             \Staff
29             \consists Custos_engraver
30         }
31         raggedright = ##t
32     }
33 }
34