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 = \new 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 #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
21 \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
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 #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
62 \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
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 #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
85 \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
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 = \new MensuralStaff = "lowerStaff" <<
116 \context MensuralVoice <<
118 % this is broken until further notice -- see refman
119 % \override Staff.StaffSymbol #'line-count = #5
120 \applyOutput #'Staff #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
123 \set autoBeaming = ##f
124 \override NoteHead #'style = #'neomensural
125 \override Rest #'style = #'neomensural
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 "neomensural-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 #'neomensural 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 = #'neomensural
179 % FIXME: produces warnings about "flag `neomensurald4' (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 "||"
214 line-thickness = #(/ staff-space 5.0)
223 % do we want to keep these settings? -gp
224 line-width = 17.25\cm
229 \accepts MensuralStaff
230 \accepts GregorianStaff
231 % timing = ##f %%%%%%%% FIXME: this has no effect
237 \remove Ligature_bracket_engraver
238 \consists Mensural_ligature_engraver
239 \override NoteHead #'style = #'mensural
240 % \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
241 \override Stem #'thickness = #1.0
242 \override Rest #'style = #'mensural
249 \remove Ligature_bracket_engraver
250 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
251 \override NoteHead #'style = #'vaticana.punctum
258 \accepts MensuralVoice
259 \consists Custos_engraver
260 \override TimeSignature #'style = #'mensural
261 \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
262 \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
263 \override Custos #'style = #'mensural
264 \override Custos #'neutral-position = #3
265 \override Custos #'neutral-direction = #down
266 clefGlyph = #"clefs.petrucci.c2"
274 \accepts GregorianVoice
275 \consists Custos_engraver
276 \remove Time_signature_engraver
277 \override StaffSymbol #'thickness = #2.0
278 \override StaffSymbol #'line-count = #4
279 \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
280 \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
281 \override Custos #'style = #'vaticana
282 \override Custos #'neutral-position = #4
283 \override Custos #'neutral-direction = #down
284 clefGlyph = #"clefs.vaticana.do"
289 \RemoveEmptyStaffContext
290 \accepts MensuralVoice
291 \accepts GregorianVoice