* VERSION (MY_PATCH_LEVEL): make 1.7.0

[lilypond.git] / input / test / custos.ly

diff --git a/input/test/custos.ly b/input/test/custos.ly
index 725996d7fd9bebffb7a3dc71f95ec1536257f2b0..770717bbbe170e93be409c8183b6a1ab43ea726f 100644 (file)
--- a/input/test/custos.ly
+++ b/input/test/custos.ly
@@ -1,9 +1,34 @@
 \version "1.5.68"
+\header {
+    texidoc = "custodes in various styles."
+}
+
+\score {
+    \notes {
+       \property Staff.Custos \set #'neutral-position = #4
+       \property Staff.Custos \set #'neutral-direction = #-1
+       \property Staff.Custos \set #'adjust-if-on-staffline = ##t
+
+       \property Staff.Custos \set #'style = #'hufnagel
+       c'1^"Custos style = \#'hufnagel"
+       \break < d'1 a' f''>
 
+       \property Staff.Custos \set #'style = #'medicaea
+       c'1^"Custos style = \#'medicaea"
+       \break < d'1 a' f''>
 
-\score { \notes { c'1 \break < d'1 f' a'>  }
-\paper {\translator { \StaffContext
-\consists Custos_engraver
-}}
+       \property Staff.Custos \set #'style = #'vaticana
+       c'1^"Custos style = \#'vaticana"
+       \break < d'1 a' f''>
 
+       \property Staff.Custos \set #'style = #'mensural
+       c'1^"Custos style = \#'mensural"
+       \break < d'1 a' f''>
+    }
+    \paper {
+       \translator {
+           \StaffContext
+           \consists Custos_engraver
+       }
+    }
 }