X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fcustos.ly;h=770717bbbe170e93be409c8183b6a1ab43ea726f;hb=d765f3af45be51f15da55cf570a4b172200e1035;hp=725996d7fd9bebffb7a3dc71f95ec1536257f2b0;hpb=98af510165132fc80aee30f8e58c627247c7cb3e;p=lilypond.git

diff --git a/input/test/custos.ly b/input/test/custos.ly
index 725996d7fd..770717bbbe 100644
--- 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
+	}
+    }
 }