Fix build for poor "Flag #'style" syntax change.

diff --git a/Documentation/snippets/ancient-fonts.ly b/Documentation/snippets/ancient-fonts.ly
index 6e84c4050af681dfac664800cd6c4fc00db57532..9dd34ccd176aa15ce4ed89b6d4db33665ef4524b 100644 (file)
--- a/Documentation/snippets/ancient-fonts.ly
+++ b/Documentation/snippets/ancient-fonts.ly
@@ -1,14 +1,14 @@
-%% 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
-%%
+% 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.15.7"
+\version "2.15.9"
 
 \header {
-  lsrtags = "ancient-notation"
-
 %% Translation of GIT committish: 70f5f30161f7b804a681cd080274bfcdc9f4fe8c
   texidoces = "
 Aquí se muestran muchos de (¿o quizá todos?) los símbolos que
@@ -27,12 +27,11 @@ LilyPond prend en charge en matière de musique ancienne.
 "
   doctitlefr = "Gravure de musique ancienne"
 
+  lsrtags = "ancient-notation"
+
   texidoc = "
 Shown here are many (all?) of the symbols that are included in
 LilyPond's support for ancient notation.
-
-
-
 "
   doctitle = "Ancient fonts"
 } % begin verbatim
@@ -130,7 +129,8 @@ upperStaff = \new VaticanaStaff = "upperStaff" <<
 
       s32*1
       % \break % 12 (32*1)
-    }
+    } % begin verbatim
+
   >>
 >>
 
@@ -230,7 +230,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 {

diff --git a/Documentation/snippets/new/ancient-fonts.ly b/Documentation/snippets/new/ancient-fonts.ly
new file mode 100644 (file)
index 0000000..c48cef3
--- /dev/null
+++ b/Documentation/snippets/new/ancient-fonts.ly
@@ -0,0 +1,225 @@
+%% This file is in the public domain.
+\version "2.15.9"
+
+\header {
+  lsrtags = "ancient-notation"
+
+  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 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
+    }
+  }
+}
+