3 title = "ancient font test"
12 \property Score.timing = ##f
13 % \property Staff.TimeSignature \override #'style = #'old
16 upperVoice = \context Staff = upperVoice <
19 % this is broken until further notice -- see refman
20 % \property Staff.StaffSymbol \override #'line-count = #4
21 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
24 \notes \transpose c' {
25 \property Voice.NoteHead \override #'style = #'mensural
26 \property Voice.Stem \override #'stem-centered = ##t
27 \property Staff.Custos \override #'style = #'vaticana
31 % \property Staff.clefGlyph = #"clefs-vaticana_do"
32 % \property Staff.clefPosition = #1
33 % \property Staff.clefOctavation = #0
41 \property Staff.Custos \override #'style = #'medicaea
50 \property Staff.Custos \override #'style = #'hufnagel
61 lowerVoice = \context Staff = lowerNotes <
64 % this is broken until further notice -- see refman
65 % \property Staff.StaffSymbol \override #'line-count = #5
66 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
69 \notes \transpose c' {
70 \property Voice.NoteHead \override #'style = #'mensural
71 \property Voice.Stem \override #'stem-centered = ##t
72 \property Staff.Custos \override #'style = #'mensural
75 \property Staff.forceClef = ##t
84 \property Staff.forceClef = ##t
93 \property Staff.forceClef = ##t
100 \property Staff.forceClef = ##t
106 \property Staff.forceClef = ##t
110 \property Staff.forceClef = ##t
113 \clef "hufnagel_do_fa"
116 \property Staff.forceClef = ##t
117 \clef "hufnagel_do_fa"
123 \context ChoirStaff <
134 \consists Custos_engraver
135 % Custos \override #'style = #'mensural
136 \remove Time_signature_engraver
137 % StaffSymbol \override #'line-count = #4