input/lsr/ancient-fonts.ly

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