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