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 (all?) of the symbols that are included in
  14 LilyPond's support for 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 = #alteration-medicaea-glyph-name-alist
  61       \override Staff.Accidental.glyph-name-alist = #alteration-medicaea-glyph-name-alist
  62       \override Staff.Custos.style = #'medicaea
  63       \override NoteHead.style = #'medicaea.punctum
  64       \clef "medicaea-fa2"
  65       ces des
  66       \bar "|"
  67
  68       e! f! ges
  69       \clef "medicaea-do2"
  70       \override NoteHead.style = #'medicaea.inclinatum
  71       a! b! ces'
  72       \override NoteHead.style = #'medicaea.virga
  73       b! a!
  74       \bar "|"
  75
  76       ges fes
  77       \clef "medicaea-fa1"
  78       \override NoteHead.style = #'medicaea.rvirga
  79       e des ces
  80
  81       \override Staff.KeySignature.glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  82       \override Staff.Accidental.glyph-name-alist = #alteration-hufnagel-glyph-name-alist
  83       \override Staff.Custos.style = #'hufnagel
  84       \override NoteHead.style = #'hufnagel.punctum
  85       \clef "hufnagel-fa2"
  86       ces des es
  87       \bar "|"
  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
  97       ges! fes!
  98       \clef "hufnagel-do-fa"
  99       \override NoteHead.style = #'hufnagel.punctum
 100       es! des ces des! es! fes!
 101       \bar "||"
 102
 103       s32*1
 104     }
 105   >>
 106 >>
 107
 108 lowerStaff = \new MensuralStaff = "lowerStaff" <<
 109   \context MensuralVoice <<
 110     \transpose c c {
 111
 112       \key a \major
 113       cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
 114       \set Staff.forceClef = ##t
 115       \clef "neomensural-c2"
 116       cis1
 117       \bar "|"
 118
 119       \[ g\breve dis''\longa \]
 120       b\breve \[ a\longa d\longa \]
 121       \clef "petrucci-c2"
 122
 123       fis1 ces1
 124       \clef "petrucci-c2"
 125       r\longa
 126       \set Staff.forceClef = ##t
 127       \clef "mensural-c2"
 128       r\breve
 129       \bar "|"
 130
 131       r2
 132       \clef "mensural-g"
 133       r4 r8 r16 r16
 134       \override NoteHead.style = #'mensural
 135       \override Rest.style = #'mensural
 136       \clef "petrucci-f"
 137       c8 b, c16 b, c32 b, c64 b, c64 b,
 138       d8 e d16 e d32 e d64 e d64 e
 139       r\longa
 140       \set Staff.forceClef = ##t
 141       \clef "petrucci-f"
 142       r\breve
 143       \bar "|"
 144
 145       r\breve
 146       \clef "mensural-f"
 147       r2 r4 r8 r16 r16
 148
 149       \set Staff.forceClef = ##t
 150       \clef "mensural-f"
 151       e\breve f g a1
 152       \clef "mensural-g"
 153
 154       \[ bes'!\longa a'!\longa c''!\longa \]
 155       e'1 d' c' d' \bar "|"
 156       \bar "|"
 157
 158       bes'!\longa fis'!1 as'!1 ges'!\longa % lig
 159       \set Staff.forceClef = ##t
 160       \clef "mensural-g"
 161       e'2 d' c' \bar "|"
 162
 163       \set Staff.forceClef = ##t
 164       \clef "petrucci-g"
 165       c'2 d' e' f'
 166       \clef "petrucci-g"
 167       g' as'! bes'! cis''!
 168       bes'! as'! gis'! fis'!
 169       \set Staff.forceClef = ##t
 170       \clef "mensural-g"
 171       es'! des'! cis'!1 \bar "||"
 172     }
 173   >>
 174 >>
 175
 176 \paper {
 177   line-thickness = #(/ staff-space 5.0)
 178 }
 179
 180 \score {
 181   <<
 182     \upperStaff
 183     \lowerStaff
 184   >>
 185   \layout {
 186     indent = 0.0
 187     line-width = 17.25\cm
 188     \context {
 189       \Score
 190       timing = ##f
 191     }
 192     \context {
 193       \MensuralVoice
 194       \override NoteHead.style = #'neomensural
 195       \override Rest.style = #'neomensural
 196       \override Flag.style = #'mensural
 197       \override Stem.thickness = #1.0
 198     }
 199     \context {
 200       \MensuralStaff
 201       \revert  BarLine.transparent
 202       \override KeySignature.glyph-name-alist = #alteration-mensural-glyph-name-alist
 203       clefGlyph = #"clefs.petrucci.c2"
 204     }
 205     \context {
 206       \VaticanaStaff
 207       \revert  BarLine.transparent
 208       \override StaffSymbol.thickness = #2.0
 209       \override KeySignature.glyph-name-alist = #alteration-vaticana-glyph-name-alist
 210       \override Custos.neutral-position = #4
 211     }
 212   }
 213 }