X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fancient-fonts.ly;h=c455b21a32deb253b3ba0c91c0061be728c4a995;hb=70ff1f9ec002479b4b34e6e470c0e479d6060a57;hp=7a00c8687a98b6c834cc712f9c800ce76d72ef9c;hpb=14d5c89619002bb41a3ca9d29de11b2b5705cb9b;p=lilypond.git

diff --git a/Documentation/snippets/ancient-fonts.ly b/Documentation/snippets/ancient-fonts.ly
index 7a00c8687a..c455b21a32 100644
--- a/Documentation/snippets/ancient-fonts.ly
+++ b/Documentation/snippets/ancient-fonts.ly
@@ -15,6 +15,7 @@ antigua.
 
   doctitlees = "Tipografía de música antigua"
 
+
 %% Translation of GIT committish: 499a511d4166feaada31114e097f86b5e0c56421
   texidocfr ="
 Voici comment graver la plupart, sinon tous les symboles que
@@ -36,17 +37,17 @@ LilyPond's support for ancient notation.
 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
@@ -57,7 +58,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       c d
       \bar "|"
       % \break %2 (8*1)
-
+      
       \override NoteHead #'style = #'vaticana.punctum.cavum
       es f
       \override NoteHead #'style = #'vaticana.lpes
@@ -69,13 +70,13 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       \override NoteHead #'style = #'vaticana.linea.punctum
       \once \override Staff.BarLine #'bar-size = #2.0 \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
@@ -84,7 +85,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       ces des
       \bar "|"
       % \break % 4 (8*1)
-
+      
       e! f! ges
       \clef "medicaea-do2"
       \override NoteHead #'style = #'medicaea.inclinatum
@@ -93,12 +94,12 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       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
@@ -107,7 +108,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       ces des es
       \bar "|"
       % \break % 6 (8*1)
-
+      
       fes ges
       \clef "hufnagel-do2"
       \override NoteHead #'style = #'hufnagel.lpes
@@ -116,14 +117,14 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       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)
     }
@@ -133,7 +134,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
 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
@@ -141,12 +142,12 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       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
@@ -155,7 +156,7 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       r\breve
       \bar "|"
       % \break % 5 (8*1)
-
+      
       r2
       \clef "mensural-g"
       r4 r8 r16 r16
@@ -170,28 +171,28 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       r\breve
       \bar "|"
       % \break % 6 (8*1)
-
-      r\breve
+      
+      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'