input/test/ancient-font.ly

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