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         \property Voice.Porrectus \override #'style = #'vaticana
  31         \property Voice.Porrectus \override #'solid = ##t
  32         \property Voice.Porrectus \override #'add-stem = ##t
  33         \property Voice.Porrectus \override #'stem-direction = #-1
  34         \property Voice.Porrectus \override #'line-thickness = #0.5
  35         \key es \major
  36         \clef "vaticana_fa2"
  37         c!1 des! e! f! ges!
  38
  39 %       \property Staff.clefGlyph = #"clefs-vaticana_do"
  40 %       \property Staff.clefPosition = #1
  41 %       \property Staff.clefOctavation = #0
  42         \clef "vaticana_do2"
  43
  44         \property Voice.NoteHead \override #'style = #'vaticana_inclinatum
  45         a! b!
  46         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  47         \property Voice.NoteHead \override #'style = #'vaticana_virga
  48         ces' b! des'! \~ ges! \~ fes!
  49         \breathe
  50         \clef "vaticana_fa1"
  51         \property Voice.NoteHead \override #'style = #'vaticana_quilisma
  52         es d
  53         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  54         c d
  55         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  56         \property Voice.NoteHead \override #'style = #'vaticana_rvirga
  57         es f
  58         \property Voice.NoteHead \override #'style = #'vaticana_lpes
  59         g as
  60         \property Voice.NoteHead \override #'style = #'vaticana_upes
  61         bes as
  62         \property Voice.NoteHead \override #'style = #'vaticana_vupes
  63         g f
  64         \property Voice.NoteHead \override #'style = #'vaticana_plica
  65         \property Staff.BarLine \override #'bar-size = #2.0 \bar "|"
  66         es d
  67         \property Voice.NoteHead \override #'style = #'vaticana_epiphonus
  68         c d
  69         \property Voice.NoteHead \override #'style = #'vaticana_cephalicus
  70         es f
  71
  72         \property Staff.KeySignature \override #'style = #'medicaea
  73         \property Staff.Accidentals \override #'style = #'medicaea
  74         \property Staff.Custos \override #'style = #'medicaea
  75         \property Voice.NoteHead \override #'style = #'medicaea_punctum
  76         \clef "medicaea_fa2"
  77         ces! des!
  78         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  79         e! f! ges!
  80         \clef "medicaea_do2"
  81         \property Voice.NoteHead \override #'style = #'medicaea_subbipunctum
  82         a! b! ces'!
  83         \property Voice.NoteHead \override #'style = #'medicaea_virga
  84         b! a!
  85         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  86         ges! fes!
  87         \clef "medicaea_fa1"
  88         \property Voice.NoteHead \override #'style = #'medicaea_rvirga
  89         e! des! ces!
  90
  91         \property Staff.KeySignature \override #'style = #'hufnagel
  92         \property Staff.Accidentals \override #'style = #'hufnagel
  93         \property Staff.Custos \override #'style = #'hufnagel
  94         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
  95         \clef "hufnagel_fa2"
  96         ces! des! es!
  97         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
  98         fes! ges!
  99         \clef "hufnagel_do2"
 100         \property Voice.NoteHead \override #'style = #'hufnagel_lpes
 101         as! bes! ces'!
 102         \property Voice.NoteHead \override #'style = #'hufnagel_virga
 103         bes! as!
 104         \property Staff.BarLine \override #'bar-size = #3.0 \bar "|"
 105         ges! fes!
 106         \clef "hufnagel_do_fa"
 107         \property Voice.NoteHead \override #'style = #'hufnagel_punctum
 108         es! des! ces! des! es! fes!
 109         \bar "||"
 110     }
 111 >
 112
 113 lowerVoice =  \context Staff = lowerNotes <
 114     \global
 115
 116     % this is broken until further notice -- see refman
 117     % \property Staff.StaffSymbol \override #'line-count = #5
 118     \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
 119       #'line-count = #5
 120
 121     \notes \transpose c' {
 122         \property Voice.noAutoBeaming = ##t
 123         \property Staff.KeySignature \override #'style = #'mensural
 124         \property Staff.Accidentals \override #'style = #'mensural
 125         \property Staff.Custos \override #'style = #'mensural
 126         \property Voice.NoteHead \override #'style = #'neo_mensural
 127         \property Voice.Rest \override #'style = #'neo_mensural
 128         \property Voice.Porrectus \override #'style = #'mensural
 129         \property Voice.Porrectus \override #'solid = ##f
 130         \property Voice.Porrectus \override #'add-stem = ##t
 131         \property Voice.Porrectus \override #'stem-direction = #1
 132         \property Voice.Porrectus \override #'line-thickness = #0.7
 133 %       \property Voice.Porrectus \override #'auto-properties = ##t
 134 %       \property Voice.Porrectus \override #'porrectus-width = #3.0
 135         \key a \major
 136
 137         % IMPORTANT NOTE:
 138         %
 139         % The porrectus syntax is definitely subject to change.  For
 140         % proper use, it may eventually change into something like this:
 141         %
 142         % \startLigature e \~ c \endLigature
 143         %
 144         % The reason is that there needs to be some enclosing instance
 145         % for correct handling of line breaking, alignment with
 146         % adjacent note heads, and placement of accidentals.
 147
 148         \clef "neo_mensural_c2"
 149         cis' e' \~ d' gis' \~ e'
 150         \property Staff.forceClef = ##t
 151         \clef "neo_mensural_c2"
 152
 153         fis' \~ b cis''
 154         b \~ a a \~ fis
 155         \clef "petrucci_c2"
 156         cis \~ fis ces1 % \bar "|"
 157
 158         \clef "petrucci_c2"
 159         r\longa
 160         \property Staff.forceClef = ##t
 161         \clef "mensural_c2"
 162         r\breve r1 r2
 163         \clef "mensural_g"
 164         r4 r8 r16 r32 r32 \bar "|"
 165
 166         \property Voice.NoteHead \override #'style = #'mensural
 167         \property Voice.Stem \override #'style = #'mensural
 168         \property Voice.Stem \override #'thickness = #1.0
 169         \property Voice.Rest \override #'style = #'mensural
 170         \clef "petrucci_f"
 171         c8 b, c16 b, c32 b, c64 b, c b,
 172         d8 e  d16 e  d32 e  d64 e  d e
 173         r\longa
 174         \property Staff.forceClef = ##t
 175         \clef "petrucci_f"
 176         r\breve r1 % \bar "|"
 177         \clef "mensural_f"
 178
 179         % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
 180         % segmentation fault on r8/r16/r32.  (Strange: what has
 181         % Voice.Stem style to do with mensural rests?)
 182         \property Voice.Stem \override #'style = #'neo_mensural
 183         r2 r4 r8 r16 r32 r32
 184         \property Voice.Stem \override #'style = #'mensural
 185
 186         \property Staff.forceClef = ##t
 187         \clef "mensural_f"
 188         e2 f g
 189         \clef "mensural_g"
 190
 191         bes'! \~ as'! \~ cis''!
 192         bes'! \~ fis'! as'! \~ ges'!
 193         \property Staff.forceClef = ##t
 194         \clef "mensural_g"
 195         e' d' c'1 \bar "|"
 196
 197         \property Staff.forceClef = ##t
 198         \clef "petrucci_g"
 199         c'2 d' e' f' g'
 200         \clef "petrucci_g"
 201         as'! bes'! cis''!
 202         bes'! as'! gis'! fis'!
 203         \property Staff.forceClef = ##t
 204         \clef "mensural_g"
 205         es'! des'! cis'!1 \bar "||"
 206     }
 207 >
 208
 209 \score {
 210     \context ChoirStaff <
 211         \upperVoice
 212         \lowerVoice
 213     >
 214     \paper {
 215 %       \paperTwentysix
 216         linewidth = 17.25\cm
 217         textheight = 26.0\cm
 218         stafflinethickness = \staffspace / 5.0
 219         indent = 0.0
 220         \translator {
 221             \StaffContext
 222             \consists Custos_engraver
 223 %           Custos \override #'style = #'mensural
 224             \remove Time_signature_engraver
 225 %           StaffSymbol \override #'thickness = #2.0
 226 %           StaffSymbol \override #'line-count = #4
 227         }
 228         \translator {
 229             \ScoreContext
 230 %           \remove System_start_delimiter_engraver
 231 %           SystemStartDelimiter \override #'glyph = #'brace
 232         }
 233         \translator {
 234             \ChoirStaffContext
 235             \remove System_start_delimiter_engraver
 236 %           SystemStartDelimiter \override #'glyph = #'empty
 237         }
 238     }
 239 }