X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fcenter-text-below-hairpin-dynamics.ly;h=ea94a55dceead836b58af35f4005cc4bde980897;hb=53da8b7d3773da804e79fd455d168efd9475d2f9;hp=3ac8cb9950e727e1448385d31a1e6c2a4720eb76;hpb=904b46b9fa8fc5c189087058cdf977383a4580d7;p=lilypond.git

diff --git a/Documentation/snippets/center-text-below-hairpin-dynamics.ly b/Documentation/snippets/center-text-below-hairpin-dynamics.ly
index 3ac8cb9950..ea94a55dce 100644
--- a/Documentation/snippets/center-text-below-hairpin-dynamics.ly
+++ b/Documentation/snippets/center-text-below-hairpin-dynamics.ly
@@ -4,20 +4,10 @@
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.14.0"
+\version "2.15.40"
 
 \header {
-  lsrtags = "expressive-marks, text"
-
-%% Translation of GIT committish: 615cbf212fdaf0b220b3330da417d0c3602494f2
-  texidoces = "
-Este ejemplo proporciona una función para tipografiar un regulador con
-texto por debajo, como @qq{molto} o @qq{poco}. El ejemplo ilustra
-también cómo modificar la manera en que se imprime normalmente un
-objeto, utilizando código de Scheme.
-
-"
-  doctitlees = "Centrar texto debajo de un regulador"
+  lsrtags = "expressive-marks, really-cool, scheme-language, text"
 
   texidoc = "
 This example provides a function to typeset a hairpin (de)crescendo
@@ -29,6 +19,7 @@ normally printed, using some Scheme code.
   doctitle = "Center text below hairpin dynamics"
 } % begin verbatim
 
+
 hairpinWithCenteredText =
 #(define-music-function (parser location text) (markup?)
 #{
@@ -37,7 +28,7 @@ hairpinWithCenteredText =
      (ly:stencil-combine-at-edge
       (ly:stencil-aligned-to (ly:hairpin::print grob) X CENTER)
       Y DOWN
-      (ly:stencil-aligned-to (grob-interpret-markup grob $text) X CENTER))
+      (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
      X LEFT))
 #})