]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/custos.ly
Docs: run convert-ly for 2.14.0.
[lilypond.git] / input / regression / custos.ly
index f83f23dd8d4a5671ad5cd1e96fff63d29798e2f0..258da6871625b56d270a957bc6f1bcee51d0a3f1 100644 (file)
@@ -1,36 +1,34 @@
-\version "1.7.18"
+\version "2.14.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
 }
-%% new-chords-done %%