1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
2 %% This file is in the public domain.
6 lsrtags = "ancient-notation"
9 Aquí se muestran muchos (¿o quizá todos?) de los símbolos que
10 están contemplados por la capacidad de LilyPond para la música
14 doctitlees = "Tipografía de música antigua"
17 Here are shown many (all?) of the symbols that are included in
18 LilyPond's support of ancient notation.
23 doctitle = "Ancient fonts"
25 upperStaff = \context GregorianStaff = "upperStaff" <<
26 \context GregorianVoice <<
27 \set Score.timing = ##f
28 % \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
30 \override Staff.StaffSymbol #'line-count = #4
33 \override Staff.KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
34 \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
35 \override NoteHead #'style = #'vaticana.punctum
40 \override NoteHead #'style = #'vaticana.inclinatum
42 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
45 \override NoteHead #'style = #'vaticana.quilisma
49 \override NoteHead #'style = #'vaticana.plica
51 \override NoteHead #'style = #'vaticana.reverse-plica
53 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
56 \override NoteHead #'style = #'vaticana.punctum-cavum
58 \override NoteHead #'style = #'vaticana.lpes
60 \override NoteHead #'style = #'vaticana.upes
62 \override NoteHead #'style = #'vaticana.vupes
64 \override NoteHead #'style = #'vaticana.linea-punctum
65 \override Staff.BarLine #'bar-size = #2.0 \bar "|"
69 \override NoteHead #'style = #'vaticana.epiphonus
71 \override NoteHead #'style = #'vaticana.cephalicus
74 \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
75 \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
76 \override Staff.Custos #'style = #'medicaea
77 \override NoteHead #'style = #'medicaea.punctum
80 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
85 \override NoteHead #'style = #'medicaea.inclinatum
87 \override NoteHead #'style = #'medicaea.virga
89 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
94 \override NoteHead #'style = #'medicaea.rvirga
97 \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
98 \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
99 \override Staff.Custos #'style = #'hufnagel
100 \override NoteHead #'style = #'hufnagel.punctum
103 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
108 \override NoteHead #'style = #'hufnagel.lpes
110 \override NoteHead #'style = #'hufnagel.virga
112 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
116 \clef "hufnagel-do-fa"
117 \override NoteHead #'style = #'hufnagel.punctum
118 es! des! ces! des! es! fes!
128 lowerStaff = \context MensuralStaff = "lowerStaff" <<
129 \context MensuralVoice <<
131 % this is broken until further notice -- see refman
132 % \override Staff.StaffSymbol #'line-count = #5
133 \applyOutput #'Staff #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
136 \set autoBeaming = ##f
137 \override NoteHead #'style = #'neomensural
138 \override Rest #'style = #'neomensural
141 % FIXME: lily crashes on some (invalid?) ligatures with:
142 % ERROR: In procedure gh_scm2int:
143 % ERROR: Wrong type argument in position 1: ()
145 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
146 % on many ligatures such as BB.
148 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
149 \set Staff.forceClef = ##t
150 \clef "neomensural-c2"
155 \[ g\breve dis''\longa \]
156 b\breve \[ a\longa d\longa \]
163 \set Staff.forceClef = ##t
172 \override NoteHead #'style = #'mensural
173 \override Stem #'flag-style = #'mensural
174 \override Stem #'thickness = #1.0
175 \override Rest #'style = #'mensural
177 c8 b, c16 b, c32 b, c64 b, c64 b,
178 d8 e d16 e d32 e d64 e d64 e
180 \set Staff.forceClef = ##t
188 % FIXME: must set Stem flag-style to #'neomensural to avoid
189 % segmentation fault on r8/r16/r32. (Strange: what has
190 % Stem flag-style to do with mensural rests?)
191 \override Stem #'flag-style = #'neomensural
192 % FIXME: produces warnings about "flag `neomensurald4' (or 3) not found".
194 \override Stem #'flag-style = #'mensural
195 \set Staff.forceClef = ##t
201 \[ bes'!\longa a'!\longa c''!\longa \]
202 e'1 d' c' d' \bar "|"
206 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
207 \set Staff.forceClef = ##t
212 \set Staff.forceClef = ##t
217 bes'! as'! gis'! fis'!
218 \set Staff.forceClef = ##t
220 es'! des'! cis'!1 \bar "||"
227 line-thickness = #(/ staff-space 5.0)
236 % do we want to keep these settings? -gp
237 line-width = 17.25\cm
242 \accepts MensuralStaff
243 \accepts GregorianStaff
244 % timing = ##f %%%%%%%% FIXME: this has no effect
250 \remove Ligature_bracket_engraver
251 \consists Mensural_ligature_engraver
252 \override NoteHead #'style = #'mensural
253 % \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
254 \override Stem #'thickness = #1.0
255 \override Rest #'style = #'mensural
262 \remove Ligature_bracket_engraver
263 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
264 \override NoteHead #'style = #'vaticana.punctum
271 \accepts MensuralVoice
272 \consists Custos_engraver
273 \override TimeSignature #'style = #'mensural
274 \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
275 \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
276 \override Custos #'style = #'mensural
277 \override Custos #'neutral-position = #3
278 \override Custos #'neutral-direction = #-1
279 clefGlyph = #"clefs.petrucci-c2"
287 \accepts GregorianVoice
288 \consists Custos_engraver
289 \remove Time_signature_engraver
290 \override StaffSymbol #'thickness = #2.0
291 \override StaffSymbol #'line-count = #4
292 \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
293 \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
294 \override Custos #'style = #'vaticana
295 \override Custos #'neutral-position = #4
296 \override Custos #'neutral-direction = #-1
297 clefGlyph = #"clefs.vaticana-do"
302 \RemoveEmptyStaffContext
303 \accepts MensuralVoice
304 \accepts GregorianVoice