]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/custos.ly
(all-grob-descriptions): less padding.
[lilypond.git] / input / regression / custos.ly
1 \version "2.1.7"
2 \header {
3     texidoc = "Custodes in various styles."
4 }
5
6 \score {
7     \notes {
8         \property Staff.Custos \set #'neutral-position = #4
9
10         \property Staff.Custos \set #'style = #'hufnagel
11         c'1^"hufnagel"
12         \break < d' a' f''>1
13
14         \property Staff.Custos \set #'style = #'medicaea
15         c'1^"medicaea"
16         \break < d' a' f''>1
17
18         \property Staff.Custos \set #'style = #'vaticana
19         c'1^"vaticana"
20         \break < d' a' f''>1
21
22         \property Staff.Custos \set #'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