Documentation/snippets/ancient-fonts.ly

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