]> git.donarmstrong.com Git - lilypond.git/blob - input/test/custos.ly
* VERSION (MY_PATCH_LEVEL): make 1.7.0
[lilypond.git] / input / test / custos.ly
1 \version "1.5.68"
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'1 a' f''>
15
16         \property Staff.Custos \set #'style = #'medicaea
17         c'1^"Custos style = \#'medicaea"
18         \break < d'1 a' f''>
19
20         \property Staff.Custos \set #'style = #'vaticana
21         c'1^"Custos style = \#'vaticana"
22         \break < d'1 a' f''>
23
24         \property Staff.Custos \set #'style = #'mensural
25         c'1^"Custos style = \#'mensural"
26         \break < d'1 a' f''>
27     }
28     \paper {
29         \translator {
30             \StaffContext
31             \consists Custos_engraver
32         }
33     }
34 }