From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 24 Jan 2007 02:14:42 +0000 (+0100)
Subject: Glissando fixes.
X-Git-Tag: release/2.11.14-1~45
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ae06421e0635c0d23deeab0941766dd0233eafd;p=lilypond.git

Glissando fixes.
---

diff --git a/input/regression/glissando-broken.ly b/input/regression/glissando-broken.ly
index 095b29a1e6..b72e1c777a 100644
--- a/input/regression/glissando-broken.ly
+++ b/input/regression/glissando-broken.ly
@@ -3,6 +3,8 @@
   
 }
 \version "2.11.13"
+\paper {
+  ragged-right = ##T }
 
 \relative c'' {
   \override Glissando #'breakable = ##t 
diff --git a/input/regression/tablature-slide.ly b/input/regression/tablature-slide.ly
new file mode 100644
index 0000000000..204c4c3ee5
--- /dev/null
+++ b/input/regression/tablature-slide.ly
@@ -0,0 +1,16 @@
+\header
+{
+
+  texidoc = "Tab supports slides."
+}
+
+\version "2.11.10"
+\paper {
+  ragged-right = ##T
+}
+
+
+\relative \new TabVoice
+{
+  <c g'\harmonic> d\2\glissando e\2
+}
diff --git a/lily/glissando-engraver.cc b/lily/glissando-engraver.cc
index ff91888677..3a88ef888c 100644
--- a/lily/glissando-engraver.cc
+++ b/lily/glissando-engraver.cc
@@ -17,10 +17,6 @@
 
 #include "translator.icc"
 
-/**
-   Create line-spanner grobs for glissandi lines that connect note
-   heads.
-*/
 class Glissando_engraver : public Engraver
 {
 public:
@@ -109,7 +105,11 @@ Glissando_engraver::finalize ()
 
 ADD_ACKNOWLEDGER (Glissando_engraver, rhythmic_head);
 ADD_TRANSLATOR (Glissando_engraver,
-		/* doc */ "Engrave a glissandi",
-		/* create */ "Glissando",
-		/* read */ "followVoice",
+		/* doc */ "",
+		/* create */
+		"Glissando",
+
+		/* read */
+		"",
+
 		/* write */ "");
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index ea7d9c5db0..61a27df664 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -681,6 +681,11 @@ AncientRemoveEmptyStaffContext = \context {
   %% No accidental in tablature !
   \remove Accidental_engraver
 
+  \override Glissando #'extra-dy = #0.75
+  \override Glissando #'bound-details #'right = #`((attach-dir . ,LEFT)
+						   (padding . 0.3))
+  \override Glissando #'bound-details #'left = #`((attach-dir . ,RIGHT)
+						   (padding . 0.3))
   \override Glissando #'extra-dy = #0.75
   \override Glissando #'gap = #0.2
 }