input/test/ancient-font.ly

   1 \version "1.3.146"
   2 \header {
   3     title       = "ancient font test"
   4     date        = "2000"
   5 }
   6
   7
   8
   9 \include "paper26.ly"
  10
  11 global =  \notes {
  12     \property Score.timing = ##f
  13 %   \property Staff.TimeSignature \override #'style = #'old
  14 }
  15
  16 upperVoice =  \context Staff = upperVoice <
  17     \global
  18     \property Staff.StaffSymbol \override #'line-count = #4
  19     \notes \transpose c' {
  20         \property Voice.NoteHead \override #'style = #'mensural
  21         \property Voice.Stem \override #'stem-centered = ##t
  22         \property Staff.Custos \override #'style = #'vaticana
  23         \clef "vaticana_fa2"
  24         c2 d e f g
  25
  26 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  27 %       \property Staff.clefPosition = #1
  28 %       \property Staff.clefOctavation = #0
  29         \clef "vaticana_do2"
  30
  31         a b c'
  32         b a g f
  33         \clef "vaticana_fa1"
  34         e d c1 \bar "|"
  35
  36         \property Staff.Custos \override #'style = #'medicaea
  37         \clef "medicaea_fa2"
  38         c2 d e f g
  39         \clef "medicaea_do2"
  40         a b c'
  41         b a g f
  42         \clef "medicaea_fa1"
  43         e d c1 \bar "|"
  44
  45         \property Staff.Custos \override #'style = #'hufnagel
  46         \clef "hufnagel_fa2"
  47         c2 d e f g
  48         \clef "hufnagel_do2"
  49         a b c'
  50         b a g f
  51         \clef "hufnagel_fa1"
  52         e d c1 \bar "||"
  53     }
  54 >
  55
  56 lowerVoice =  \context Staff = lowerNotes <
  57     \global
  58     \property Staff.StaffSymbol \override #'line-count = #5
  59     \notes \transpose c' {
  60         \property Voice.NoteHead \override #'style = #'mensural
  61         \property Voice.Stem \override #'stem-centered = ##t
  62         \property Staff.Custos \override #'style = #'mensural
  63         \clef "mensural1_c2"
  64         c2 d e f g
  65         \property Staff.forceClef = ##t
  66         \clef "mensural1_c2"
  67         a b c'
  68         b a g f
  69         \clef "mensural2_c2"
  70         e d c1 \bar "|"
  71
  72         \clef "mensural2_c2"
  73         c2 d e f g
  74         \property Staff.forceClef = ##t
  75         \clef "mensural3_c2"
  76         a b c'
  77         b a g f
  78         \clef "mensural3_c2"
  79         e d c1 \bar "|"
  80
  81         \clef "mensural1_f"
  82         c2 d e f g
  83         \property Staff.forceClef = ##t
  84         \clef "mensural1_f"
  85         a b c'
  86         b a g f
  87         \clef "mensural2_f"
  88         e d c1 \bar "|"
  89
  90         \property Staff.forceClef = ##t
  91         \clef "mensural2_f"
  92         c2 d e f g
  93         \clef "mensural_g"
  94         a' b' c''
  95         b' a' g' f'
  96         \property Staff.forceClef = ##t
  97         \clef "mensural_g"
  98         e' d' c'1 \bar "|"
  99
 100         \property Staff.forceClef = ##t
 101         \clef "mensural_g"
 102         c'2 d' e' f' g'
 103         \clef "hufnagel_do_fa"
 104         a b c'
 105         b a g f
 106         \property Staff.forceClef = ##t
 107         \clef "hufnagel_do_fa"
 108         e d c1 \bar "||"
 109     }
 110 >
 111
 112 \score {
 113     \context ChoirStaff <
 114         \upperVoice
 115         \lowerVoice
 116     >
 117     \paper {
 118 %       \paperTwentysix
 119         linewidth = 17.25\cm
 120         textheight = 26.0\cm
 121         indent = 0.0
 122         \translator {
 123             \StaffContext
 124             \consists Custos_engraver
 125 %           Custos \override #'style = #'mensural
 126             \remove Time_signature_engraver
 127 %           StaffSymbol \override #'line-count = #4
 128         }
 129     }
 130 }
 131