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 \property Staff
.StaffSymbol
\override #'line-count
= #4
19 \notes \transpose c c {
20 \property Staff
.KeySignature
\override #'style
= #'vaticana
21 \property Staff
.Accidental
\override #'style
= #'vaticana
22 \property Voice
.NoteHead
\override #'style
= #'vaticana
_punctum
27 \property Voice
.NoteHead
\override #'style
= #'vaticana
_inclinatum
29 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
32 \property Voice
.NoteHead
\override #'style
= #'vaticana
_virga
36 \property Voice
.NoteHead
\override #'style
= #'vaticana
_quilisma
38 \property Voice
.NoteHead
\override #'style
= #'vaticana
_rvirga
40 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
43 \property Voice
.NoteHead
\override #'style
= #'vaticana
_rvirga
45 \property Voice
.NoteHead
\override #'style
= #'vaticana
_lpes
47 \property Voice
.NoteHead
\override #'style
= #'vaticana
_upes
49 \property Voice
.NoteHead
\override #'style
= #'vaticana
_vupes
51 \property Voice
.NoteHead
\override #'style
= #'vaticana
_plica
52 \property Staff
.BarLine
\override #'bar-size
= #2.0 \bar "|"
56 \property Voice
.NoteHead
\override #'style
= #'vaticana
_epiphonus
58 \property Voice
.NoteHead
\override #'style
= #'vaticana
_cephalicus
61 \property Staff
.KeySignature
\override #'style
= #'medicaea
62 \property Staff
.Accidental
\override #'style
= #'medicaea
63 \property Staff
.Custos
\override #'style
= #'medicaea
64 \property Voice
.NoteHead
\override #'style
= #'medicaea
_punctum
67 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
72 \property Voice
.NoteHead
\override #'style
= #'medicaea
_inclinatum
74 \property Voice
.NoteHead
\override #'style
= #'medicaea
_virga
76 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
81 \property Voice
.NoteHead
\override #'style
= #'medicaea
_rvirga
84 \property Staff
.KeySignature
\override #'style
= #'hufnagel
85 \property Staff
.Accidental
\override #'style
= #'hufnagel
86 \property Staff
.Custos
\override #'style
= #'hufnagel
87 \property Voice
.NoteHead
\override #'style
= #'hufnagel
_punctum
90 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
95 \property Voice
.NoteHead
\override #'style
= #'hufnagel
_lpes
97 \property Voice
.NoteHead
\override #'style
= #'hufnagel
_virga
99 \property Staff
.BarLine
\override #'bar-size
= #3.0 \bar "|"
103 \clef "hufnagel_do_fa"
104 \property Voice
.NoteHead
\override #'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 % \property Staff.StaffSymbol \override #'line-count = #5
120 \context Staff
\applyoutput #(outputproperty-compatibility
(make-type-checker
'staff-symbol-interface
) 'line-count
5)
122 \notes \transpose c c {
123 \property Voice
.autoBeaming
= ##f
124 \property Voice
.NoteHead
\override #'style
= #'neo
_mensural
125 \property Voice
.Rest
\override #'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 \property Staff
.forceClef
= ##t
137 \clef "neo_mensural_c2"
142 \
[ g\breve dis''\longa \
]
143 b\breve \
[ a\longa d\longa \
]
150 \property Staff
.forceClef
= ##t
159 \property Voice
.NoteHead
\override #'style
= #'mensural
160 \property Voice
.Stem
\override #'flag-style
= #'mensural
161 \property Voice
.Stem
\override #'thickness
= #1.0
162 \property Voice
.Rest
\override #'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 \property Staff
.forceClef
= ##t
175 % FIXME: must set Voice.Stem flag-style to #'neo_mensural to avoid
176 % segmentation fault on r8/r16/r32. (Strange: what has
177 % Voice.Stem flag-style to do with mensural rests?)
178 \property Voice
.Stem
\override #'flag-style
= #'neo
_mensural
179 % FIXME: produces warnings about "flag `neo_mensurald4' (or 3) not found".
181 \property Voice
.Stem
\override #'flag-style
= #'mensural
182 \property 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 \property Staff
.forceClef
= ##t
199 \property Staff
.forceClef
= ##t
204 bes'! as'! gis'! fis'!
205 \property Staff
.forceClef
= ##t
207 es'! des'! cis'!1 \bar "||"
219 % do we want to keep these settings? -gp
222 stafflinethickness
= #(/ 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 NoteHead
\set #'style
= #'mensural
237 % Stem \set #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
238 Stem
\set #'thickness
= #1.0
239 Rest
\set #'style
= #'mensural
246 \remove Ligature
_bracket
_engraver
247 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
248 NoteHead
\set #'style
= #'vaticana
_punctum
255 \accepts MensuralVoice
256 \consists Custos
_engraver
257 TimeSignature
\set #'style
= #'mensural
258 KeySignature
\set #'style
= #'mensural
259 Accidental
\set #'style
= #'mensural
260 Custos
\set #'style
= #'mensural
261 Custos
\set #'neutral-position
= #3
262 Custos
\set #'neutral-direction
= #-
1
263 Custos
\set #'adjust-if-on-staffline
= ##t
264 clefGlyph
= #"clefs-petrucci_c2"
272 \accepts GregorianVoice
273 \consists Custos
_engraver
274 \remove Time
_signature
_engraver
275 StaffSymbol
\set #'thickness
= #2.0
276 StaffSymbol
\set #'line-count
= #4
277 KeySignature
\set #'style
= #'vaticana
278 Accidental
\set #'style
= #'vaticana
279 Custos
\set #'style
= #'vaticana
280 Custos
\set #'neutral-position
= #4
281 Custos
\set #'neutral-direction
= #-
1
282 Custos
\set #'adjust-if-on-staffline
= ##t
283 clefGlyph
= #"clefs-vaticana_do"
288 \RemoveEmptyStaffContext
289 \accepts MensuralVoice
290 \accepts GregorianVoice