]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/custos.ly
a38d2c8defb8e5209ab295fa60730cc4acc2d17e
[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         \property Staff.Custos \set #'neutral-direction = #-1
10         \property Staff.Custos \set #'adjust-if-on-staffline = ##t
11
12         \property Staff.Custos \set #'style = #'hufnagel
13         c'1^"Custos style = \#'hufnagel"
14         \break < d' a' f''>1
15
16         \property Staff.Custos \set #'style = #'medicaea
17         c'1^"Custos style = \#'medicaea"
18         \break < d' a' f''>1
19
20         \property Staff.Custos \set #'style = #'vaticana
21         c'1^"Custos style = \#'vaticana"
22         \break < d' a' f''>1
23
24         \property Staff.Custos \set #'style = #'mensural
25         c'1^"Custos style = \#'mensural"
26         \break < d' a' f''>1
27     }
28     \paper {
29         \translator {
30             \StaffContext
31             \consists Custos_engraver
32         }
33         raggedright = ##t
34     }
35 }
36