]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/custos.ly
* ly/a4-init.ly (vsize): remove papersize init files.
[lilypond.git] / input / regression / custos.ly
index ed268cf7f320528cf012410177e634b76fae32c0..519a6fc5ce4a30fde929a443248d756e78b18e2d 100644 (file)
@@ -1,33 +1,31 @@
-\version "1.7.18"
+\version "2.3.16"
 \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
+     {
+       \override Staff.Custos  #'neutral-position = #4
 
-       \property Staff.Custos \set #'style = #'hufnagel
-       c'1^"Custos style = \#'hufnagel"
-       \break << d' a' f''>>1
+       \override Staff.Custos  #'style = #'hufnagel
+       c'1^"hufnagel"
+       \break < d' a' f''>1
 
-       \property Staff.Custos \set #'style = #'medicaea
-       c'1^"Custos style = \#'medicaea"
-       \break << d' a' f''>>1
+       \override Staff.Custos  #'style = #'medicaea
+       c'1^"medicaea"
+       \break < d' a' f''>1
 
-       \property Staff.Custos \set #'style = #'vaticana
-       c'1^"Custos style = \#'vaticana"
-       \break << d' a' f''>>1
+       \override Staff.Custos  #'style = #'vaticana
+       c'1^"vaticana"
+       \break < d' a' f''>1
 
-       \property Staff.Custos \set #'style = #'mensural
-       c'1^"Custos style = \#'mensural"
-       \break << d' a' f''>>1
+       \override Staff.Custos  #'style = #'mensural
+       c'1^"mensural"
+       \break < d' a' f''>1
     }
     \paper {
-       \translator {
-           \StaffContext
+       \context {
+           \Staff
            \consists Custos_engraver
        }
        raggedright = ##t