Documentation/snippets/creating-text-spanners.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.0"
   8
   9 \header {
  10   lsrtags = "expressive-marks, text, tweaks-and-overrides"
  11
  12 %% Translation of GIT committish: 59caa3adce63114ca7972d18f95d4aadc528ec3d
  13   texidoces = "
  14 Las instrucciones @code{\\startTextSpan} y @code{\\stopTextSpan}
  15 permiten la creación de elementos de extensión textuales tan
  16 fácilmente como indicaciones de pedal u
  17 octavaciones. Sobreescribimos ciertas propiedades del objeto
  18 @code{TextSpanner} para modificar su salida.
  19
  20 "
  21   doctitlees = "Crear elementos de extensión textuales"
  22
  23   texidoc = "
  24 The @code{\\startTextSpan} and @code{\\stopTextSpan} commands allow the
  25 creation of text spanners as easily as pedal indications or
  26 octavations. Override some properties of the @code{TextSpanner} object
  27 to modify its output.
  28
  29 "
  30   doctitle = "Creating text spanners"
  31 } % begin verbatim
  32
  33 \paper { ragged-right = ##f }
  34
  35 \relative c'' {
  36   \override TextSpanner #'(bound-details left text) = #"bla"
  37   \override TextSpanner #'(bound-details right text) = #"blu"
  38   a4 \startTextSpan
  39   b4 c
  40   a4 \stopTextSpan
  41
  42   \override TextSpanner #'style = #'line
  43   \once \override TextSpanner
  44     #'(bound-details left stencil-align-dir-y) = #CENTER
  45   a4 \startTextSpan
  46   b4 c
  47   a4 \stopTextSpan
  48
  49   \override TextSpanner #'style = #'dashed-line
  50   \override TextSpanner #'(bound-details left text) =
  51     \markup { \draw-line #'(0 . 1) }
  52   \override TextSpanner #'(bound-details right text) =
  53     \markup { \draw-line #'(0 . -2) }
  54   \once \override TextSpanner #'(bound-details right padding) = #-2
  55
  56   a4 \startTextSpan
  57   b4 c
  58   a4 \stopTextSpan
  59
  60   \set Staff.middleCPosition = #-13
  61   \override TextSpanner #'dash-period = #10
  62   \override TextSpanner #'dash-fraction = #0.5
  63   \override TextSpanner #'thickness = #10
  64   a4 \startTextSpan
  65   b4 c
  66   a4 \stopTextSpan
  67 }
  68