Documentation/snippets/ancient-fonts.ly

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