]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/center-text-below-hairpin-dynamics.ly
Run scripts/auxiliar/update-with-convert-ly.sh
[lilypond.git] / Documentation / snippets / center-text-below-hairpin-dynamics.ly
index 3ac8cb9950e727e1448385d31a1e6c2a4720eb76..4f2eb369260787696decd0d6ee9f53c3e4c1ea79 100644 (file)
@@ -4,20 +4,10 @@
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.14.0"
+\version "2.16.0"
 
 \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))
 #})