-upperStaff = \context GregorianStaff = "upperStaff" <<
- \context GregorianVoice <<
- \set Score.timing = ##f
-% \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
-
- \override Staff.StaffSymbol #'line-count = #4
-
- \transpose c c {
- \override Staff.KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
- \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
- \override NoteHead #'style = #'vaticana.punctum
- \key es \major
- \clef "vaticana-fa2"
- c!1 des! e! f! ges!
-
- \override NoteHead #'style = #'vaticana.inclinatum
- a! b! ces'
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break % 1 (8*1)
-
- \override NoteHead #'style = #'vaticana.quilisma
- b! des'! ges! fes!
- \breathe
- \clef "vaticana-fa1"
- \override NoteHead #'style = #'vaticana.plica
- es d
- \override NoteHead #'style = #'vaticana.reverse-plica
- c d
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break %2 (8*1)
-
- \override NoteHead #'style = #'vaticana.punctum-cavum
- es f
- \override NoteHead #'style = #'vaticana.lpes
- g as
- \override NoteHead #'style = #'vaticana.upes
- bes as
- \override NoteHead #'style = #'vaticana.vupes
- g f
- \override NoteHead #'style = #'vaticana.linea-punctum
- \override Staff.BarLine #'bar-size = #2.0 \bar "|"
-% \break % 3 (8*1)
-
- es d
- \override NoteHead #'style = #'vaticana.epiphonus
- c d
- \override NoteHead #'style = #'vaticana.cephalicus
- es f
-
- \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
- \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
- \override Staff.Custos #'style = #'medicaea
- \override NoteHead #'style = #'medicaea.punctum
- \clef "medicaea-fa2"
- ces! des!
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break % 4 (8*1)
-
- e! f! ges!
- \clef "medicaea-do2"
- \override NoteHead #'style = #'medicaea.inclinatum
- a! b! ces'!
- \override NoteHead #'style = #'medicaea.virga
- b! a!
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break % 5 (8*1)
-
- ges! fes!
- \clef "medicaea-fa1"
- \override NoteHead #'style = #'medicaea.rvirga
- e! des! ces!
-
- \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
- \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
- \override Staff.Custos #'style = #'hufnagel
- \override NoteHead #'style = #'hufnagel.punctum
- \clef "hufnagel-fa2"
- ces! des! es!
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break % 6 (8*1)
-
- fes! ges!
- \clef "hufnagel-do2"
- \override NoteHead #'style = #'hufnagel.lpes
- as! bes! ces'!
- \override NoteHead #'style = #'hufnagel.virga
- bes! as!
- \override Staff.BarLine #'bar-size = #3.0 \bar "|"
-% \break % 7 (8*1)
-
- ges! fes!
- \clef "hufnagel-do-fa"
- \override NoteHead #'style = #'hufnagel.punctum
- es! des! ces! des! es! fes!
- \bar "||"
-% \break % 8 (8*1)
-
- s32*1
-% \break % 12 (32*1)
+upperStaff = \new VaticanaStaff = "upperStaff" <<
+ \context VaticanaVoice <<
+ \transpose c c {
+
+ \override NoteHead #'style = #'vaticana.punctum
+ \key es \major
+ \clef "vaticana-fa2"
+ c1 des e f ges
+
+ \override NoteHead #'style = #'vaticana.inclinatum
+ a! b ces'
+ \bar "|"
+ % \break % 1 (8*1)
+
+ \override NoteHead #'style = #'vaticana.quilisma
+ b! des'! ges! fes!
+ \breathe
+ \clef "vaticana-fa1"
+ \override NoteHead #'style = #'vaticana.plica
+ es d
+ \override NoteHead #'style = #'vaticana.reverse.plica
+ c d
+ \bar "|"
+ % \break %2 (8*1)
+
+ \override NoteHead #'style = #'vaticana.punctum.cavum
+ es f
+ \override NoteHead #'style = #'vaticana.lpes
+ g as
+ \override NoteHead #'style = #'vaticana.upes
+ bes as
+ \override NoteHead #'style = #'vaticana.vupes
+ g f
+ \override NoteHead #'style = #'vaticana.linea.punctum
+ \once \override Staff.BarLine #'bar-size = #2.0 \bar "|"
+ % \break % 3 (8*1)
+
+ es d
+ \override NoteHead #'style = #'vaticana.epiphonus
+ c d
+ \override NoteHead #'style = #'vaticana.cephalicus
+ es f
+
+ \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
+ \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
+ \override Staff.Custos #'style = #'medicaea
+ \override NoteHead #'style = #'medicaea.punctum
+ \clef "medicaea-fa2"
+ ces des
+ \bar "|"
+ % \break % 4 (8*1)
+
+ e! f! ges
+ \clef "medicaea-do2"
+ \override NoteHead #'style = #'medicaea.inclinatum
+ a! b! ces'
+ \override NoteHead #'style = #'medicaea.virga
+ b! a!
+ \bar "|"
+ % \break % 5 (8*1)
+
+ ges fes
+ \clef "medicaea-fa1"
+ \override NoteHead #'style = #'medicaea.rvirga
+ e des ces
+
+ \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
+ \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
+ \override Staff.Custos #'style = #'hufnagel
+ \override NoteHead #'style = #'hufnagel.punctum
+ \clef "hufnagel-fa2"
+ ces des es
+ \bar "|"
+ % \break % 6 (8*1)
+
+ fes ges
+ \clef "hufnagel-do2"
+ \override NoteHead #'style = #'hufnagel.lpes
+ as! bes! ces'
+ \override NoteHead #'style = #'hufnagel.virga
+ bes! as!
+ \bar "|"
+ % \break % 7 (8*1)
+
+ ges! fes!
+ \clef "hufnagel-do-fa"
+ \override NoteHead #'style = #'hufnagel.punctum
+ es! des ces des! es! fes!
+ \bar "||"
+ % \break % 8 (8*1)
+
+ s32*1
+ % \break % 12 (32*1)