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