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 Score.forceAccidental = ##t
  14 %   \property Staff.TimeSignature \override #'style = #'old
  15 }
  16
  17 upperVoice =  \context Staff = upperVoice <
  18     \global
  19
  20     % this is broken until further notice -- see refman
  21     % \property Staff.StaffSymbol \override #'line-count = #4
  22     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
  23       #'line-count = #4
  24
  25     \notes \transpose c' {
  26         \property Staff.KeySignature \override #'style = #'vaticana
  27         \property Staff.Accidentals \override #'style = #'vaticana
  28         \property Staff.Custos \override #'style = #'vaticana
  29         \property Voice.NoteHead \override #'style = #'vaticana_punctum
  30         \key es \major
  31         \clef "vaticana_fa2"
  32         c!1 des! e! f! ges!
  33
  34 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  35 %       \property Staff.clefPosition = #1
  36 %       \property Staff.clefOctavation = #0
  37         \clef "vaticana_do2"
  38
  39         \property Voice.NoteHead \override #'style = #'vaticana_subbipunctum
  40         a! b! ces'
  41         \property Voice.NoteHead \override #'style = #'vaticana_virga
  42         b! a! ges fes
  43         \clef "vaticana_fa1"
  44         \property Voice.NoteHead \override #'style = #'vaticana_quilisma
  45         es d
  46         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  47         c d
  48         \breathe
  49         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  50         es f
  51         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  52         \property Voice.NoteHead \override #'style = #'vaticana_lpes
  53         g as
  54         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  55         \property Voice.NoteHead \override #'style = #'vaticana_upes
  56         bes as
  57         \breathe
  58         \property Voice.NoteHead \override #'style = #'vaticana_vupes
  59         g f
  60         \property Voice.NoteHead \override #'style = #'vaticana_plica
  61         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  62         es d
  63         \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
  64         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  65         c d
  66         \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
  67         es f
  68
  69         \property Staff.KeySignature \override #'style = #'medicaea
  70         \property Staff.Accidentals \override #'style = #'medicaea
  71         \property Staff.Custos \override #'style = #'medicaea
  72         \property Voice.NoteHead \override #'style = #'medicaea_punctum
  73         \clef "medicaea_fa2"
  74         ces! des! e! f! ges!
  75         \clef "medicaea_do2"
  76         \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
  77         a! b! ces'!
  78         \property Voice.NoteHead \override #'style = #'medicaea_virga
  79         b! a! ges! fes!
  80         \clef "medicaea_fa1"
  81         \property Voice.NoteHead \override #'style = #'medicaea_rvirga
  82         e! des! ces! \bar "|"
  83
  84         \property Staff.KeySignature \override #'style = #'hufnagel
  85         \property Staff.Accidentals \override #'style = #'hufnagel
  86         \property Staff.Custos \override #'style = #'hufnagel
  87         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
  88         \clef "hufnagel_fa2"
  89         ces! des! es! fes! ges!
  90         \clef "hufnagel_do2"
  91         \property Voice.NoteHead \override #'style = #'hufnagel_lpes
  92         as! bes! ces'!
  93         \property Voice.NoteHead \override #'style = #'hufnagel_virga
  94         bes! as! ges! fes!
  95         \clef "hufnagel_do_fa"
  96         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
  97         es! des! ces!1 \bar "||"
  98     }
  99 >
 100
 101 lowerVoice =  \context Staff = lowerNotes <
 102     \global
 103
 104     % this is broken until further notice -- see refman
 105     % \property Staff.StaffSymbol \override #'line-count = #5
 106     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
 107       #'line-count = #5
 108
 109     \notes \transpose c' {
 110         \property Staff.KeySignature \override #'style = #'mensural
 111         \property Staff.Accidentals \override #'style = #'mensural
 112         \property Staff.Custos \override #'style = #'mensural
 113         \property Voice.NoteHead \override #'style = #'neo_mensural
 114         \key a \major
 115         \clef "neo_mensural_c2"
 116         c2 dis es fis ges
 117         \property Staff.forceClef = ##t
 118         \clef "neo_mensural_c2"
 119         ais bes cis'
 120         bis as gis fes
 121         \clef "petrucci_c2"
 122         e d c1 \bar "|"
 123
 124         \clef "petrucci_c2"
 125         c2 d e f g
 126         \property Staff.forceClef = ##t
 127         \clef "mensural_c2"
 128         a b c'
 129         b a g f
 130         \clef "mensural_g"
 131         e d c1 \bar "|"
 132
 133         \property Voice.NoteHead \override #'style = #'mensural
 134         \clef "petrucci_f"
 135         c2 d e f g
 136         \property Staff.forceClef = ##t
 137         \clef "petrucci_f"
 138         a b c'
 139         b a g f
 140         \clef "mensural_f"
 141         e d c1 \bar "|"
 142
 143         \property Staff.forceClef = ##t
 144         \clef "mensural_f"
 145         c2 d e f g
 146         \clef "mensural_g"
 147         as'! bes'! cis''!
 148         bes'! as'! gis'! fis'!
 149         \property Staff.forceClef = ##t
 150         \clef "mensural_g"
 151         e' d' c'1 \bar "|"
 152
 153         \property Staff.forceClef = ##t
 154         \clef "petrucci_g"
 155         c'2 d' e' f' g'
 156         \clef "petrucci_g"
 157         as'! bes'! cis''!
 158         bes'! as'! gis'! fis'!
 159         \property Staff.forceClef = ##t
 160         \clef "mensural_g"
 161         es'! des'! cis'!1 \bar "||"
 162     }
 163 >
 164
 165 \score {
 166     \context ChoirStaff <
 167         \upperVoice
 168         \lowerVoice
 169     >
 170     \paper {
 171 %       \paperTwentysix
 172         linewidth = 17.25\cm
 173         textheight = 26.0\cm
 174 %       stafflinethickness = \staffspace / 5.0
 175         indent = 0.0
 176         \translator {
 177             \StaffContext
 178             \consists Custos_engraver
 179 %           Custos \override #'style = #'mensural
 180             \remove Time_signature_engraver
 181             StaffSymbol \override #'thickness = #2.0
 182 %           StaffSymbol \override #'line-count = #4
 183         }
 184     }
 185 }