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