2 % TODO: split ancient-font into seperate files; possibly in
5 texidoc = "@cindex Ancient Font
6 Here is a display of many (all?) symbols that are
7 included in LilyPond's support of ancient notation.
12 upperStaff = \context GregorianStaff = upperStaff <
13 \context GregorianVoice <
14 \property Score.timing = ##f
15 % \property Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
17 % this is broken until further notice -- see refman
18 % \property Staff.StaffSymbol \override #'line-count = #4
19 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
22 \notes \transpose c c {
23 \property Staff.KeySignature \override #'style = #'vaticana
24 \property Staff.Accidental \override #'style = #'vaticana
25 \property Voice.NoteHead \override #'style = #'vaticana_punctum
30 \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
32 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
35 \property Voice.NoteHead \override #'style = #'vaticana_virga
39 \property Voice.NoteHead \override #'style = #'vaticana_quilisma
41 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
43 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
46 \property Voice.NoteHead \override #'style = #'vaticana_rvirga
48 \property Voice.NoteHead \override #'style = #'vaticana_lpes
50 \property Voice.NoteHead \override #'style = #'vaticana_upes
52 \property Voice.NoteHead \override #'style = #'vaticana_vupes
54 \property Voice.NoteHead \override #'style = #'vaticana_plica
55 \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
59 \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
61 \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
64 \property Staff.KeySignature \override #'style = #'medicaea
65 \property Staff.Accidental \override #'style = #'medicaea
66 \property Staff.Custos \override #'style = #'medicaea
67 \property Voice.NoteHead \override #'style = #'medicaea_punctum
70 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
75 \property Voice.NoteHead \override #'style = #'medicaea_inclinatum
77 \property Voice.NoteHead \override #'style = #'medicaea_virga
79 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
84 \property Voice.NoteHead \override #'style = #'medicaea_rvirga
87 \property Staff.KeySignature \override #'style = #'hufnagel
88 \property Staff.Accidental \override #'style = #'hufnagel
89 \property Staff.Custos \override #'style = #'hufnagel
90 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
93 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
98 \property Voice.NoteHead \override #'style = #'hufnagel_lpes
100 \property Voice.NoteHead \override #'style = #'hufnagel_virga
102 \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
106 \clef "hufnagel_do_fa"
107 \property Voice.NoteHead \override #'style = #'hufnagel_punctum
108 es! des! ces! des! es! fes!
118 lowerStaff = \context MensuralStaff = lowerStaff <
119 \context MensuralVoice <
121 % this is broken until further notice -- see refman
122 % \property Staff.StaffSymbol \override #'line-count = #5
123 \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
126 \notes \transpose c c {
127 \property Voice.autoBeaming = ##f
128 \property Voice.NoteHead \override #'style = #'neo_mensural
129 \property Voice.Rest \override #'style = #'neo_mensural
132 % FIXME: lily crashes on some (invalid?) ligatures with:
133 % ERROR: In procedure gh_scm2int:
134 % ERROR: Wrong type argument in position 1: ()
136 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
137 % on many ligatures such as BB.
139 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
140 \property Staff.forceClef = ##t
141 \clef "neo_mensural_c2"
146 \[ g\breve dis''\longa \]
147 b\breve \[ a\longa d\longa \]
154 \property Staff.forceClef = ##t
163 \property Voice.NoteHead \override #'style = #'mensural
164 \property Voice.Stem \override #'flag-style = #'mensural
165 \property Voice.Stem \override #'thickness = #1.0
166 \property Voice.Rest \override #'style = #'mensural
168 c8 b, c16 b, c32 b, c64 b, c64 b,
169 d8 e d16 e d32 e d64 e d64 e
171 \property Staff.forceClef = ##t
179 % FIXME: must set Voice.Stem flag-style to #'neo_mensural to avoid
180 % segmentation fault on r8/r16/r32. (Strange: what has
181 % Voice.Stem flag-style to do with mensural rests?)
182 \property Voice.Stem \override #'flag-style = #'neo_mensural
183 % FIXME: produces warnings about "flag `neo_mensurald4' (or 3) not found".
185 \property Voice.Stem \override #'flag-style = #'mensural
186 \property Staff.forceClef = ##t
192 \[ bes'!\longa a'!\longa c''!\longa \]
193 e'1 d' c' d' \bar "|"
197 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
198 \property Staff.forceClef = ##t
203 \property Staff.forceClef = ##t
208 bes'! as'! gis'! fis'!
209 \property Staff.forceClef = ##t
211 es'! des'! cis'!1 \bar "||"
223 % do we want to keep these settings? -gp
226 stafflinethickness = #(/ staffspace 5.0)
230 \accepts MensuralStaff
231 \accepts GregorianStaff
232 % timing = ##f %%%%%%%% FIXME: this has no effect
238 \remove Ligature_bracket_engraver
239 \consists Mensural_ligature_engraver
240 NoteHead \set #'style = #'mensural
241 % Stem \set #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
242 Stem \set #'thickness = #1.0
243 Rest \set #'style = #'mensural
250 \remove Ligature_bracket_engraver
251 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
252 NoteHead \set #'style = #'vaticana_punctum
259 \accepts MensuralVoice
260 \consists Custos_engraver
261 TimeSignature \set #'style = #'mensural
262 KeySignature \set #'style = #'mensural
263 Accidental \set #'style = #'mensural
264 Custos \set #'style = #'mensural
265 Custos \set #'neutral-position = #3
266 Custos \set #'neutral-direction = #-1
267 Custos \set #'adjust-if-on-staffline = ##t
268 clefGlyph = #"clefs-petrucci_c2"
276 \accepts GregorianVoice
277 \consists Custos_engraver
278 \remove Time_signature_engraver
279 StaffSymbol \set #'thickness = #2.0
280 StaffSymbol \set #'line-count = #4
281 KeySignature \set #'style = #'vaticana
282 Accidental \set #'style = #'vaticana
283 Custos \set #'style = #'vaticana
284 Custos \set #'neutral-position = #4
285 Custos \set #'neutral-direction = #-1
286 Custos \set #'adjust-if-on-staffline = ##t
287 clefGlyph = #"clefs-vaticana_do"
292 \RemoveEmptyStaffContext
293 \accepts MensuralVoice
294 \accepts GregorianVoice