%% Generated by lilypond-book.py
%% Options: [indent=0\mm,line-width=160\mm]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************



\paper {
  indent = 0\mm
  line-width = 160\mm
  force-assignment = #""
  line-width = #(- line-width (* mm  3.000000))
}

\layout {
  
}





% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "ancient-fonts.ly"
\sourcefileline 0
%% DO NOT EDIT this file manually; it is automatically
%% generated from LSR http://lsr.dsi.unimi.it
%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
\version "2.14.0"

\header {
  lsrtags = "ancient-notation"

%% Translation of GIT committish: 91eeed36c877fe625d957437d22081721c8c6345
  texidoces = "
Aquí se muestran muchos de (¿o quizá todos?) los símbolos que
están contemplados por la capacidad de LilyPond para la música
antigua.
"

  doctitlees = "Tipografía de música antigua"


%% Translation of GIT committish: 9a65042d49324f2e3dff18c4b0858def81232eea
  texidocfr ="
Voici comment graver la plupart, sinon tous les symboles que
LilyPond prend en charge en matière de musique ancienne.

"
  doctitlefr = "Gravure de musique ancienne"

  texidoc = "
Shown here are many (all?) of the symbols that are included in
LilyPond's support for ancient notation.



"
  doctitle = "Ancient fonts"
} % begin verbatim

upperStaff = \new VaticanaStaff = "upperStaff" <<
  \context VaticanaVoice <<
    \transpose c c {

      \override NoteHead #'style = #'vaticana.punctum
      \key es \major
      \clef "vaticana-fa2"
      c1 des e f ges

      \override NoteHead #'style = #'vaticana.inclinatum
      a! b ces'
      \bar "|"
      % \break % 1 (8*1)

      \override NoteHead #'style = #'vaticana.quilisma
      b! des'! ges! fes!
      \breathe
      \clef "vaticana-fa1"
      \override NoteHead #'style = #'vaticana.plica
      es d
      \override NoteHead #'style = #'vaticana.reverse.plica
      c d
      \bar "|"
      % \break %2 (8*1)

      \override NoteHead #'style = #'vaticana.punctum.cavum
      es f
      \override NoteHead #'style = #'vaticana.lpes
      g as
      \override NoteHead #'style = #'vaticana.upes
      bes as
      \override NoteHead #'style = #'vaticana.vupes
      g f
      \override NoteHead #'style = #'vaticana.linea.punctum
      \once \override Staff.BarLine #'bar-extent = #'(-1 . 1) \bar "|"
      % \break % 3 (8*1)

      es d
      \override NoteHead #'style = #'vaticana.epiphonus
      c d
      \override NoteHead #'style = #'vaticana.cephalicus
      es f

      \override Staff.KeySignature #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
      \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
      \override Staff.Custos #'style = #'medicaea
      \override NoteHead #'style = #'medicaea.punctum
      \clef "medicaea-fa2"
      ces des
      \bar "|"
      % \break % 4 (8*1)

      e! f! ges
      \clef "medicaea-do2"
      \override NoteHead #'style = #'medicaea.inclinatum
      a! b! ces'
      \override NoteHead #'style = #'medicaea.virga
      b! a!
      \bar "|"
      % \break % 5 (8*1)

      ges fes
      \clef "medicaea-fa1"
      \override NoteHead #'style = #'medicaea.rvirga
      e des ces

      \override Staff.KeySignature #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
      \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
      \override Staff.Custos #'style = #'hufnagel
      \override NoteHead #'style = #'hufnagel.punctum
      \clef "hufnagel-fa2"
      ces des es
      \bar "|"
      % \break % 6 (8*1)

      fes ges
      \clef "hufnagel-do2"
      \override NoteHead #'style = #'hufnagel.lpes
      as! bes! ces'
      \override NoteHead #'style = #'hufnagel.virga
      bes! as!
      \bar "|"
      % \break % 7 (8*1)

      ges! fes!
      \clef "hufnagel-do-fa"
      \override NoteHead #'style = #'hufnagel.punctum
      es! des ces des! es! fes!
      \bar "||"
      % \break % 8 (8*1)

      s32*1
      % \break % 12 (32*1)
    }
  >>
>>

lowerStaff = \new MensuralStaff = "lowerStaff" <<
  \context MensuralVoice <<
    \transpose c c {

      \key a \major
      cis'1 d'\breve gis'\breve e'\breve \[ e'\longa fis'\longa \]
      \set Staff.forceClef = ##t
      \clef "neomensural-c2"
      cis1
      \bar "|"
      % \break % 2 (16*1)

      \[ g\breve dis''\longa \]
      b\breve \[ a\longa d\longa \]
      \clef "petrucci-c2"
      % \break % 4 (16*1)

      fis1 ces1
      \clef "petrucci-c2"
      r\longa
      \set Staff.forceClef = ##t
      \clef "mensural-c2"
      r\breve
      \bar "|"
      % \break % 5 (8*1)

      r2
      \clef "mensural-g"
      r4 r8 r16 r16
      \override NoteHead #'style = #'mensural
      \override Rest #'style = #'mensural
      \clef "petrucci-f"
      c8 b, c16 b, c32 b, c64 b, c64 b,
      d8 e d16 e d32 e d64 e d64 e
      r\longa
      \set Staff.forceClef = ##t
      \clef "petrucci-f"
      r\breve
      \bar "|"
      % \break % 6 (8*1)

      r\breve
      \clef "mensural-f"
      r2 r4 r8 r16 r16

      \set Staff.forceClef = ##t
      \clef "mensural-f"
      e\breve f g a1
      \clef "mensural-g"
      % \break % 7 (8*1)

      \[ bes'!\longa a'!\longa c''!\longa \]
      e'1 d' c' d' \bar "|"
      \bar "|"
      % \break % 9 (16*1)

      bes'!\longa fis'!1 as'!1 ges'!\longa % lig
      \set Staff.forceClef = ##t
      \clef "mensural-g"
      e'2 d' c' \bar "|"
      % \break % 11 (16*1)

      \set Staff.forceClef = ##t
      \clef "petrucci-g"
      c'2 d' e' f'
      \clef "petrucci-g"
      g' as'! bes'! cis''!
      bes'! as'! gis'! fis'!
      \set Staff.forceClef = ##t
      \clef "mensural-g"
      es'! des'! cis'!1 \bar "||"
      % \break % 12 (8*1)
    }
  >>
>>

\paper {
  line-thickness = #(/ staff-space 5.0)
}

\score {
  <<
    \upperStaff
    \lowerStaff
  >>
  \layout {
    indent = 0.0
    line-width = 17.25\cm
    \context {
      \Score
      timing = ##f
    }
    \context {
      \MensuralVoice
      \override NoteHead #'style = #'neomensural
      \override Rest #'style = #'neomensural
      \override Stem #'flag-style = #'mensural
      \override Stem #'thickness = #1.0
    }
    \context {
      \MensuralStaff
      \revert  BarLine #'transparent
      \override KeySignature #'glyph-name-alist = #alteration-mensural-glyph-name-alist
      clefGlyph = #"clefs.petrucci.c2"
    }
    \context {
      \VaticanaStaff
      \revert  BarLine #'transparent
      \override StaffSymbol #'thickness = #2.0
      \override KeySignature #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
      \override Custos #'neutral-position = #4
    }
  }
}




% ****************************************************************
% end ly snippet
% ****************************************************************
