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 Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  42         \property Voice.NoteHead \override #'style = #'vaticana_virga
  43         b! a! ges fes
  44         \breathe
  45         \clef "vaticana_fa1"
  46         \property Voice.NoteHead \override #'style = #'vaticana_quilisma
  47         es d
  48         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  49         c d
  50         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  51         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  52         es f
  53         \property Voice.NoteHead \override #'style = #'vaticana_lpes
  54         g as
  55         \property Voice.NoteHead \override #'style = #'vaticana_upes
  56         bes as
  57         \property Voice.NoteHead \override #'style = #'vaticana_vupes
  58         g f
  59         \property Voice.NoteHead \override #'style = #'vaticana_plica
  60         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  61         es d
  62         \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
  63         c d
  64         \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
  65         es f
  66
  67         \property Staff.KeySignature \override #'style = #'medicaea
  68         \property Staff.Accidentals \override #'style = #'medicaea
  69         \property Staff.Custos \override #'style = #'medicaea
  70         \property Voice.NoteHead \override #'style = #'medicaea_punctum
  71         \clef "medicaea_fa2"
  72         ces! des!
  73         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  74         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!
  80         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  81         ges! fes!
  82         \clef "medicaea_fa1"
  83         \property Voice.NoteHead \override #'style = #'medicaea_rvirga
  84         e! des! ces!
  85
  86         \property Staff.KeySignature \override #'style = #'hufnagel
  87         \property Staff.Accidentals \override #'style = #'hufnagel
  88         \property Staff.Custos \override #'style = #'hufnagel
  89         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
  90         \clef "hufnagel_fa2"
  91         ces! des! es!
  92         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  93         fes! ges!
  94         \clef "hufnagel_do2"
  95         \property Voice.NoteHead \override #'style = #'hufnagel_lpes
  96         as! bes! ces'!
  97         \property Voice.NoteHead \override #'style = #'hufnagel_virga
  98         bes! as!
  99         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
 100         ges! fes!
 101         \clef "hufnagel_do_fa"
 102         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
 103         es! des! ces! des! es! fes!
 104         \bar "||"
 105     }
 106 >
 107
 108 lowerVoice =  \context Staff = lowerNotes <
 109     \global
 110
 111     % this is broken until further notice -- see refman
 112     % \property Staff.StaffSymbol \override #'line-count = #5
 113     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
 114       #'line-count = #5
 115
 116     \notes \transpose c' {
 117         \property Voice.noAutoBeaming = ##t
 118         \property Staff.KeySignature \override #'style = #'mensural
 119         \property Staff.Accidentals \override #'style = #'mensural
 120         \property Staff.Custos \override #'style = #'mensural
 121         \property Voice.NoteHead \override #'style = #'neo_mensural
 122         \property Voice.Rest \override #'style = #'neo_mensural
 123         \key a \major
 124         \clef "neo_mensural_c2"
 125         c2 dis es fis ges
 126         \property Staff.forceClef = ##t
 127         \clef "neo_mensural_c2"
 128         ais bes cis'
 129         bis as gis fes
 130         \clef "petrucci_c2"
 131         e d c1 \bar "|"
 132
 133         \clef "petrucci_c2"
 134         r\longa
 135         \property Staff.forceClef = ##t
 136         \clef "mensural_c2"
 137         r\breve r1 r2
 138         \clef "mensural_g"
 139         r4 r8 r16 r32 r32 \bar "|"
 140
 141         \property Voice.NoteHead \override #'style = #'mensural
 142         \property Voice.Stem \override #'style = #'mensural
 143         \property Voice.Stem \override #'thickness = #1.0
 144         \property Voice.Rest \override #'style = #'mensural
 145         \clef "petrucci_f"
 146         c8 b, c16 b, c32 b, c64 b, c b,
 147         d8 e  d16 e  d32 e  d64 e  d e
 148         r\longa
 149         \property Staff.forceClef = ##t
 150         \clef "petrucci_f"
 151         r\breve r1 \bar "|"
 152         \clef "mensural_f"
 153
 154         % FIXME: need this to avoid segmentation fault on r8/r16/r32
 155         % (Strange: what has Voice.Stem style to do with mensural rests?)
 156         \property Voice.Stem \override #'style = #'neo_mensural
 157
 158         r2 r4 r8 r16 r32 r32
 159         \property Voice.Stem \override #'style = #'mensural
 160
 161         \property Staff.forceClef = ##t
 162         \clef "mensural_f"
 163         e2 f g
 164         \clef "mensural_g"
 165         as'! bes'! cis''!
 166         bes'! as'! gis'! fis'!
 167         \property Staff.forceClef = ##t
 168         \clef "mensural_g"
 169         e' d' c'1 \bar "|"
 170
 171         \property Staff.forceClef = ##t
 172         \clef "petrucci_g"
 173         c'2 d' e' f' g'
 174         \clef "petrucci_g"
 175         as'! bes'! cis''!
 176         bes'! as'! gis'! fis'!
 177         \property Staff.forceClef = ##t
 178         \clef "mensural_g"
 179         es'! des'! cis'!1 \bar "||"
 180     }
 181 >
 182
 183 \score {
 184     \context ChoirStaff <
 185         \upperVoice
 186         \lowerVoice
 187     >
 188     \paper {
 189 %       \paperTwentysix
 190         linewidth = 17.25\cm
 191         textheight = 26.0\cm
 192         stafflinethickness = \staffspace / 5.0
 193         indent = 0.0
 194         \translator {
 195             \StaffContext
 196             \consists Custos_engraver
 197 %           Custos \override #'style = #'mensural
 198             \remove Time_signature_engraver
 199 %           StaffSymbol \override #'thickness = #2.0
 200 %           StaffSymbol \override #'line-count = #4
 201         }
 202         \translator {
 203             \ScoreContext
 204 %           \remove System_start_delimiter_engraver
 205 %           SystemStartDelimiter \override #'glyph = #'brace
 206         }
 207         \translator {
 208             \ChoirStaffContext
 209             \remove System_start_delimiter_engraver
 210 %           SystemStartDelimiter \override #'glyph = #'empty
 211         }
 212     }
 213 }