Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / Documentation / snippets / fingering-symbols-for-wind-instruments.ly

diff --git a/Documentation/snippets/fingering-symbols-for-wind-instruments.ly b/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
index 31135a7b419ea476d862ddc265935cd21c41282b..4274440b67496c381847e2c9740a7930824c4fe5 100644 (file)
--- a/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
+++ b/Documentation/snippets/fingering-symbols-for-wind-instruments.ly
@@ -1,30 +1,13 @@
 %% DO NOT EDIT this file manually; it is automatically
-%% generated from LSR http://lsr.dsi.unimi.it
+%% generated from LSR http://lsr.di.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"
+\version "2.18.0"
 
 \header {
-  lsrtags = "winds"
-
-%% Translation of GIT committish: 615cbf212fdaf0b220b3330da417d0c3602494f2
-  texidoces = "
-Se pueden conseguir símbolos especiales combinando glifos existentes,
-lo que es de utilidad para la notación de instrumentos de viento.
-
-"
-  doctitlees = "Símbolos de digitación para instrumentos de viento"
-
-%% Translation of GIT committish: 496c48f1f2e4d345ae3637b2c38ec748a55cda1d
-  texidocfr = "
-Des sumboles spécifiques peuvent être obtenus en combinant les glyphes
-disponibles, ce qui est tout à fait indiqué en matière d'instrument à vent.
-
-"
-  doctitlefr = "Symboles de doigtés pour instruments à vent"
-
+  lsrtags = "symbols-and-glyphs, winds"
 
   texidoc = "
 Special symbols can be achieved by combining existing glyphs, which is
@@ -35,24 +18,28 @@ useful for wind instruments.
 } % begin verbatim
 
 centermarkup = {
-  \once \override TextScript #'self-alignment-X = #CENTER
-  \once \override TextScript #'X-offset =#(ly:make-simple-closure
-    `(,+
-      ,(ly:make-simple-closure (list
-        ly:self-alignment-interface::centered-on-x-parent))
-      ,(ly:make-simple-closure (list
-        ly:self-alignment-interface::x-aligned-on-self))))
+  \once \override TextScript.self-alignment-X = #CENTER
+  \once \override TextScript.X-offset =#(lambda (g)
+  (+ (ly:self-alignment-interface::centered-on-x-parent g)
+     (ly:self-alignment-interface::x-aligned-on-self g)))
 }
-\score
-{\relative c'
-  {
+
+\score {
+  \relative c'{
     g\open
-    \once \override TextScript #'staff-padding = #-1.0 \centermarkup
-    g^\markup{\combine \musicglyph #"scripts.open" \musicglyph
-    #"scripts.tenuto"}
-    \centermarkup g^\markup{\combine \musicglyph #"scripts.open"
-    \musicglyph #"scripts.stopped"}
+    \once \override TextScript.staff-padding = #-1.0
+    \centermarkup
+    g^\markup {
+      \combine
+        \musicglyph #"scripts.open"
+        \musicglyph #"scripts.tenuto"
+    }
+    \centermarkup
+    g^\markup {
+      \combine
+        \musicglyph #"scripts.open"
+        \musicglyph #"scripts.stopped"
+    }
     g\stopped
   }
 }
-