[Patch:] tablature support for text spanners in full notation

[Marc Hohl]

Hello all,

here is a small patch that provides proper support for text spanners
in combination with \tabFullNotation.

Greetings,
Marc



From 9ca52bd5be89a5e03b7a4c930154081c1c84f9d5 Mon Sep 17 00:00:00 2001
From: Marc Hohl <address@hidden>
Date: Fri, 1 Oct 2010 08:36:45 +0200
Subject: [PATCH] tablature: support for text spanners in full notation

---
 input/regression/tablature-full-notation.ly |   25 ++++++++++++++-----------
 ly/property-init.ly                         |    1 +
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/input/regression/tablature-full-notation.ly 
b/input/regression/tablature-full-notation.ly
index 74c088e..903c04e 100644
--- a/input/regression/tablature-full-notation.ly
+++ b/input/regression/tablature-full-notation.ly
@@ -1,4 +1,4 @@
-\version "2.13.8"
+\version "2.13.36"
 
 \header{ texidoc = "As default, tablature staves show only the fret numbers, 
because
                     in most situations, they are combined with normal staves.
@@ -9,19 +9,22 @@
 tabstuff = {
   \time 3/4
   \compressFullBarRests
-  c4^"test" d( e)
-  f4\f g a^\fermata
-  R2.*3
-  c8\<\( c16 c ~ c2\!
-  c'2.\)
+  c4^"test" d( e) |
+  f4\f g a^\fermata |
+  R2.*3 |
+  c8\<\( c16 c ~ c2\! |
+  c'2.\) |
   \mark \default
-  R2.
+  R2. |
   \ottava #1
-  r4 d'4 r8 e
+  r4 d'4 r8 e |
   \ottava #0
-  \times 3/4 { b,4 c \glissando d\5 \glissando c }
-  c4. d-_( e\varcoda)
-  ->f g~ a\prall g\thumb e-.
+  \times 3/4 { b,4 c \glissando d\5 \glissando c } |
+  c4. d-_( |
+  e\varcoda-> )
+  \override TextSpanner #'(bound-details left text) = "rit." f\startTextSpan |
+  g ~ a\prall |
+  g\thumb e-.\stopTextSpan
   \bar "|."
 }
 
diff --git a/ly/property-init.ly b/ly/property-init.ly
index 1091662..d3325dd 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -447,6 +447,7 @@ tabFullNotation = {
   % markups etc.
   \revert TabVoice.Script #'stencil
   \revert TabVoice.TextScript #'stencil
+  \revert TabVoice.TextSpanner #'stencil
   \revert TabStaff.Arpeggio #'stencil
   \revert TabStaff.NoteColumn #'ignore-collision
 }
-- 
1.5.4.3