input/lsr/ancient/ancient-fonts.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \version "2.11.23"
   3
   4 \header { texidoc = "
   5 Here are shown many (all?) of the symbols that are included in
   6 LilyPond's support of ancient notation.
   7
   8
   9 " }
  10
  11 upperStaff = \context GregorianStaff = "upperStaff" <<
  12   \context GregorianVoice <<
  13     \set Score.timing = ##f
  14 %   \set Score.forceAccidental = ##t %%%%%%%% FIXME: what happened to this property?
  15
  16     \override Staff.StaffSymbol  #'line-count = #4
  17
  18      \transpose c c {
  19         \override Staff.KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
  20         \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
  21         \override NoteHead  #'style = #'vaticana.punctum
  22         \key es \major
  23         \clef "vaticana-fa2"
  24         c!1 des! e! f! ges!
  25
  26         \override NoteHead  #'style = #'vaticana.inclinatum
  27         a! b! ces'
  28         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  29 %       \break % 1 (8*1)
  30
  31         \override NoteHead  #'style = #'vaticana.quilisma
  32         b! des'! ges! fes!
  33         \breathe
  34         \clef "vaticana-fa1"
  35         \override NoteHead  #'style = #'vaticana.plica
  36         es d
  37         \override NoteHead  #'style = #'vaticana.reverse-plica
  38         c d
  39         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  40 %       \break %2 (8*1)
  41
  42         \override NoteHead  #'style = #'vaticana.punctum-cavum
  43         es f
  44         \override NoteHead  #'style = #'vaticana.lpes
  45         g as
  46         \override NoteHead  #'style = #'vaticana.upes
  47         bes as
  48         \override NoteHead  #'style = #'vaticana.vupes
  49         g f
  50         \override NoteHead  #'style = #'vaticana.linea-punctum
  51         \override Staff.BarLine  #'bar-size = #2.0 \bar "|"
  52 %       \break % 3 (8*1)
  53
  54         es d
  55         \override NoteHead  #'style = #'vaticana.epiphonus
  56         c d
  57         \override NoteHead  #'style = #'vaticana.cephalicus
  58         es f
  59
  60         \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
  61         \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
  62         \override Staff.Custos  #'style = #'medicaea
  63         \override NoteHead  #'style = #'medicaea.punctum
  64         \clef "medicaea-fa2"
  65         ces! des!
  66         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  67 %       \break % 4 (8*1)
  68
  69         e! f! ges!
  70         \clef "medicaea-do2"
  71         \override NoteHead  #'style = #'medicaea.inclinatum
  72         a! b! ces'!
  73         \override NoteHead  #'style = #'medicaea.virga
  74         b! a!
  75         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  76 %       \break % 5 (8*1)
  77
  78         ges! fes!
  79         \clef "medicaea-fa1"
  80         \override NoteHead  #'style = #'medicaea.rvirga
  81         e! des! ces!
  82
  83         \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  84         \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  85         \override Staff.Custos  #'style = #'hufnagel
  86         \override NoteHead  #'style = #'hufnagel.punctum
  87         \clef "hufnagel-fa2"
  88         ces! des! es!
  89         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  90 %       \break % 6 (8*1)
  91
  92         fes! ges!
  93         \clef "hufnagel-do2"
  94         \override NoteHead  #'style = #'hufnagel.lpes
  95         as! bes! ces'!
  96         \override NoteHead  #'style = #'hufnagel.virga
  97         bes! as!
  98         \override Staff.BarLine  #'bar-size = #3.0 \bar "|"
  99 %       \break % 7 (8*1)
 100
 101         ges! fes!
 102         \clef "hufnagel-do-fa"
 103         \override NoteHead  #'style = #'hufnagel.punctum
 104         es! des! ces! des! es! fes!
 105         \bar "||"
 106 %       \break % 8 (8*1)
 107
 108         s32*1
 109 %       \break % 12 (32*1)
 110     }
 111   >>
 112 >>
 113
 114 lowerStaff = \context MensuralStaff = "lowerStaff" <<
 115   \context MensuralVoice <<
 116
 117     % this is broken until further notice -- see refman
 118     % \override Staff.StaffSymbol  #'line-count = #5
 119     \applyOutput #'Staff #(outputproperty-compatibility (make-type-checker 'staff-symbol-interface) 'line-count 5)
 120
 121      \transpose c c {
 122         \set autoBeaming = ##f
 123         \override NoteHead  #'style = #'neomensural
 124         \override Rest  #'style = #'neomensural
 125         \key a \major
 126
 127 % FIXME: lily crashes on some (invalid?) ligatures with:
 128 %   ERROR: In procedure gh_scm2int:
 129 %   ERROR: Wrong type argument in position 1: ()
 130
 131 % FIXME: lily emits "Programming error: Infinity or NaN encountered"
 132 % on many ligatures such as BB.
 133
 134         cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
 135         \set Staff.forceClef = ##t
 136         \clef "neomensural-c2"
 137         cis1
 138         \bar "|"
 139 %       \break % 2 (16*1)
 140
 141         \[ g\breve dis''\longa \]
 142         b\breve \[ a\longa d\longa \]
 143         \clef "petrucci-c2"
 144 %       \break % 4 (16*1)
 145
 146         fis1 ces1
 147         \clef "petrucci-c2"
 148         r\longa
 149         \set Staff.forceClef = ##t
 150         \clef "mensural-c2"
 151         r\breve
 152         \bar "|"
 153 %       \break % 5 (8*1)
 154
 155         r2
 156         \clef "mensural-g"
 157         r4 r8 r16 r16
 158         \override NoteHead  #'style = #'mensural
 159         \override Stem  #'flag-style = #'mensural
 160         \override Stem  #'thickness = #1.0
 161         \override Rest  #'style = #'mensural
 162         \clef "petrucci-f"
 163         c8 b, c16 b, c32 b, c64 b, c64 b,
 164         d8 e  d16 e  d32 e  d64 e  d64 e
 165         r\longa
 166         \set Staff.forceClef = ##t
 167         \clef "petrucci-f"
 168         r\breve
 169         \bar "|"
 170 %       \break % 6 (8*1)
 171
 172         r\breve
 173         \clef "mensural-f"
 174         % FIXME: must set Stem flag-style to #'neomensural to avoid
 175         % segmentation fault on r8/r16/r32.  (Strange: what has
 176         % Stem flag-style to do with mensural rests?)
 177         \override Stem  #'flag-style = #'neomensural
 178         % FIXME: produces warnings about "flag `neomensurald4' (or 3) not found".
 179         r2 r4 r8 r16 r16
 180         \override Stem  #'flag-style = #'mensural
 181         \set Staff.forceClef = ##t
 182         \clef "mensural-f"
 183         e\breve f g a1
 184         \clef "mensural-g"
 185 %       \break % 7 (8*1)
 186
 187         \[ bes'!\longa a'!\longa c''!\longa \]
 188         e'1 d' c' d' \bar "|"
 189         \bar "|"
 190 %       \break % 9 (16*1)
 191
 192         bes'!\longa fis'!1 as'!1 ges'!\longa % lig
 193         \set Staff.forceClef = ##t
 194         \clef "mensural-g"
 195         e'2 d' c' \bar "|"
 196 %       \break % 11 (16*1)
 197
 198         \set Staff.forceClef = ##t
 199         \clef "petrucci-g"
 200         c'2 d' e' f'
 201         \clef "petrucci-g"
 202         g' as'! bes'! cis''!
 203         bes'! as'! gis'! fis'!
 204         \set Staff.forceClef = ##t
 205         \clef "mensural-g"
 206         es'! des'! cis'!1 \bar "||"
 207 %       \break % 12 (8*1)
 208     }
 209   >>
 210 >>
 211
 212 \paper {
 213         line-thickness = #(/ staff-space 5.0)
 214 }
 215
 216 \score {
 217     \context Score <<
 218         \upperStaff
 219         \lowerStaff
 220     >>
 221     \layout {
 222 % do we want to keep these settings? -gp
 223         line-width = 17.25\cm
 224         textheight = 26.0\cm
 225         indent = 0.0
 226         \context {
 227             \Score
 228             \accepts MensuralStaff
 229             \accepts GregorianStaff
 230 %           timing = ##f %%%%%%%% FIXME: this has no effect
 231         }
 232         \context {
 233             \Voice
 234             \name MensuralVoice
 235             \alias Voice
 236             \remove Ligature_bracket_engraver
 237             \consists Mensural_ligature_engraver
 238             \override NoteHead #'style = #'mensural
 239 %           \override Stem #'flag-style = #'mensural %%%%%%%% FIXME: this core dumps
 240             \override Stem #'thickness = #1.0
 241             \override Rest #'style = #'mensural
 242             autoBeaming = ##f
 243         }
 244         \context {
 245             \Voice
 246             \name GregorianVoice
 247             \alias Voice
 248             \remove Ligature_bracket_engraver
 249 %           \consists Gregorian_ligature_engraver %%%%%%%% TODO: not yet implemented
 250             \override NoteHead #'style = #'vaticana.punctum
 251             autoBeaming = ##f
 252         }
 253         \context {
 254             \Staff
 255             \name MensuralStaff
 256             \alias Staff
 257             \accepts MensuralVoice
 258             \consists Custos_engraver
 259             \override TimeSignature #'style = #'mensural
 260             \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
 261             \override Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
 262             \override Custos #'style = #'mensural
 263             \override Custos #'neutral-position = #3
 264             \override Custos #'neutral-direction = #-1
 265             clefGlyph = #"clefs.petrucci-c2"
 266             clefPosition = #-2
 267             clefOctavation = #0
 268         }
 269         \context {
 270             \Staff
 271             \name GregorianStaff
 272             \alias Staff
 273             \accepts GregorianVoice
 274             \consists Custos_engraver
 275             \remove Time_signature_engraver
 276             \override StaffSymbol #'thickness = #2.0
 277             \override StaffSymbol #'line-count = #4
 278             \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
 279             \override Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
 280             \override Custos #'style = #'vaticana
 281             \override Custos #'neutral-position = #4
 282             \override Custos #'neutral-direction = #-1
 283             clefGlyph = #"clefs.vaticana-do"
 284             clefPosition = #1
 285             clefOctavation = #0
 286         }
 287         \context {
 288             \RemoveEmptyStaffContext
 289             \accepts MensuralVoice
 290             \accepts GregorianVoice
 291         }
 292     }
 293 }
 294
 295