X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fdynamics-custom-text-spanner-postfix.ly;h=7697c21663232913e8180d47483dce8bbfe11ed0;hb=8860a7700be8348848bba7972ad86ef46721c544;hp=af2cd3b97a53be9e564111fa3d6adfa4d054b910;hpb=b3f0c2f6c352a850f03dc44a947776199eb3fa0b;p=lilypond.git

diff --git a/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly b/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
index af2cd3b97a..7697c21663 100644
--- a/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
+++ b/Documentation/snippets/dynamics-custom-text-spanner-postfix.ly
@@ -1,10 +1,22 @@
 % Do not edit this file; it is automatically
 % generated from Documentation/snippets/new
 % This file is in the public domain.
-%% Note: this file works from version 2.13.4
-\version "2.13.4"
+%% Note: this file works from version 2.13.8
+\version "2.13.20"
 
 \header {
+%% Translation of GIT committish: e0aa246e0ed1a86dc41a99ab79bff822d3320aa7
+
+  texidoces = "
+Funciones postfijas para la creación de objetos de extensión de texto
+personalizados.  Los objetos de extensión deben comenzar en la primera
+nota del compás.  Hay que utilizar -\mycresc, en caso contrario el
+comienzo del eobjeto de extensión se asignará a la nota siguiente.
+
+"
+
+  doctitlees = "Objeto personalizado de extensión de texto de matices dinámicos postfijo"
+
   lsrtags = "expressive-marks, tweaks-and-overrides"
   texidoc = "Postfix functions for custom crescendo text spanners.  The spanners
 should start on the first note of the measure.  One has to use -\mycresc,
@@ -16,12 +28,18 @@ otherwise the spanner start will rather be assigned to the next note.
 
 % Two functions for (de)crescendo spanners where you can explicitly give the
 % spanner text.
-mycresc = #(define-music-function (parser location mymarkup) (string?)
-  (make-music 'CrescendoEvent 'span-direction START
-              'span-type 'text 'span-text mymarkup))
-mydecresc = #(define-music-function (parser location mymarkup) (string?)
-  (make-music 'DecrescendoEvent 'span-direction START
-              'span-type 'text 'span-text mymarkup))
+mycresc =
+#(define-music-function (parser location mymarkup) (markup?)
+   (make-music 'CrescendoEvent
+               'span-direction START
+               'span-type 'text
+               'span-text mymarkup))
+mydecresc =
+#(define-music-function (parser location mymarkup) (markup?)
+   (make-music 'DecrescendoEvent
+               'span-direction START
+               'span-type 'text
+               'span-text mymarkup))
 
 \relative c' {
   c4-\mycresc "custom cresc" c4 c4 c4 |