+\version "1.3.146"
\header {
- title = "ancient font test";
- date = "2000";
+ title = "ancient font test"
+ date = "2000"
}
-\version "1.3.59";
+
\include "paper26.ly"
-global = \notes {
- \property Score.timing = 1
- \property Staff.TimeSignature \push #'style = #"old"
- \time 2/2;
+global = \notes {
+ \property Score.timing = ##f
+% \property Score.forceAccidental = ##t
+% \property Staff.TimeSignature \override #'style = #'old
}
-upperVoice = \context Staff = upperVoice <
+upperVoice = \context Staff = upperVoice <
\global
- \property Staff.numberOfStaffLines = 4
+
+ % this is broken until further notice -- see refman
+ % \property Staff.StaffSymbol \override #'line-count = #4
+ \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
+ #'line-count = #4
+
\notes \transpose c' {
- \property Staff.Custos \push #'style = #'"vaticana"
- \clef "vaticana_fa2";
- c1 d e f g
- \clef "vaticana_do2";
- a b c' \bar "|";
- b a g f
- \clef "vaticana_fa1";
- e d c\breve \bar "|";
-
- \property Staff.Custos \push #'style = #"medicaea"
- \clef "medicaea_fa2";
- c1 d e f g
- \clef "medicaea_do2";
- a b c' \bar "|";
- b a g f
- \clef "medicaea_fa1";
- e d c\breve \bar "|";
-
- \property Staff.Custos \push #'style = #'"hufnagel"
- \clef "hufnagel_fa2";
- c1 d e f g
- \clef "hufnagel_do2";
- a b c' \bar "|";
- b a g f
- \clef "hufnagel_fa1";
- e d c\breve \bar "||";
+ \property Staff.KeySignature \override #'style = #'vaticana
+ \property Staff.Accidentals \override #'style = #'vaticana
+ \property Staff.Custos \override #'style = #'vaticana
+ \property Voice.NoteHead \override #'style = #'mensural
+ \key es \major
+ \clef "vaticana_fa2"
+ cis!2 des! e! fis! ges!
+
+% \property Staff.clefGlyph = #"clefs-vaticana_do"
+% \property Staff.clefPosition = #1
+% \property Staff.clefOctavation = #0
+ \clef "vaticana_do2"
+
+ a b c'
+ b as gis fes
+ \clef "vaticana_fa1"
+ es dis ces1 \bar "|"
+
+ \property Staff.KeySignature \override #'style = #'medicaea
+ \property Staff.Accidentals \override #'style = #'medicaea
+ \property Staff.Custos \override #'style = #'medicaea
+ \property Voice.NoteHead \override #'style = #'mensural
+ \clef "medicaea_fa2"
+ ces2 des es fes ges
+ \clef "medicaea_do2"
+ as bes ces'
+ bes as ges fes
+ \clef "medicaea_fa1"
+ es des ces1 \bar "|"
+
+ \property Staff.KeySignature \override #'style = #'hufnagel
+ \property Staff.Accidentals \override #'style = #'hufnagel
+ \property Staff.Custos \override #'style = #'hufnagel
+ \property Voice.NoteHead \override #'style = #'mensural
+ \clef "hufnagel_fa2"
+ ces!2 des! es! fes! ges!
+ \clef "hufnagel_do2"
+ as! bes! ces'!
+ bes! as! ges! fes!
+ \clef "hufnagel_do_fa"
+ es! des! ces!1 \bar "||"
}
>
-lowerVoice = \context Staff = lowerNotes <
+lowerVoice = \context Staff = lowerNotes <
\global
- \property Staff.numberOfStaffLines = 5
- \notes \transpose c'' {
- \property Staff.Custos \push #'style = #'"mensural"
- \clef "mensural1_c2";
- c1 d e f g
- \clef "mensural1_c2";
- a b c' \bar "|";
- b a g f
- \clef "mensural2_c2";
- e d c\breve \bar "|";
+
+ % this is broken until further notice -- see refman
+ % \property Staff.StaffSymbol \override #'line-count = #5
+ \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
+ #'line-count = #5
+
+ \notes \transpose c' {
+ \property Staff.KeySignature \override #'style = #'mensural
+ \property Staff.Accidentals \override #'style = #'mensural
+ \property Staff.Custos \override #'style = #'mensural
+ \property Voice.NoteHead \override #'style = #'mensural
+ \key a \major
+ \clef "neo_mensural_c2"
+ c2 dis es fis ges
+ \property Staff.forceClef = ##t
+ \clef "neo_mensural_c2"
+ ais bes cis'
+ bis as gis fes
+ \clef "petrucci_c2"
+ e d c1 \bar "|"
- \clef "mensural2_c2";
- c1 d e f g
- \clef "mensural3_c2";
- a b c' \bar "|";
+ \clef "petrucci_c2"
+ c2 d e f g
+ \property Staff.forceClef = ##t
+ \clef "mensural_c2"
+ a b c'
b a g f
- \clef "mensural3_c2";
- e d c\breve \bar "|";
+ \clef "mensural_g"
+ e d c1 \bar "|"
- \clef "mensural_f";
- c1 d e f g
- \clef "mensural_f";
- a b c' \bar "|";
+ \clef "petrucci_f"
+ c2 d e f g
+ \property Staff.forceClef = ##t
+ \clef "petrucci_f"
+ a b c'
b a g f
- \clef "mensural_f";
- e d c\breve \bar "|";
+ \clef "mensural_f"
+ e d c1 \bar "|"
+
+ \property Staff.forceClef = ##t
+ \clef "mensural_f"
+ c2 d e f g
+ \clef "mensural_g"
+ as'! bes'! cis''!
+ bes'! as'! gis'! fis'!
+ \property Staff.forceClef = ##t
+ \clef "mensural_g"
+ e' d' c'1 \bar "|"
- \clef "hufnagel";
- c,1 d, e, f, g,
- \clef "hufnagel";
- a, b, c \bar "||";
+ \property Staff.forceClef = ##t
+ \clef "petrucci_g"
+ c'2 d' e' f' g'
+ \clef "petrucci_g"
+ as'! bes'! cis''!
+ bes'! as'! gis'! fis'!
+ \property Staff.forceClef = ##t
+ \clef "mensural_g"
+ es'! des'! cis'!1 \bar "||"
}
>
\lowerVoice
>
\paper {
-% \paper_twentysix
- linewidth = 17.25\cm;
- textheight = 26.0\cm;
- indent = 0.0;
+% \paperTwentysix
+ linewidth = 17.25\cm
+ textheight = 26.0\cm
+ stafflinethickness = \staffspace / 5.0
+ indent = 0.0
\translator {
\StaffContext
- \consists "Custos_engraver";
-% custosStyle = "mensural";
+ \consists Custos_engraver
+% Custos \override #'style = #'mensural
+ \remove Time_signature_engraver
+% StaffSymbol \override #'line-count = #4
}
}
}