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 Voice.noAutoBeaming = ##t
 111         \property Staff.KeySignature \override #'style = #'mensural
 112         \property Staff.Accidentals \override #'style = #'mensural
 113         \property Staff.Custos \override #'style = #'mensural
 114         \property Voice.NoteHead \override #'style = #'neo_mensural
 115         \key a \major
 116         \clef "neo_mensural_c2"
 117         c2 dis es fis ges
 118         \property Staff.forceClef = ##t
 119         \clef "neo_mensural_c2"
 120         ais bes cis'
 121         bis as gis fes
 122         \clef "petrucci_c2"
 123         e d c1 \bar "|"
 124
 125         \clef "petrucci_c2"
 126         c2 d e f g
 127         \property Staff.forceClef = ##t
 128         \clef "mensural_c2"
 129         a b c'
 130         b a g f
 131         \clef "mensural_g"
 132         e d c1 \bar "|"
 133
 134         \property Voice.NoteHead \override #'style = #'mensural
 135         \property Voice.Stem \override #'style = #'mensural
 136         \property Voice.Stem \override #'thickness = #1.0
 137         \clef "petrucci_f"
 138         c8 b, c16 b, c32 b, c64 b, c b,
 139         d8 e  d16 e  d32 e  d64 e  d e
 140         c2 d e f g
 141         \property Staff.forceClef = ##t
 142         \clef "petrucci_f"
 143         a b c'
 144         b a g f
 145         \clef "mensural_f"
 146         e d c1 \bar "|"
 147
 148         \property Staff.forceClef = ##t
 149         \clef "mensural_f"
 150         c2 d e f g
 151         \clef "mensural_g"
 152         as'! bes'! cis''!
 153         bes'! as'! gis'! fis'!
 154         \property Staff.forceClef = ##t
 155         \clef "mensural_g"
 156         e' d' c'1 \bar "|"
 157
 158         \property Staff.forceClef = ##t
 159         \clef "petrucci_g"
 160         c'2 d' e' f' g'
 161         \clef "petrucci_g"
 162         as'! bes'! cis''!
 163         bes'! as'! gis'! fis'!
 164         \property Staff.forceClef = ##t
 165         \clef "mensural_g"
 166         es'! des'! cis'!1 \bar "||"
 167     }
 168 >
 169
 170 \score {
 171     \context ChoirStaff <
 172         \upperVoice
 173         \lowerVoice
 174     >
 175     \paper {
 176 %       \paperTwentysix
 177         linewidth = 17.25\cm
 178         textheight = 26.0\cm
 179         stafflinethickness = \staffspace / 5.0
 180         indent = 0.0
 181         \translator {
 182             \StaffContext
 183             \consists Custos_engraver
 184 %           Custos \override #'style = #'mensural
 185             \remove Time_signature_engraver
 186 %           StaffSymbol \override #'thickness = #2.0
 187 %           StaffSymbol \override #'line-count = #4
 188         }
 189     }
 190 }