Imported Upstream version 2.14.2

[lilypond.git] / Documentation / snippets / string-number-extender-lines.ly

diff --git a/Documentation/snippets/string-number-extender-lines.ly b/Documentation/snippets/string-number-extender-lines.ly
new file mode 100644 (file)
index 0000000..16397b3
--- /dev/null
+++ b/Documentation/snippets/string-number-extender-lines.ly
@@ -0,0 +1,40 @@
+%% DO NOT EDIT this file manually; it is automatically
+%% generated from LSR http://lsr.dsi.unimi.it
+%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
+%% and then run scripts/auxiliar/makelsr.py
+%%
+%% This file is in the public domain.
+\version "2.14.0"
+
+\header {
+  lsrtags = "editorial-annotations, text, fretted-strings, tweaks-and-overrides"
+
+  texidoc = "
+Make an extender line for string number indications, showing that a
+series of notes is supposed to be played all on the same string.
+
+"
+  doctitle = "String number extender lines"
+} % begin verbatim
+
+stringNumberSpanner =
+#(define-music-function (parser location StringNumber) (string?)
+  #{
+    \override TextSpanner #'style = #'solid
+    \override TextSpanner #'font-size = #-5
+    \override TextSpanner #'(bound-details left stencil-align-dir-y) = #CENTER
+    \override TextSpanner #'(bound-details left text) = \markup { \circle \number $StringNumber }
+  #})
+
+
+\relative c {
+  \clef "treble_8"
+  \stringNumberSpanner "5"
+  \textSpannerDown
+  a8\startTextSpan
+  b c d e f\stopTextSpan
+  \stringNumberSpanner "4"
+  g\startTextSpan a
+  bes4 a g2\stopTextSpan
+}
+