Documentation/snippets/ancient-fonts.ly

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