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'! \porrectus ges! \porrectus 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         \key a \major
 132
 133         % IMPORTANT NOTE:
 134         %
 135         % The porrectus syntax is subject to change.  For proper
 136         % use, it may eventually change into something like this:
 137         %
 138         % \ligature { e \porrectus c }
 139         %
 140         % The reason is that there needs to be some enclosing instance
 141         % for correct handling of line breaking, alignment with
 142         % adjacent note heads, and placement of accidentals.
 143
 144         \clef "neo_mensural_c2"
 145         cis' e' \porrectus d' gis' \porrectus e'
 146         \property Staff.forceClef = ##t
 147         \clef "neo_mensural_c2"
 148
 149         fis' \porrectus b cis''
 150         b \porrectus a a \porrectus fis
 151         \clef "petrucci_c2"
 152         cis \porrectus fis ces1 % \bar "|"
 153
 154         \clef "petrucci_c2"
 155         r\longa
 156         \property Staff.forceClef = ##t
 157         \clef "mensural_c2"
 158         r\breve r1 r2
 159         \clef "mensural_g"
 160         r4 r8 r16 r32 r32 \bar "|"
 161
 162         \property Voice.NoteHead \override #'style = #'mensural
 163         \property Voice.Stem \override #'style = #'mensural
 164         \property Voice.Stem \override #'thickness = #1.0
 165         \property Voice.Rest \override #'style = #'mensural
 166         \clef "petrucci_f"
 167         c8 b, c16 b, c32 b, c64 b, c b,
 168         d8 e  d16 e  d32 e  d64 e  d e
 169         r\longa
 170         \property Staff.forceClef = ##t
 171         \clef "petrucci_f"
 172         r\breve r1 % \bar "|"
 173         \clef "mensural_f"
 174
 175         % FIXME: must set Voice.Stem style to #'neo_mensural to avoid
 176         % segmentation fault on r8/r16/r32.  (Strange: what has
 177         % Voice.Stem style to do with mensural rests?)
 178         \property Voice.Stem \override #'style = #'neo_mensural
 179         r2 r4 r8 r16 r32 r32
 180         \property Voice.Stem \override #'style = #'mensural
 181
 182         \property Staff.forceClef = ##t
 183         \clef "mensural_f"
 184         e2 f g
 185         \clef "mensural_g"
 186
 187         % FIXME: In the second and all subsequent lines of score, the
 188         % stems and accidentals of the junked notes keep visible on
 189         % porrectus grobs.  Is this an initialization bug in the line
 190         % breaking algorithm?
 191
 192         bes'! \porrectus as'! \porrectus cis''!
 193         bes'! \porrectus fis'! as'! \porrectus ges'!
 194         \property Staff.forceClef = ##t
 195         \clef "mensural_g"
 196         e' d' c'1 \bar "|"
 197
 198         \property Staff.forceClef = ##t
 199         \clef "petrucci_g"
 200         c'2 d' e' f' g'
 201         \clef "petrucci_g"
 202         as'! bes'! cis''!
 203         bes'! as'! gis'! fis'!
 204         \property Staff.forceClef = ##t
 205         \clef "mensural_g"
 206         es'! des'! cis'!1 \bar "||"
 207     }
 208 >
 209
 210 \score {
 211     \context ChoirStaff <
 212         \upperVoice
 213         \lowerVoice
 214     >
 215     \paper {
 216 %       \paperTwentysix
 217         linewidth = 17.25\cm
 218         textheight = 26.0\cm
 219         stafflinethickness = \staffspace / 5.0
 220         indent = 0.0
 221         \translator {
 222             \StaffContext
 223             \consists Custos_engraver
 224 %           Custos \override #'style = #'mensural
 225             \remove Time_signature_engraver
 226 %           StaffSymbol \override #'thickness = #2.0
 227 %           StaffSymbol \override #'line-count = #4
 228         }
 229         \translator {
 230             \ScoreContext
 231 %           \remove System_start_delimiter_engraver
 232 %           SystemStartDelimiter \override #'glyph = #'brace
 233         }
 234         \translator {
 235             \ChoirStaffContext
 236             \remove System_start_delimiter_engraver
 237 %           SystemStartDelimiter \override #'glyph = #'empty
 238         }
 239     }
 240 }