Documentation/snippets/new/ancient-fonts.ly

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