input/test/ancient-font.ly

   1 \header {
   2     title       = "ancient font test";
   3     date        = "2000";
   4 }
   5
   6 \version "1.3.110";
   7
   8 \include "paper26.ly"
   9
  10 global = \notes {
  11     \property Score.timing = 1
  12     \property Staff.TimeSignature \override #'style = #"old"
  13     \time 2/2;
  14 }
  15
  16 upperVoice = \context Staff = upperVoice <
  17     \global
  18     \property Staff.numberOfStaffLines = 4
  19     \notes \transpose c' {
  20         \property Staff.Custos \override #'style = #'"vaticana"
  21         \clef "vaticana_fa2";
  22         c1 d e f g
  23         \clef "vaticana_do2";
  24         a b c' \bar "|";
  25         b a g f
  26         \clef "vaticana_fa1";
  27         e d c\breve \bar "|";
  28
  29         \property Staff.Custos \override #'style = #"medicaea"
  30         \clef "medicaea_fa2";
  31         c1 d e f g
  32         \clef "medicaea_do2";
  33         a b c' \bar "|";
  34         b a g f
  35         \clef "medicaea_fa1";
  36         e d c\breve \bar "|";
  37
  38         \property Staff.Custos \override #'style = #'"hufnagel"
  39         \clef "hufnagel_fa2";
  40         c1 d e f g
  41         \clef "hufnagel_do2";
  42         a b c' \bar "|";
  43         b a g f
  44         \clef "hufnagel_fa1";
  45         e d c\breve \bar "||";
  46     }
  47 >
  48
  49 lowerVoice = \context Staff = lowerNotes <
  50     \global
  51     \property Staff.numberOfStaffLines = 5
  52     \notes \transpose c'' {
  53         \property Staff.Custos \override #'style = #'"mensural"
  54         \clef "mensural1_c2";
  55         c1 d e f g
  56         \clef "mensural1_c2";
  57         a b c' \bar "|";
  58         b a g f
  59         \clef "mensural2_c2";
  60         e d c\breve \bar "|";
  61
  62         \clef "mensural2_c2";
  63         c1 d e f g
  64         \clef "mensural3_c2";
  65         a b c' \bar "|";
  66         b a g f
  67         \clef "mensural3_c2";
  68         e d c\breve \bar "|";
  69
  70         \clef "mensural_f";
  71         c1 d e f g
  72         \clef "mensural_f";
  73         a b c' \bar "|";
  74         b a g f
  75         \clef "mensural_f";
  76         e d c\breve \bar "|";
  77
  78         \clef "hufnagel";
  79         c,1 d, e, f, g,
  80         \clef "hufnagel";
  81         a, b, c \bar "||";
  82     }
  83 >
  84
  85 \score {
  86     \context ChoirStaff <
  87         \upperVoice
  88         \lowerVoice
  89     >
  90     \paper {
  91 %       \paper_twentysix
  92         linewidth = 17.25\cm;
  93         textheight = 26.0\cm;
  94         indent = 0.0;
  95         \translator {
  96             \StaffContext
  97             \consists "Custos_engraver";
  98 %           custosStyle = "mensural";
  99         }
 100     }
 101 }
 102