Documentation/snippets/ancient-fonts.ly

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