X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fcustos.ly;h=cea333974627052e835e299538b22a37a0a5734e;hb=3ee5a5b2e566aa1638b4cb2d883e8e2b99c3fce5;hp=e5280ca1eef7d3bc93d14d621e1f509ba4e495cb;hpb=d3483d5c5122f7d05bb744aa2fa1712f7ab5901a;p=lilypond.git

diff --git a/input/regression/custos.ly b/input/regression/custos.ly
index e5280ca1ee..cea3339746 100644
--- a/input/regression/custos.ly
+++ b/input/regression/custos.ly
@@ -1,36 +1,34 @@
-\version "1.7.18"
+\version "2.10.0"
 \header {
-    texidoc = "Custodes in various styles."
+    texidoc = "Custodes may be engraved 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' a' f''>>1
-
-	\property Staff.Custos \set #'style = #'medicaea
-	c'1^"Custos style = \#'medicaea"
-	\break << d' a' f''>>1
-
-	\property Staff.Custos \set #'style = #'vaticana
-	c'1^"Custos style = \#'vaticana"
-	\break << d' a' f''>>1
-
-	\property Staff.Custos \set #'style = #'mensural
-	c'1^"Custos style = \#'mensural"
-	\break << d' a' f''>>1
-    }
-    \paper {
-	\translator {
-	    \StaffContext
-	    \consists Custos_engraver
-	}
-	raggedright = ##t
-    }
+\layout {
+  \context {
+    \Staff
+    \consists Custos_engraver
+  }
+  ragged-right = ##t
 }
 
+
+
+{
+  \override Staff.Custos  #'neutral-position = #4
+
+  \override Staff.Custos  #'style = #'hufnagel
+  c'1^"hufnagel"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'medicaea
+  c'1^"medicaea"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'vaticana
+  c'1^"vaticana"
+  \break < d' a' f''>1
+
+  \override Staff.Custos  #'style = #'mensural
+  c'1^"mensural"
+  \break < d' a' f''>1
+}