1 %% This file is in the public domain.
5 lsrtags = "ancient-notation, symbols-and-glyphs"
8 Shown here are many (all?) of the symbols that are included in
9 LilyPond's support for ancient notation.
11 doctitle = "Ancient fonts"
14 upperStaff = \new VaticanaStaff = "upperStaff" <<
15 \context VaticanaVoice <<
18 \override NoteHead.style = #'vaticana.punctum
23 \override NoteHead.style = #'vaticana.inclinatum
28 \override NoteHead.style = #'vaticana.quilisma
32 \override NoteHead.style = #'vaticana.plica
34 \override NoteHead.style = #'vaticana.reverse.plica
39 \override NoteHead.style = #'vaticana.punctum.cavum
41 \override NoteHead.style = #'vaticana.lpes
43 \override NoteHead.style = #'vaticana.upes
45 \override NoteHead.style = #'vaticana.vupes
47 \override NoteHead.style = #'vaticana.linea.punctum
48 \once \override Staff.BarLine.bar-extent = #'(-1 . 1) \bar "|"
52 \override NoteHead.style = #'vaticana.epiphonus
54 \override NoteHead.style = #'vaticana.cephalicus
57 \override Staff.KeySignature.glyph-name-alist = #alteration-medicaea-glyph-name-alist
58 \override Staff.Accidental.glyph-name-alist = #alteration-medicaea-glyph-name-alist
59 \override Staff.Custos.style = #'medicaea
60 \override NoteHead.style = #'medicaea.punctum
68 \override NoteHead.style = #'medicaea.inclinatum
70 \override NoteHead.style = #'medicaea.virga
77 \override NoteHead.style = #'medicaea.rvirga
80 \override Staff.KeySignature.glyph-name-alist = #alteration-hufnagel-glyph-name-alist
81 \override Staff.Accidental.glyph-name-alist = #alteration-hufnagel-glyph-name-alist
82 \override Staff.Custos.style = #'hufnagel
83 \override NoteHead.style = #'hufnagel.punctum
91 \override NoteHead.style = #'hufnagel.lpes
93 \override NoteHead.style = #'hufnagel.virga
99 \clef "hufnagel-do-fa"
100 \override NoteHead.style = #'hufnagel.punctum
101 es! des ces des! es! fes!
111 lowerStaff = \new MensuralStaff = "lowerStaff" <<
112 \context MensuralVoice <<
116 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
117 \set Staff.forceClef = ##t
118 \clef "neomensural-c2"
123 \[ g\breve dis''\longa \]
124 b\breve \[ a\longa d\longa \]
131 \set Staff.forceClef = ##t
140 \override NoteHead.style = #'mensural
141 \override Rest.style = #'mensural
143 c8 b, c16 b, c32 b, c64 b, c64 b,
144 d8 e d16 e d32 e d64 e d64 e
146 \set Staff.forceClef = ##t
156 \set Staff.forceClef = ##t
162 \[ bes'!\longa a'!\longa c''!\longa \]
163 e'1 d' c' d' \bar "|"
167 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
168 \set Staff.forceClef = ##t
173 \set Staff.forceClef = ##t
178 bes'! as'! gis'! fis'!
179 \set Staff.forceClef = ##t
181 es'! des'! cis'!1 \bar "||"
188 line-thickness = #(/ staff-space 5.0)
198 line-width = 17.25\cm
205 \override NoteHead.style = #'neomensural
206 \override Rest.style = #'neomensural
207 \override Flag.style = #'mensural
208 \override Stem.thickness = #1.0
212 \revert BarLine.transparent
213 \override KeySignature.glyph-name-alist = #alteration-mensural-glyph-name-alist
214 clefGlyph = #"clefs.petrucci.c2"
218 \revert BarLine.transparent
219 \override StaffSymbol.thickness = #2.0
220 \override KeySignature.glyph-name-alist = #alteration-vaticana-glyph-name-alist
221 \override Custos.neutral-position = #4