3 title = "ancient font test"
12 \property Score.timing = ##f
13 % \property Score.forceAccidental = ##t
14 % \property Staff.TimeSignature \override #'style = #'old
17 upperVoice = \context Staff = upperVoice <
20 % this is broken until further notice -- see refman
21 % \property Staff.StaffSymbol \override #'line-count = #4
22 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
25 \notes \transpose c' {
26 \property Staff.KeySignature \override #'style = #'vaticana
27 \property Staff.Accidentals \override #'style = #'vaticana
28 \property Staff.Custos \override #'style = #'vaticana
29 \property Voice.NoteHead \override #'style = #'vaticana_punctum
34 % \property Staff.clefGlyph = #"clefs-vaticana_do"
35 % \property Staff.clefPosition = #1
36 % \property Staff.clefOctavation = #0
39 \property Voice.NoteHead \override #'style = #'vaticana_subbipunctum
41 \property Voice.NoteHead \override #'style = #'vaticana_virga
44 \property Voice.NoteHead \override #'style = #'vaticana_quilisma
46 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
49 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
51 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
52 \property Voice.NoteHead \override #'style = #'vaticana_lpes
54 \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
55 \property Voice.NoteHead \override #'style = #'vaticana_upes
58 \property Voice.NoteHead \override #'style = #'vaticana_vupes
60 \property Voice.NoteHead \override #'style = #'vaticana_plica
61 \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
63 \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
64 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
66 \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
69 \property Staff.KeySignature \override #'style = #'medicaea
70 \property Staff.Accidentals \override #'style = #'medicaea
71 \property Staff.Custos \override #'style = #'medicaea
72 \property Voice.NoteHead \override #'style = #'medicaea_punctum
76 \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
78 \property Voice.NoteHead \override #'style = #'medicaea_virga
81 \property Voice.NoteHead \override #'style = #'medicaea_rvirga
84 \property Staff.KeySignature \override #'style = #'hufnagel
85 \property Staff.Accidentals \override #'style = #'hufnagel
86 \property Staff.Custos \override #'style = #'hufnagel
87 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
89 ces! des! es! fes! ges!
91 \property Voice.NoteHead \override #'style = #'hufnagel_lpes
93 \property Voice.NoteHead \override #'style = #'hufnagel_virga
95 \clef "hufnagel_do_fa"
96 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
97 es! des! ces!1 \bar "||"
101 lowerVoice = \context Staff = lowerNotes <
104 % this is broken until further notice -- see refman
105 % \property Staff.StaffSymbol \override #'line-count = #5
106 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
109 \notes \transpose c' {
110 \property Voice.noAutoBeaming = ##t
111 \property Staff.KeySignature \override #'style = #'mensural
112 \property Staff.Accidentals \override #'style = #'mensural
113 \property Staff.Custos \override #'style = #'mensural
114 \property Voice.NoteHead \override #'style = #'neo_mensural
116 \clef "neo_mensural_c2"
118 \property Staff.forceClef = ##t
119 \clef "neo_mensural_c2"
127 \property Staff.forceClef = ##t
134 \property Voice.NoteHead \override #'style = #'mensural
135 \property Voice.Stem \override #'style = #'mensural
136 \property Voice.Stem \override #'thickness = #1.0
138 c8 b, c16 b, c32 b, c64 b, c b,
139 d8 e d16 e d32 e d64 e d e
141 \property Staff.forceClef = ##t
148 \property Staff.forceClef = ##t
153 bes'! as'! gis'! fis'!
154 \property Staff.forceClef = ##t
158 \property Staff.forceClef = ##t
163 bes'! as'! gis'! fis'!
164 \property Staff.forceClef = ##t
166 es'! des'! cis'!1 \bar "||"
171 \context ChoirStaff <
179 stafflinethickness = \staffspace / 5.0
183 \consists Custos_engraver
184 % Custos \override #'style = #'mensural
185 \remove Time_signature_engraver
186 % StaffSymbol \override #'thickness = #2.0
187 % StaffSymbol \override #'line-count = #4