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