input/tolsr/line-arrows.ly

   1 % contemporary
   2
   3 \header {
   4   texidoc = "Arrows can be applied to text-spanners and line-spanners (such as the Glissando)"
   5 }
   6
   7 \version "2.10.0"
   8
   9 \paper {
  10   ragged-right = ##t
  11 }
  12
  13 \relative c'' {
  14   \override TextSpanner #'bound-padding = #1.0
  15   \override TextSpanner #'dash-fraction = #'()
  16   \override TextSpanner #'bound-details #'right #'arrow = ##t
  17   \override TextSpanner #'bound-details #'left #'text = #"fof"
  18   \override TextSpanner #'bound-details #'right #'text = #"gag"
  19   \override TextSpanner #'bound-details #'right #'padding = #0.6
  20
  21   \override TextSpanner #'bound-details #'right #'stencil-align-dir-y = #CENTER
  22   \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
  23
  24   \override Glissando #'bound-details #'right #'arrow = ##t
  25   \override Glissando #'arrow-length = #0.5
  26   \override Glissando #'arrow-width = #0.25
  27
  28   a8\startTextSpan gis8 a4 b4\glissando
  29   b,4 | g' c\stopTextSpan c
  30 }