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"
8 Here are shown many (all?) of the symbols that are included in
9 LilyPond's support of ancient notation.
14 upperStaff = \context GregorianStaff = "upperStaff" <<
15 \context GregorianVoice <<
16 \set Score.timing = ##f
17 % \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
19 \override Staff.StaffSymbol #'line-count = #4
22 \override Staff.KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
23 \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
24 \override NoteHead #'style = #'vaticana.punctum
29 \override NoteHead #'style = #'vaticana.inclinatum
31 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
34 \override NoteHead #'style = #'vaticana.quilisma
38 \override NoteHead #'style = #'vaticana.plica
40 \override NoteHead #'style = #'vaticana.reverse-plica
42 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
45 \override NoteHead #'style = #'vaticana.punctum-cavum
47 \override NoteHead #'style = #'vaticana.lpes
49 \override NoteHead #'style = #'vaticana.upes
51 \override NoteHead #'style = #'vaticana.vupes
53 \override NoteHead #'style = #'vaticana.linea-punctum
54 \override Staff.BarLine #'bar-size = #2.0 \bar "|"
58 \override NoteHead #'style = #'vaticana.epiphonus
60 \override NoteHead #'style = #'vaticana.cephalicus
63 \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
64 \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
65 \override Staff.Custos #'style = #'medicaea
66 \override NoteHead #'style = #'medicaea.punctum
69 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
74 \override NoteHead #'style = #'medicaea.inclinatum
76 \override NoteHead #'style = #'medicaea.virga
78 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
83 \override NoteHead #'style = #'medicaea.rvirga
86 \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
87 \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
88 \override Staff.Custos #'style = #'hufnagel
89 \override NoteHead #'style = #'hufnagel.punctum
92 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
97 \override NoteHead #'style = #'hufnagel.lpes
99 \override NoteHead #'style = #'hufnagel.virga
101 \override Staff.BarLine #'bar-size = #3.0 \bar "|"
105 \clef "hufnagel-do-fa"
106 \override NoteHead #'style = #'hufnagel.punctum
107 es! des! ces! des! es! fes!
117 lowerStaff = \context MensuralStaff = "lowerStaff" <<
118 \context MensuralVoice <<
120 % this is broken until further notice -- see refman
121 % \override Staff.StaffSymbol #'line-count = #5
122 \applyOutput #'Staff #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
125 \set autoBeaming = ##f
126 \override NoteHead #'style = #'neomensural
127 \override Rest #'style = #'neomensural
130 % FIXME: lily crashes on some (invalid?) ligatures with:
131 % ERROR: In procedure gh_scm2int:
132 % ERROR: Wrong type argument in position 1: ()
134 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
135 % on many ligatures such as BB.
137 cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
138 \set Staff.forceClef = ##t
139 \clef "neomensural-c2"
144 \[ g\breve dis''\longa \]
145 b\breve \[ a\longa d\longa \]
152 \set Staff.forceClef = ##t
161 \override NoteHead #'style = #'mensural
162 \override Stem #'flag-style = #'mensural
163 \override Stem #'thickness = #1.0
164 \override Rest #'style = #'mensural
166 c8 b, c16 b, c32 b, c64 b, c64 b,
167 d8 e d16 e d32 e d64 e d64 e
169 \set Staff.forceClef = ##t
177 % FIXME: must set Stem flag-style to #'neomensural to avoid
178 % segmentation fault on r8/r16/r32. (Strange: what has
179 % Stem flag-style to do with mensural rests?)
180 \override Stem #'flag-style = #'neomensural
181 % FIXME: produces warnings about "flag `neomensurald4' (or 3) not found".
183 \override Stem #'flag-style = #'mensural
184 \set Staff.forceClef = ##t
190 \[ bes'!\longa a'!\longa c''!\longa \]
191 e'1 d' c' d' \bar "|"
195 bes'!\longa fis'!1 as'!1 ges'!\longa % lig
196 \set Staff.forceClef = ##t
201 \set Staff.forceClef = ##t
206 bes'! as'! gis'! fis'!
207 \set Staff.forceClef = ##t
209 es'! des'! cis'!1 \bar "||"
216 line-thickness = #(/ staff-space 5.0)
225 % do we want to keep these settings? -gp
226 line-width = 17.25\cm
231 \accepts MensuralStaff
232 \accepts GregorianStaff
233 % timing = ##f %%%%%%%% FIXME: this has no effect
239 \remove Ligature_bracket_engraver
240 \consists Mensural_ligature_engraver
241 \override NoteHead #'style = #'mensural
242 % \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
243 \override Stem #'thickness = #1.0
244 \override Rest #'style = #'mensural
251 \remove Ligature_bracket_engraver
252 % \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
253 \override NoteHead #'style = #'vaticana.punctum
260 \accepts MensuralVoice
261 \consists Custos_engraver
262 \override TimeSignature #'style = #'mensural
263 \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
264 \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
265 \override Custos #'style = #'mensural
266 \override Custos #'neutral-position = #3
267 \override Custos #'neutral-direction = #-1
268 clefGlyph = #"clefs.petrucci-c2"
276 \accepts GregorianVoice
277 \consists Custos_engraver
278 \remove Time_signature_engraver
279 \override StaffSymbol #'thickness = #2.0
280 \override StaffSymbol #'line-count = #4
281 \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
282 \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
283 \override Custos #'style = #'vaticana
284 \override Custos #'neutral-position = #4
285 \override Custos #'neutral-direction = #-1
286 clefGlyph = #"clefs.vaticana-do"
291 \RemoveEmptyStaffContext
292 \accepts MensuralVoice
293 \accepts GregorianVoice