input/test/ancient-font.ly

   1 \header {
   2     title       = "ancient font test";
   3     date        = "2000";
   4 }
   5
   6 \version "1.3.120";
   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         \clef "mensural1_c2";
  65         a b c'
  66         b a g f
  67         \clef "mensural2_c2";
  68         e d c1 \bar "|";
  69
  70         \clef "mensural2_c2";
  71         c2 d e f g
  72         \clef "mensural3_c2";
  73         a b c'
  74         b a g f
  75         \clef "mensural3_c2";
  76         e d c1 \bar "|";
  77
  78         \clef "mensural1_f";
  79         c2 d e f g
  80         \clef "mensural1_f";
  81         a b c'
  82         b a g f
  83         \clef "mensural2_f";
  84         e d c1 \bar "|";
  85
  86         \clef "mensural2_f";
  87         c2 d e f g
  88         \clef "mensural_g";
  89         a' b' c''
  90         b' a' g' f'
  91         \clef "mensural_g";
  92         e' d' c'1 \bar "|";
  93
  94         \clef "mensural_g";
  95         c'2 d' e' f' g'
  96         \clef "hufnagel_do_fa";
  97         a b c'
  98         b a g f
  99         \clef "hufnagel_do_fa";
 100         e d c1 \bar "||";
 101     }
 102 >
 103
 104 \score {
 105     \context ChoirStaff <
 106         \upperVoice
 107         \lowerVoice
 108     >
 109     \paper {
 110 %       \paperTwentysix
 111         linewidth = 17.25\cm;
 112         textheight = 26.0\cm;
 113         indent = 0.0;
 114         \translator {
 115             \StaffContext
 116             \consists Custos_engraver;
 117 %           Custos \override #'style = #'mensural;
 118             \remove Time_signature_engraver;
 119 %           StaffSymbol \override #'line-count = #4
 120         }
 121     }
 122 }
 123