From 9dc369ed783709313ac2f755a3bc3c2938451776 Mon Sep 17 00:00:00 2001
From: Federico Bruni <address@hidden>
Committer: Valentin Villenave <address@hidden>
Date: Wed, 13 Apr 2011 09:59:40 +0200
Subject: [PATCH] Doc: improve "Slides in Tablature" snippet

This replaces the \hideNotes trick with a new \hideFretNumber
override.
---
 Documentation/snippets/slides-in-tablature.ly |   55 ++++++++++++++----------
 1 files changed, 32 insertions(+), 23 deletions(-)

diff --git a/Documentation/snippets/slides-in-tablature.ly b/Documentation/snippets/slides-in-tablature.ly
index f8ed58d..98d1d5d 100644
--- a/Documentation/snippets/slides-in-tablature.ly
+++ b/Documentation/snippets/slides-in-tablature.ly
@@ -26,31 +26,40 @@ Slides can be typeset in both @code{Staff} and @code{TabStaff} contexts:
 } % begin verbatim
 
 
+hideFretNumber = {
+ \once \override TabNoteHead #'transparent = ##t
+ \once \override TabNoteHead #'whiteout = ##f
+ \once \override NoteHead #'transparent = ##t
+ \once \override NoteHead #'no-ledgers = ##t
+ \once \override Stem #'transparent = ##t
+ \once \override Accidental #'transparent = ##t
+ \once \override Glissando #'(bound-details left padding) = #0.3
+ %% This makes glissandos more visible by increasing their length.
+}
+
 slides = {
-  c'8\3(\glissando d'8\3)
-  c'8\3\glissando d'8\3
-  \hideNotes
-  \grace { g16\3\glissando }
-  \unHideNotes
-  c'4\3
-  \afterGrace d'4\3\glissando {
-  \stemDown \hideNotes
-  g16\3 }
-  \unHideNotes
+ c'8\3(\glissando d'8\3)
+ c'8\3\glissando d'8\3
+ \hideFretNumber
+ \grace { g16\3\glissando }
+ c'4\3
+ \afterGrace d'4\3\glissando {
+ \stemDown \hideFretNumber
+ g16\3 }
 }
 
 \score {
-  <<
-    \new Staff { \clef "treble_8" \slides }
-    \new TabStaff { \slides }
-  >>
-  \layout {
-    \context {
-      \Score
-      \override Glissando #'minimum-length = #4
-      \override Glissando #'springs-and-rods =
-                          #ly:spanner::set-spacing-rods
-      \override Glissando #'thickness = #2
-    }
-  }
+ <<
+   \new Staff { \clef "treble_8" \slides }
+   \new TabStaff { \slides }
+ >>
+ \layout {
+   \context {
+     \Score
+     \override Glissando #'minimum-length = #4
+     \override Glissando #'springs-and-rods =
+                         #ly:spanner::set-spacing-rods
+     \override Glissando #'thickness = #2
+   }
+ }
 }
-- 
1.7.4.2