2 % TODO: split ancient-font into seperate files; possibly in
5 texidoc = "@cindex Ancient Font
6 Here are shown many (all?) of the symbols that are
7 included in LilyPond's support of ancient notation.
12 upperStaff = \context GregorianStaff = upperStaff <<
13 \context GregorianVoice <<
14 \set Score.timing = ##f
15 % \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
17 \override Staff.StaffSymbol #'line-count = #4
20 \override Staff.KeySignature #'style = #'vaticana
21 \override Staff.Accidental #'style = #'vaticana
22 \override NoteHead #'style = #'vaticana_punctum
27 \override NoteHead #'style = #'vaticana_inclinatum
29 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
32 \override NoteHead #'style = #'vaticana_quilisma
36 \override NoteHead #'style = #'vaticana_plica
38 \override NoteHead #'style = #'vaticana_reverse_plica
40 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
43 \override NoteHead #'style = #'vaticana_punctum_cavum
45 \override NoteHead #'style = #'vaticana_lpes
47 \override NoteHead #'style = #'vaticana_upes
49 \override NoteHead #'style = #'vaticana_vupes
51 \override NoteHead #'style = #'vaticana_linea_punctum
52 \override Staff.BarLine #'bar-size = #2.0 \bar "|"
56 \override NoteHead #'style = #'vaticana_epiphonus
58 \override NoteHead #'style = #'vaticana_cephalicus
61 \override Staff.KeySignature #'style = #'medicaea
62 \override Staff.Accidental #'style = #'medicaea
63 \override Staff.Custos #'style = #'medicaea
64 \override NoteHead #'style = #'medicaea_punctum
67 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
72 \override NoteHead #'style = #'medicaea_inclinatum
74 \override NoteHead #'style = #'medicaea_virga
76 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
81 \override NoteHead #'style = #'medicaea_rvirga
84 \override Staff.KeySignature #'style = #'hufnagel
85 \override Staff.Accidental #'style = #'hufnagel
86 \override Staff.Custos #'style = #'hufnagel
87 \override NoteHead #'style = #'hufnagel_punctum
90 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
95 \override NoteHead #'style = #'hufnagel_lpes
97 \override NoteHead #'style = #'hufnagel_virga
99 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
103 \clef "hufnagel_do_fa"
104 \override NoteHead #'style = #'hufnagel_punctum
105 es! des! ces! des! es! fes!
115 lowerStaff = \context MensuralStaff = lowerStaff <<
116 \context MensuralVoice <<
118 % this is broken until further notice -- see refman
119 % \override Staff.StaffSymbol #'line-count = #5
120 \context Staff \applyoutput #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
123 \set autoBeaming = ##f
124 \override NoteHead #'style = #'neo_mensural
125 \override Rest #'style = #'neo_mensural
128 % FIXME: lily crashes on some (invalid?) ligatures with:
129 % ERROR: In procedure gh_scm2int:
130 % ERROR: Wrong type argument in position 1: ()
132 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
133 % on many ligatures such as BB.
135 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
136 \set Staff.forceClef = ##t
137 \clef "neo_mensural_c2"
142 \[ g\breve dis''\longa \]
143 b\breve \[ a\longa d\longa \]
150 \set Staff.forceClef = ##t
159 \override NoteHead #'style = #'mensural
160 \override Stem #'flag-style = #'mensural
161 \override Stem #'thickness = #1.0
162 \override Rest #'style = #'mensural
164 c8 b, c16 b, c32 b, c64 b, c64 b,
165 d8 e d16 e d32 e d64 e d64 e
167 \set Staff.forceClef = ##t
175 % FIXME: must set Stem flag-style to #'neo_mensural to avoid
176 % segmentation fault on r8/r16/r32. (Strange: what has
177 % Stem flag-style to do with mensural rests?)
178 \override Stem #'flag-style = #'neo_mensural
179 % FIXME: produces warnings about "flag `neo_mensurald4' (or 3) not found".
181 \override Stem #'flag-style = #'mensural
182 \set Staff.forceClef = ##t
188 \[ bes'!\longa a'!\longa c''!\longa \]
189 e'1 d' c' d' \bar "|"
193 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
194 \set Staff.forceClef = ##t
199 \set Staff.forceClef = ##t
204 bes'! as'! gis'! fis'!
205 \set Staff.forceClef = ##t
207 es'! des'! cis'!1 \bar "||"
219 % do we want to keep these settings? -gp
222 linethickness = #(/ staffspace 5.0)
226 \accepts MensuralStaff
227 \accepts GregorianStaff
228 % timing = ##f %%%%%%%% FIXME: this has no effect
234 \remove Ligature_bracket_engraver
235 \consists Mensural_ligature_engraver
236 \override NoteHead #'style = #'mensural
237 % \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
238 \override Stem #'thickness = #1.0
239 \override Rest #'style = #'mensural
246 \remove Ligature_bracket_engraver
247 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
248 \override NoteHead #'style = #'vaticana_punctum
255 \accepts MensuralVoice
256 \consists Custos_engraver
257 \override TimeSignature #'style = #'mensural
258 \override KeySignature #'style = #'mensural
259 \override Accidental #'style = #'mensural
260 \override Custos #'style = #'mensural
261 \override Custos #'neutral-position = #3
262 \override Custos #'neutral-direction = #-1
263 clefGlyph = #"clefs-petrucci_c2"
271 \accepts GregorianVoice
272 \consists Custos_engraver
273 \remove Time_signature_engraver
274 \override StaffSymbol #'thickness = #2.0
275 \override StaffSymbol #'line-count = #4
276 \override KeySignature #'style = #'vaticana
277 \override Accidental #'style = #'vaticana
278 \override Custos #'style = #'vaticana
279 \override Custos #'neutral-position = #4
280 \override Custos #'neutral-direction = #-1
281 clefGlyph = #"clefs-vaticana_do"
286 \RemoveEmptyStaffContext
287 \accepts MensuralVoice
288 \accepts GregorianVoice