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