]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/custos.ly
8c9bcfdaa389798c020bbabe247dd87a6e3a9acf
[lilypond.git] / input / regression / custos.ly
1 \version "2.1.23"
2 \header {
3     texidoc = "Custodes in various styles."
4 }
5
6 \score {
7     \notes {
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     \paper {
27         \translator {
28             \StaffContext
29             \consists Custos_engraver
30         }
31         raggedright = ##t
32     }
33 }
34