Update snippets from today's LSR with changed makelsr.py

[lilypond.git] / Documentation / snippets / ancient-fonts.ly

diff --git a/Documentation/snippets/ancient-fonts.ly b/Documentation/snippets/ancient-fonts.ly
index c455b21a32deb253b3ba0c91c0061be728c4a995..89a583e20c996d49c8be3239c74ae95e48c1fad5 100644 (file)
--- a/Documentation/snippets/ancient-fonts.ly
+++ b/Documentation/snippets/ancient-fonts.ly
@@ -1,53 +1,38 @@
-%% Do not edit this file; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+% DO NOT EDIT this file manually; it is automatically
+% generated from Documentation/snippets/new
+% Make any changes in Documentation/snippets/new/
+% and then run scripts/auxiliar/makelsr.py
+%
+% This file is in the public domain.
+%% Note: this file works from version 2.15.9
 %% This file is in the public domain.
-\version "2.13.4"
+\version "2.15.9"
 
 \header {
   lsrtags = "ancient-notation"
 
-%% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
-  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: 499a511d4166feaada31114e097f86b5e0c56421
-  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
@@ -58,7 +43,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
@@ -68,15 +53,15 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       \override NoteHead #'style = #'vaticana.vupes
       g f
       \override NoteHead #'style = #'vaticana.linea.punctum
-      \once \override Staff.BarLine #'bar-size = #2.0 \bar "|"
+      \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
@@ -85,7 +70,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       ces des
       \bar "|"
       % \break % 4 (8*1)
-      
+
       e! f! ges
       \clef "medicaea-do2"
       \override NoteHead #'style = #'medicaea.inclinatum
@@ -94,12 +79,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
@@ -108,7 +93,7 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
       ces des es
       \bar "|"
       % \break % 6 (8*1)
-      
+
       fes ges
       \clef "hufnagel-do2"
       \override NoteHead #'style = #'hufnagel.lpes
@@ -117,14 +102,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)
     }
@@ -134,7 +119,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
@@ -142,12 +127,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
@@ -156,7 +141,7 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       r\breve
       \bar "|"
       % \break % 5 (8*1)
-      
+
       r2
       \clef "mensural-g"
       r4 r8 r16 r16
@@ -171,28 +156,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'
@@ -227,7 +212,7 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
       \MensuralVoice
       \override NoteHead #'style = #'neomensural
       \override Rest #'style = #'neomensural
-      \override Stem #'flag-style = #'mensural
+      \override Flag #'style = #'mensural
       \override Stem #'thickness = #1.0
     }
     \context {
@@ -245,4 +230,3 @@ lowerStaff = \new MensuralStaff = "lowerStaff" <<
     }
   }
 }
-