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