\version"2.16.2"
\pointAndClickOff %% trop souvent oublié... ( et à mettre quand tout est propre).
#(set-global-staff-size 20)  % pour modifier la taille de la portée %<= ET de tous les objets 

\paper {
  page-count = 1
  between-system-padding = #8 %% Utilité ?
  % ragged-last-bottom = ##f
  % ragged-bottom = ##f
}

\header {  
  title = \markup\bold\fontsize #1 "COCAINE"
  %subtitle = "(Guitare Basse)"
  composer = "J.J. Cale" %"Eric CLAPTON"
  arranger = \markup { 
    "arr. Eric Clapton sur l'album " 
    \italic "Slowhand" "(1977)"
  }
  %copyright = " J.G-B (00/00/0000)"  % indiquer la date
  %% date automatique :
  tagline = \markup\concat {
    "©" \hspace #.3  
    #(strftime "%Y" (localtime (current-time)))
    % date complète : #(strftime "%y%m%d" (localtime (current-time)))
    \hspace #.5 "by J.G-B" 
  }
}
 
symbols = \transpose e e, {
  \time 4/4  
  \tempo 4 = 105 
  \once\override Score.RehearsalMark #'X-offset = #14
  \mark\markup "INTRO"
  % première portée    
  e4  r4 r4 \xNote { d8 } d16 (e) |
  d2 a,4\3 d |
  e4 r4 b, e8 r8|
  d2 a,4\3 d4 |
  e4 r4 b, e8 r8 |
  \break
  % deuxième portée
  d2 a,4\3 d8 r8 |
  e4 r4 b,4 e8 r8 |
  d2 a,4\3 d4 |
  \bar"||"   
  \once\override Score.RehearsalMark #'self-alignment-X = #LEFT
  \mark\markup "COUPLET"
  e4 r4 b,4 e8 b,8 |
  d2 a,4\3 d4 |
  \break
  s1*5
  \break
  d2 a,4\3 d8 e~ |
  e4~ e8 d~ d4~ d8 c8~ 
  c2 b,8 r r4
  \bar "||"
  e2 r4 e8 d16 e |
  d2 a,4\3 d |
  \break
  s
} 
    
\score {
  \new StaffGroup <<
    \new Staff { 
      \clef "F_8" 
      \symbols 
    }
    \new TabStaff { 
      \clef moderntab 
      \symbols
    }
  >>
  \layout { 
    indent = 20 
    \context {
      \StaffGroup
      instrumentName = \markup\center-column { "Guitare" "Basse" }
      systemStartDelimiterHierarchy = #'(SystemStartBrace)
    }
    \context {
      \Staff
      \override StringNumber #'stencil = ##f 
      \override TimeSignature #'style = #'()      
    }
    \context {
      \TabStaff
      stringTunings = #bass-tuning
      minimumFret = #5
      restrainOpenStrings = ##t
      \override Slur #'transparent = ##t
      \override Glissando #'style = #'none %% supprime les glissandi
    }
  } 
}