From bc0f2aef7b1c363788c724db9f55f893a5ba41bc Mon Sep 17 00:00:00 2001
From: James <james.lowe@datacore.com>
Date: Sat, 16 Jan 2010 22:34:31 +0000
Subject: [PATCH] Doc:Tab-example add whiteout in hidefretnumber var

updated version number
tidied up indentation
made spacing and line lengths consistent for each bar/variable
removed bar checks
removed unnecessary commented out lines
---
 Documentation/web/ly-examples/tab-example.ly | 90 +++++++++-----------
 1 file changed, 42 insertions(+), 48 deletions(-)

diff --git a/Documentation/web/ly-examples/tab-example.ly b/Documentation/web/ly-examples/tab-example.ly
index 158b35b609..2874c3456a 100644
--- a/Documentation/web/ly-examples/tab-example.ly
+++ b/Documentation/web/ly-examples/tab-example.ly
@@ -1,4 +1,4 @@
-\version "2.13.6"
+\version "2.13.11"
 
 #(set-global-staff-size 22.45)
 
@@ -14,12 +14,14 @@
          (- (ly:pitch-alteration right-pitch) (ly:pitch-alteration left-pitch))
          0 )))
 
-%% Hide fret number: useful to draw slide into/from a casual point of
-%% the fretboard.
-hideFretNumber = { \once \override TabNoteHead #'transparent = ##t
-                   \once \override NoteHead #'transparent = ##t
-                   \once \override Stem #'transparent = ##t
-                   \once \override NoteHead #'no-ledgers = ##t
+% Hide fret number: useful to draw slide into/from a casual point of
+% the fretboard.
+hideFretNumber = {
+  \once \override TabNoteHead #'transparent = ##t
+  \once \override TabNoteHead #'whiteout = ##f
+  \once \override NoteHead #'transparent = ##t
+  \once \override Stem #'transparent = ##t
+  \once \override NoteHead #'no-ledgers = ##t
 }
 
 \paper {
@@ -27,70 +29,62 @@ hideFretNumber = { \once \override TabNoteHead #'transparent = ##t
   line-width= #180
 }
 
-upper=  \relative c' {
+upper= \relative c' {
   \time 4/4
   \key e \major
   \set Staff.midiInstrument = #"acoustic guitar (steel)"
   \set fingeringOrientations = #'(left)
 
-  %\override Staff.Glissando #'extra-offset = #' (0.0 . 1.0)
-  \partial 4. \acciaccatura c16 \glissando cis8  e4
-  < cis-1 g'-3 >2 s8 \grace a16 ( \glissando <b-2>8\3 )  <d-1> ( b ) |
-  <e-3>\2 ( <d-1> b ) \grace <ais-2>16 ( \glissando  a8  g ) s4. |
-  s4.  < d'\3 g\2 >8  < gis,\4  d'\3 fis\2 >2\arpeggio ~ |
-
-  < gis\4  d'\3 fis\2 >2  < b'\2\harmonic e\harmonic >2\fermata |
-
+  \partial 4. \acciaccatura c16 \glissando cis8 e4
+  < cis-1 g'-3 >2 s8 \grace a16 ( \glissando < b-2 >8\3 ) < d-1 > ( b )
+  < e-3 >\2 ( <d-1> b ) \grace < ais-2 >16 ( \glissando a8 g ) s4.
+  s4. < d'\3 g\2 >8 < gis,\4  d'\3 fis\2 >2\arpeggio ~
+  < gis\4 d'\3 fis\2 >2 < b'\2\harmonic e\harmonic >2\fermata
 }
 
-lower=  \relative c {
+lower= \relative c {
   \set fingeringOrientations = #'(left)
 
-  \partial 4. s4. |
-  s4  e,4  s2 |
-  s2 s8 <e'-3>4. ~ |
-  e4  \hideFretNumber \grace { b8 \glissando s4 }  <e-2>4\5  e,2 ~ |
-
-  e2  < e'\6\harmonic > |
+  \partial 4. s4.
+  s4 e,4 s2
+  s2 s8 < e'-3 >4. ~
+  e4 \hideFretNumber \grace { b8 \glissando s4 } < e-2 >4\5 e,2 ~
+  e2 < e'\6\harmonic >
 }
 
 \score {
   \new StaffGroup <<
     \new Staff = "guitar" <<
-      \context Voice = "upper guitar" { \clef "G_8" \voiceOne
-                                        \override Glissando #'gap = #0.5
-                                        \override Glissando #'extra-offset = #'(-0.5 . 0)
-                                        \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
-                                        \override Glissando #'minimum-length = #4
-                                        \override Glissando #'extra-dy = #glissando::calc-extra-dy
-                                        \upper }
-      \context Voice = "lower guitar" { \clef "G_8" \voiceTwo
-                                        \override  Glissando #'bound-details #'right #'padding = #1
-                                        \override  Glissando #'bound-details #'left #'padding = #0.2
-                                        \lower }
+      \context Voice = "upper guitar" {
+        \clef "G_8" \voiceOne
+        \override Glissando #'gap = #0.5
+        \override Glissando #'extra-offset = #'(-0.5 . 0)
+        \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
+        \override Glissando #'minimum-length = #4
+        \override Glissando #'extra-dy = #glissando::calc-extra-dy
+        \upper
+      }
+      \context Voice = "lower guitar" {
+        \clef "G_8" \voiceTwo
+        \override Glissando #'bound-details #'right #'padding = #1
+        \override Glissando #'bound-details #'left #'padding = #0.2
+        \lower
+      }
     >>
     \new TabStaff = "tab" <<
       \context TabVoice = "upper tab" { \clef "moderntab" \voiceOne \upper }
       \context TabVoice = "lower tab" { \clef "moderntab" \voiceTwo \lower }
     >>
   >>
- %{
- \midi {
-    \context {
-      \Score tempoWholesPerMinute = #(ly:make-moment 120 4)
-    }
-  }
- %}
 
- \layout {
+  \layout {
     \context {
-    \Staff
-    \override StringNumber #'transparent = ##t
+      \Staff
+      \override StringNumber #'transparent = ##t
     }
-
     \context {
-    \TabStaff
-    \revert Arpeggio #'stencil
+      \TabStaff
+      \revert Arpeggio #'stencil
     }
   }
-}
\ No newline at end of file
+}
-- 
2.39.2