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