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.62"
   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 Shown here are many (all?) of the symbols that are included in
  18 LilyPond's support for ancient notation.
  19
  20
  21
  22 "
  23   doctitle = "Ancient fonts"
  24 } % begin verbatim
  25 upperStaff = \new VaticanaStaff = "upperStaff" <<
  26   \context VaticanaVoice <<
  27     \transpose c c {
  28
  29       \override NoteHead #'style = #'vaticana.punctum
  30       \key es \major
  31       \clef "vaticana-fa2"
  32       c1 des e f ges
  33
  34       \override NoteHead #'style = #'vaticana.inclinatum
  35       a! b ces'
  36       \bar "|"
  37       % \break % 1 (8*1)
  38
  39       \override NoteHead #'style = #'vaticana.quilisma
  40       b! des'! ges! fes!
  41       \breathe
  42       \clef "vaticana-fa1"
  43       \override NoteHead #'style = #'vaticana.plica
  44       es d
  45       \override NoteHead #'style = #'vaticana.reverse.plica
  46       c d
  47       \bar "|"
  48       % \break %2 (8*1)
  49
  50       \override NoteHead #'style = #'vaticana.punctum.cavum
  51       es f
  52       \override NoteHead #'style = #'vaticana.lpes
  53       g as
  54       \override NoteHead #'style = #'vaticana.upes
  55       bes as
  56       \override NoteHead #'style = #'vaticana.vupes
  57       g f
  58       \override NoteHead #'style = #'vaticana.linea.punctum
  59       \once \override Staff.BarLine #'bar-size = #2.0 \bar "|"
  60       % \break % 3 (8*1)
  61
  62       es d
  63       \override NoteHead #'style = #'vaticana.epiphonus
  64       c d
  65       \override NoteHead #'style = #'vaticana.cephalicus
  66       es f
  67
  68       \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
  69       \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
  70       \override Staff.Custos #'style = #'medicaea
  71       \override NoteHead #'style = #'medicaea.punctum
  72       \clef "medicaea-fa2"
  73       ces des
  74       \bar "|"
  75       % \break % 4 (8*1)
  76
  77       e! f! ges
  78       \clef "medicaea-do2"
  79       \override NoteHead #'style = #'medicaea.inclinatum
  80       a! b! ces'
  81       \override NoteHead #'style = #'medicaea.virga
  82       b! a!
  83       \bar "|"
  84       % \break % 5 (8*1)
  85
  86       ges fes
  87       \clef "medicaea-fa1"
  88       \override NoteHead #'style = #'medicaea.rvirga
  89       e des ces
  90
  91       \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  92       \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  93       \override Staff.Custos #'style = #'hufnagel
  94       \override NoteHead #'style = #'hufnagel.punctum
  95       \clef "hufnagel-fa2"
  96       ces des es
  97       \bar "|"
  98       % \break % 6 (8*1)
  99
 100       fes ges
 101       \clef "hufnagel-do2"
 102       \override NoteHead #'style = #'hufnagel.lpes
 103       as! bes! ces'
 104       \override NoteHead #'style = #'hufnagel.virga
 105       bes! as!
 106       \bar "|"
 107       % \break % 7 (8*1)
 108
 109       ges! fes!
 110       \clef "hufnagel-do-fa"
 111       \override NoteHead #'style = #'hufnagel.punctum
 112       es! des ces des! es! fes!
 113       \bar "||"
 114       % \break % 8 (8*1)
 115
 116       s32*1
 117       % \break % 12 (32*1)
 118     }
 119   >>
 120 >>
 121
 122 lowerStaff = \new MensuralStaff = "lowerStaff" <<
 123   \context MensuralVoice <<
 124     \transpose c c {
 125
 126       \key a \major
 127       cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
 128       \set Staff.forceClef = ##t
 129       \clef "neomensural-c2"
 130       cis1
 131       \bar "|"
 132       % \break % 2 (16*1)
 133
 134       \[ g\breve dis''\longa \]
 135       b\breve \[ a\longa d\longa \]
 136       \clef "petrucci-c2"
 137       % \break % 4 (16*1)
 138
 139       fis1 ces1
 140       \clef "petrucci-c2"
 141       r\longa
 142       \set Staff.forceClef = ##t
 143       \clef "mensural-c2"
 144       r\breve
 145       \bar "|"
 146       % \break % 5 (8*1)
 147
 148       r2
 149       \clef "mensural-g"
 150       r4 r8 r16 r16
 151       \override NoteHead #'style = #'mensural
 152       \override Rest #'style = #'mensural
 153       \clef "petrucci-f"
 154       c8 b, c16 b, c32 b, c64 b, c64 b,
 155       d8 e d16 e d32 e d64 e d64 e
 156       r\longa
 157       \set Staff.forceClef = ##t
 158       \clef "petrucci-f"
 159       r\breve
 160       \bar "|"
 161       % \break % 6 (8*1)
 162
 163       r\breve
 164       \clef "mensural-f"
 165       r2 r4 r8 r16 r16
 166
 167       \set Staff.forceClef = ##t
 168       \clef "mensural-f"
 169       e\breve f g a1
 170       \clef "mensural-g"
 171       % \break % 7 (8*1)
 172
 173       \[ bes'!\longa a'!\longa c''!\longa \]
 174       e'1 d' c' d' \bar "|"
 175       \bar "|"
 176       % \break % 9 (16*1)
 177
 178       bes'!\longa fis'!1 as'!1 ges'!\longa % lig
 179       \set Staff.forceClef = ##t
 180       \clef "mensural-g"
 181       e'2 d' c' \bar "|"
 182       % \break % 11 (16*1)
 183
 184       \set Staff.forceClef = ##t
 185       \clef "petrucci-g"
 186       c'2 d' e' f'
 187       \clef "petrucci-g"
 188       g' as'! bes'! cis''!
 189       bes'! as'! gis'! fis'!
 190       \set Staff.forceClef = ##t
 191       \clef "mensural-g"
 192       es'! des'! cis'!1 \bar "||"
 193       % \break % 12 (8*1)
 194     }
 195   >>
 196 >>
 197
 198 \paper {
 199   line-thickness = #(/ staff-space 5.0)
 200 }
 201
 202 \score {
 203   <<
 204     \upperStaff
 205     \lowerStaff
 206   >>
 207   \layout {
 208     indent = 0.0
 209     line-width = 17.25\cm
 210     \context {
 211       \Score
 212       timing = ##f
 213     }
 214     \context {
 215       \MensuralVoice
 216       \override NoteHead #'style = #'neomensural
 217       \override Rest #'style = #'neomensural
 218       \override Stem #'flag-style = #'mensural
 219       \override Stem #'thickness = #1.0
 220     }
 221     \context {
 222       \MensuralStaff
 223       \revert  BarLine #'transparent
 224       \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
 225       clefGlyph = #"clefs.petrucci.c2"
 226     }
 227     \context {
 228       \VaticanaStaff
 229       \revert  BarLine #'transparent
 230       \override StaffSymbol #'thickness = #2.0
 231       \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
 232       \override Custos #'neutral-position = #4
 233     }
 234   }
 235 }