Documentation/snippets/dynamics-custom-text-spanner-postfix.ly

   1 % Do not edit this file; it is automatically
   2 % generated from Documentation/snippets/new
   3 % This file is in the public domain.
   4 %% Note: this file works from version 2.13.8
   5 \version "2.13.18"
   6
   7 \header {
   8 %% Translation of GIT committish: d2119a9e5e951c6ae850322f41444ac98d1ed492
   9
  10   texidoces = "
  11 Funciones postfijas para la creación de objetos de extensión de texto
  12 personalizados.  Los objetos de extensión deben comenzar en la primera
  13 nota del compás.  Hay que utilizar -\mycresc, en caso contrario el
  14 comienzo del eobjeto de extensión se asignará a la nota siguiente.
  15
  16 "
  17
  18   doctitlees = "Objeto personalizado de extensión de texto de matices dinámicos postfijo"
  19
  20   lsrtags = "expressive-marks, tweaks-and-overrides"
  21   texidoc = "Postfix functions for custom crescendo text spanners.  The spanners
  22 should start on the first note of the measure.  One has to use -\mycresc,
  23 otherwise the spanner start will rather be assigned to the next note.
  24 "
  25   doctitle = "Dynamics custom text spanner postfix"
  26 } % begin verbatim
  27
  28
  29 % Two functions for (de)crescendo spanners where you can explicitly give the
  30 % spanner text.
  31 mycresc =
  32 #(define-music-function (parser location mymarkup) (markup?)
  33    (make-music 'CrescendoEvent
  34                'span-direction START
  35                'span-type 'text
  36                'span-text mymarkup))
  37 mydecresc =
  38 #(define-music-function (parser location mymarkup) (markup?)
  39    (make-music 'DecrescendoEvent
  40                'span-direction START
  41                'span-type 'text
  42                'span-text mymarkup))
  43
  44 \relative c' {
  45   c4-\mycresc "custom cresc" c4 c4 c4 |
  46   c4 c4 c4 c4 |
  47   c4-\mydecresc "custom decresc" c4 c4 c4 |
  48   c4 c4\! c4 c4
  49 }
  50
  51
  52