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