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