2 % TODO: split ancient-font into seperate files; possibly in
5 title = "ancient font test"
7 texidoc = "@cindex Ancient Font
8 Here is a display of many (all?) symbols that are
9 included in Lilypond's support of ancient notation.
15 upperStaff = \context GregorianStaff = upperStaff <
16 \context GregorianVoice <
17 \property Score.timing = ##f
18 % \property Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
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 c {
26 \property Staff.KeySignature \override #'style = #'vaticana
27 \property Staff.Accidental \override #'style = #'vaticana
28 \property Voice.NoteHead \override #'style = #'vaticana_punctum
33 \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
35 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
38 \property Voice.NoteHead \override #'style = #'vaticana_virga
42 \property Voice.NoteHead \override #'style = #'vaticana_quilisma
44 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
46 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
49 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
51 \property Voice.NoteHead \override #'style = #'vaticana_lpes
53 \property Voice.NoteHead \override #'style = #'vaticana_upes
55 \property Voice.NoteHead \override #'style = #'vaticana_vupes
57 \property Voice.NoteHead \override #'style = #'vaticana_plica
58 \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
62 \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
64 \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
67 \property Staff.KeySignature \override #'style = #'medicaea
68 \property Staff.Accidental \override #'style = #'medicaea
69 \property Staff.Custos \override #'style = #'medicaea
70 \property Voice.NoteHead \override #'style = #'medicaea_punctum
73 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
78 \property Voice.NoteHead \override #'style = #'medicaea_inclinatum
80 \property Voice.NoteHead \override #'style = #'medicaea_virga
82 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
87 \property Voice.NoteHead \override #'style = #'medicaea_rvirga
90 \property Staff.KeySignature \override #'style = #'hufnagel
91 \property Staff.Accidental \override #'style = #'hufnagel
92 \property Staff.Custos \override #'style = #'hufnagel
93 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
96 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
101 \property Voice.NoteHead \override #'style = #'hufnagel_lpes
103 \property Voice.NoteHead \override #'style = #'hufnagel_virga
105 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
109 \clef "hufnagel_do_fa"
110 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
111 es! des! ces! des! es! fes!
121 lowerStaff = \context MensuralStaff = lowerStaff <
122 \context MensuralVoice <
124 % this is broken until further notice -- see refman
125 % \property Staff.StaffSymbol \override #'line-count = #5
126 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
129 \notes \transpose c c {
130 \property Voice.autoBeaming = ##f
131 \property Voice.NoteHead \override #'style = #'neo_mensural
132 \property Voice.Rest \override #'style = #'neo_mensural
135 % FIXME: lily crashes on some (invalid?) ligatures with:
136 % ERROR: In procedure gh_scm2int:
137 % ERROR: Wrong type argument in position 1: ()
139 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
140 % on many ligatures such as BB.
142 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
143 \property Staff.forceClef = ##t
144 \clef "neo_mensural_c2"
149 \[ g\breve dis''\longa \]
150 b\breve \[ a\longa d\longa \]
157 \property Staff.forceClef = ##t
166 \property Voice.NoteHead \override #'style = #'mensural
167 \property Voice.Stem \override #'flag-style = #'mensural
168 \property Voice.Stem \override #'thickness = #1.0
169 \property Voice.Rest \override #'style = #'mensural
171 c8 b, c16 b, c32 b, c64 b, c64 b,
172 d8 e d16 e d32 e d64 e d64 e
174 \property Staff.forceClef = ##t
182 % FIXME: must set Voice.Stem flag-style to #'neo_mensural to avoid
183 % segmentation fault on r8/r16/r32. (Strange: what has
184 % Voice.Stem flag-style to do with mensural rests?)
185 \property Voice.Stem \override #'flag-style = #'neo_mensural
186 % FIXME: produces warnings about "flag `neo_mensurald4' (or 3) not found".
188 \property Voice.Stem \override #'flag-style = #'mensural
189 \property Staff.forceClef = ##t
195 \[ bes'!\longa a'!\longa c''!\longa \]
196 e'1 d' c' d' \bar "|"
200 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
201 \property Staff.forceClef = ##t
206 \property Staff.forceClef = ##t
211 bes'! as'! gis'! fis'!
212 \property Staff.forceClef = ##t
214 es'! des'! cis'!1 \bar "||"
228 stafflinethickness = \staffspace / 5.0
232 \accepts MensuralStaff
233 \accepts GregorianStaff
234 % timing = ##f %%%%%%%% FIXME: this has no effect
240 \remove Ligature_bracket_engraver
241 \consists Mensural_ligature_engraver
242 NoteHead \set #'style = #'mensural
243 % Stem \set #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
244 Stem \set #'thickness = #1.0
245 Rest \set #'style = #'mensural
252 \remove Ligature_bracket_engraver
253 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
254 NoteHead \set #'style = #'vaticana_punctum
261 \accepts MensuralVoice
262 \consists Custos_engraver
263 TimeSignature \set #'style = #'mensural
264 KeySignature \set #'style = #'mensural
265 Accidental \set #'style = #'mensural
266 Custos \set #'style = #'mensural
267 Custos \set #'neutral-position = #3
268 Custos \set #'neutral-direction = #-1
269 Custos \set #'adjust-if-on-staffline = ##t
270 clefGlyph = #"clefs-petrucci_c2"
278 \accepts GregorianVoice
279 \consists Custos_engraver
280 \remove Time_signature_engraver
281 StaffSymbol \set #'thickness = #2.0
282 StaffSymbol \set #'line-count = #4
283 KeySignature \set #'style = #'vaticana
284 Accidental \set #'style = #'vaticana
285 Custos \set #'style = #'vaticana
286 Custos \set #'neutral-position = #4
287 Custos \set #'neutral-direction = #-1
288 Custos \set #'adjust-if-on-staffline = ##t
289 clefGlyph = #"clefs-vaticana_do"
294 \RemoveEmptyStaffContext
295 \accepts MensuralVoice
296 \accepts GregorianVoice
300 %% new-chords-done %%