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.
3 %% Tags: ancient-notation
7 Here are shown many (all?) of the symbols that are included in
8 LilyPond's support of ancient notation.
13 upperStaff = \context GregorianStaff = "upperStaff" <<
14 \context GregorianVoice <<
15 \set Score.timing = ##f
16 % \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
18 \override Staff.StaffSymbol #'line-count = #4
21 \override Staff.KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
22 \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
23 \override NoteHead #'style = #'vaticana.punctum
28 \override NoteHead #'style = #'vaticana.inclinatum
30 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
33 \override NoteHead #'style = #'vaticana.quilisma
37 \override NoteHead #'style = #'vaticana.plica
39 \override NoteHead #'style = #'vaticana.reverse-plica
41 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
44 \override NoteHead #'style = #'vaticana.punctum-cavum
46 \override NoteHead #'style = #'vaticana.lpes
48 \override NoteHead #'style = #'vaticana.upes
50 \override NoteHead #'style = #'vaticana.vupes
52 \override NoteHead #'style = #'vaticana.linea-punctum
53 \override Staff.BarLine #'bar-size = #2.0 \bar "|"
57 \override NoteHead #'style = #'vaticana.epiphonus
59 \override NoteHead #'style = #'vaticana.cephalicus
62 \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
63 \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
64 \override Staff.Custos #'style = #'medicaea
65 \override NoteHead #'style = #'medicaea.punctum
68 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
73 \override NoteHead #'style = #'medicaea.inclinatum
75 \override NoteHead #'style = #'medicaea.virga
77 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
82 \override NoteHead #'style = #'medicaea.rvirga
85 \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
86 \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
87 \override Staff.Custos #'style = #'hufnagel
88 \override NoteHead #'style = #'hufnagel.punctum
91 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
96 \override NoteHead #'style = #'hufnagel.lpes
98 \override NoteHead #'style = #'hufnagel.virga
100 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
104 \clef "hufnagel-do-fa"
105 \override NoteHead #'style = #'hufnagel.punctum
106 es! des! ces! des! es! fes!
116 lowerStaff = \context MensuralStaff = "lowerStaff" <<
117 \context MensuralVoice <<
119 % this is broken until further notice -- see refman
120 % \override Staff.StaffSymbol #'line-count = #5
121 \applyOutput #'Staff #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
124 \set autoBeaming = ##f
125 \override NoteHead #'style = #'neomensural
126 \override Rest #'style = #'neomensural
129 % FIXME: lily crashes on some (invalid?) ligatures with:
130 % ERROR: In procedure gh_scm2int:
131 % ERROR: Wrong type argument in position 1: ()
133 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
134 % on many ligatures such as BB.
136 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
137 \set Staff.forceClef = ##t
138 \clef "neomensural-c2"
143 \[ g\breve dis''\longa \]
144 b\breve \[ a\longa d\longa \]
151 \set Staff.forceClef = ##t
160 \override NoteHead #'style = #'mensural
161 \override Stem #'flag-style = #'mensural
162 \override Stem #'thickness = #1.0
163 \override Rest #'style = #'mensural
165 c8 b, c16 b, c32 b, c64 b, c64 b,
166 d8 e d16 e d32 e d64 e d64 e
168 \set Staff.forceClef = ##t
176 % FIXME: must set Stem flag-style to #'neomensural to avoid
177 % segmentation fault on r8/r16/r32. (Strange: what has
178 % Stem flag-style to do with mensural rests?)
179 \override Stem #'flag-style = #'neomensural
180 % FIXME: produces warnings about "flag `neomensurald4' (or 3) not found".
182 \override Stem #'flag-style = #'mensural
183 \set Staff.forceClef = ##t
189 \[ bes'!\longa a'!\longa c''!\longa \]
190 e'1 d' c' d' \bar "|"
194 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
195 \set Staff.forceClef = ##t
200 \set Staff.forceClef = ##t
205 bes'! as'! gis'! fis'!
206 \set Staff.forceClef = ##t
208 es'! des'! cis'!1 \bar "||"
215 line-thickness = #(/ staff-space 5.0)
224 % do we want to keep these settings? -gp
225 line-width = 17.25\cm
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 \override NoteHead #'style = #'mensural
241 % \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
242 \override Stem #'thickness = #1.0
243 \override Rest #'style = #'mensural
250 \remove Ligature_bracket_engraver
251 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
252 \override NoteHead #'style = #'vaticana.punctum
259 \accepts MensuralVoice
260 \consists Custos_engraver
261 \override TimeSignature #'style = #'mensural
262 \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
263 \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
264 \override Custos #'style = #'mensural
265 \override Custos #'neutral-position = #3
266 \override Custos #'neutral-direction = #-1
267 clefGlyph = #"clefs.petrucci-c2"
275 \accepts GregorianVoice
276 \consists Custos_engraver
277 \remove Time_signature_engraver
278 \override StaffSymbol #'thickness = #2.0
279 \override StaffSymbol #'line-count = #4
280 \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
281 \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
282 \override Custos #'style = #'vaticana
283 \override Custos #'neutral-position = #4
284 \override Custos #'neutral-direction = #-1
285 clefGlyph = #"clefs.vaticana-do"
290 \RemoveEmptyStaffContext
291 \accepts MensuralVoice
292 \accepts GregorianVoice