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