input/bugs/ancient-font.ly

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