]> git.donarmstrong.com Git - lilypond.git/commitdiff
Glissando fixes.
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Jan 2007 02:14:42 +0000 (03:14 +0100)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Wed, 24 Jan 2007 02:14:42 +0000 (03:14 +0100)
input/regression/glissando-broken.ly
input/regression/tablature-slide.ly [new file with mode: 0644]
lily/glissando-engraver.cc
ly/engraver-init.ly

index 095b29a1e65c799d9b794fdfe8271300b60ded85..b72e1c777a72cc7ad5fda34b53f7930431b4a026 100644 (file)
@@ -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 (file)
index 0000000..204c4c3
--- /dev/null
@@ -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
+}
index ff918886770bc2547fbaa16c6c83cee9e9c4cb59..3a88ef888cda5a8d30c3bd782e7f3fb0701f582b 100644 (file)
 
 #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 */ "");
index ea7d9c5db0ff0e239576e2767d2e394ec1cf600f..61a27df664f8d2fba720aa561e87f45f302326d2 100644 (file)
@@ -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
 }