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
  19     % this is broken until further notice -- see refman
  20     % \property Staff.StaffSymbol \override #'line-count = #4
  21     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  22       #'line-count = #4
  23
  24     \notes \transpose c' {
  25         \property Voice.NoteHead \override #'style = #'mensural
  26         \property Voice.Stem \override #'stem-centered = ##t
  27         \property Staff.Custos \override #'style = #'vaticana
  28         \clef "vaticana_fa2"
  29         c2 d e f g
  30
  31 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  32 %       \property Staff.clefPosition = #1
  33 %       \property Staff.clefOctavation = #0
  34         \clef "vaticana_do2"
  35
  36         a b c'
  37         b a g f
  38         \clef "vaticana_fa1"
  39         e d c1 \bar "|"
  40
  41         \property Staff.Custos \override #'style = #'medicaea
  42         \clef "medicaea_fa2"
  43         c2 d e f g
  44         \clef "medicaea_do2"
  45         a b c'
  46         b a g f
  47         \clef "medicaea_fa1"
  48         e d c1 \bar "|"
  49
  50         \property Staff.Custos \override #'style = #'hufnagel
  51         \clef "hufnagel_fa2"
  52         c2 d e f g
  53         \clef "hufnagel_do2"
  54         a b c'
  55         b a g f
  56         \clef "hufnagel_fa1"
  57         e d c1 \bar "||"
  58     }
  59 >
  60
  61 lowerVoice =  \context Staff = lowerNotes <
  62     \global
  63
  64     % this is broken until further notice -- see refman
  65     % \property Staff.StaffSymbol \override #'line-count = #5
  66     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  67       #'line-count = #5
  68
  69     \notes \transpose c' {
  70         \property Voice.NoteHead \override #'style = #'mensural
  71         \property Voice.Stem \override #'stem-centered = ##t
  72         \property Staff.Custos \override #'style = #'mensural
  73         \clef "mensural1_c2"
  74         c2 d e f g
  75         \property Staff.forceClef = ##t
  76         \clef "mensural1_c2"
  77         a b c'
  78         b a g f
  79         \clef "mensural2_c2"
  80         e d c1 \bar "|"
  81
  82         \clef "mensural2_c2"
  83         c2 d e f g
  84         \property Staff.forceClef = ##t
  85         \clef "mensural3_c2"
  86         a b c'
  87         b a g f
  88         \clef "mensural3_c2"
  89         e d c1 \bar "|"
  90
  91         \clef "mensural1_f"
  92         c2 d e f g
  93         \property Staff.forceClef = ##t
  94         \clef "mensural1_f"
  95         a b c'
  96         b a g f
  97         \clef "mensural2_f"
  98         e d c1 \bar "|"
  99
 100         \property Staff.forceClef = ##t
 101         \clef "mensural2_f"
 102         c2 d e f g
 103         \clef "mensural_g"
 104         a' b' c''
 105         b' a' g' f'
 106         \property Staff.forceClef = ##t
 107         \clef "mensural_g"
 108         e' d' c'1 \bar "|"
 109
 110         \property Staff.forceClef = ##t
 111         \clef "mensural_g"
 112         c'2 d' e' f' g'
 113         \clef "hufnagel_do_fa"
 114         a b c'
 115         b a g f
 116         \property Staff.forceClef = ##t
 117         \clef "hufnagel_do_fa"
 118         e d c1 \bar "||"
 119     }
 120 >
 121
 122 \score {
 123     \context ChoirStaff <
 124         \upperVoice
 125         \lowerVoice
 126     >
 127     \paper {
 128 %       \paperTwentysix
 129         linewidth = 17.25\cm
 130         textheight = 26.0\cm
 131         indent = 0.0
 132         \translator {
 133             \StaffContext
 134             \consists Custos_engraver
 135 %           Custos \override #'style = #'mensural
 136             \remove Time_signature_engraver
 137 %           StaffSymbol \override #'line-count = #4
 138         }
 139     }
 140 }
 141