X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fdynamics-custom-text-spanner-postfix.ly;h=15c3d2510a47465dcf09775c3c2079e2cc94ec29;hb=31059902570b531abd4cb21fc78ee2b5cc9395e7;hp=cb2a63e0380cea6ab7ad9f465cc194581e4151c0;hpb=2055f35c47a045a50a01ff4dba8524322cfc3b48;p=lilypond.git diff --git a/input/regression/dynamics-custom-text-spanner-postfix.ly b/input/regression/dynamics-custom-text-spanner-postfix.ly index cb2a63e038..15c3d2510a 100644 --- a/input/regression/dynamics-custom-text-spanner-postfix.ly +++ b/input/regression/dynamics-custom-text-spanner-postfix.ly @@ -1,4 +1,4 @@ -\version "2.14.0" +\version "2.19.22" \header { texidoc = "Postfix functions for custom crescendo text spanners. The spanners @@ -8,15 +8,15 @@ 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?) +mycresc = #(define-music-function (mymarkup) (string?) (make-music 'CrescendoEvent 'span-direction START 'span-type 'text 'span-text mymarkup)) -mydecresc = #(define-music-function (parser location mymarkup) (string?) +mydecresc = #(define-music-function (mymarkup) (string?) (make-music 'DecrescendoEvent 'span-direction START 'span-type 'text 'span-text mymarkup)) -\relative c' { - c4-\mycresc "custom cresc" c4 c4 c4 | +\relative { + c'4-\mycresc "custom cresc" c4 c4 c4 | c4 c4 c4 c4 | c4-\mydecresc "custom decresc" c4 c4 c4 | c4 c4\! c4 c4