\version "2.20.0"

\header {
   title = "Mistresse Nichols Almand"
  composer = \markup{\smallCaps{John Dowland}}
}

common = {
  \once \override Staff.TimeSignature #'stencil = #ly:text-interface::print
  \override Staff.TimeSignature #'text = \markup \musicglyph "timesig.C22"
  \time 4/2
  \repeat volta 2 {s1*4}
  \repeat volta 2 {s1*8}
}

first = \relative c' {
  <c e g>4 e8 f <c e g>4 <b d g> g'4. g8 g4. a8 <b d,>4 c <b g> g4. g4 a8 <b d,>2
  g8 a b g a g <a f> b \stemDown c2 \stemUp <b d,> c4 b8 a b4 a4. g8 e [fis] g4 g
  s2 a8 g f4 f8 g a b r \stemDown c b a \stemUp g a g f e d e f r c' b4 <c e, c>2 
}

second = \relative c' {
  s1 <c e>2 d4 e s4 e8 f s4 <c e> d e s2
  s1*2 e2 g4 d8 e f4 c d2 c'4. b8 s1. d,4. r8 s2 d4. f8
}

third = \relative c {
  c2 c4 g c2 b4 c g a g c <b g'> c <g g'>2
  e'4 g f d r8 e d c g'2 a e4 f d a' g2 r4 c, f4. e8 d2 a' b c4 a g2 <g c,>
}

all = \relative c' {
  <g' e c c,>4 e8 f <g e c c,>4 <g d b g,> <<{g4. g8}\\{\override Stem.stencil = ##f <e c c,>2}>> <g d b,>4 <e c,>8 a
  <b d, g,,>4 <c e, a,,>8 f, <b g g,,>4 <g e c c,> <d g, b,>8 g <e c,> a <b d, g, g,>2
  <g e,>8 a <b g,> g <a f,> g <a f d,> b c e,, d c <g' d' b'>2
  <a e' c'>4 b'8 a <b g e,>4 <a d, f,>8 e <f d,> g <e c a> fis <g d g,>4 g
  c c,,8 b'' <a f,> g f e, <f' d d,> \once \set TabStaff.minimumFret = #5 \once \set TabStaff.restrainOpenStrings = ##t g a b  \once \set TabStaff.minimumFret = #4 \once \set TabStaff.restrainOpenStrings = ##t a, c' b a
  <g d b> a g f <e c> d \once \set TabStaff.minimumFret = #2 \once \set TabStaff.restrainOpenStrings = ##t <e a,> f  \once \set TabStaff.minimumFret = #2 \once \set TabStaff.restrainOpenStrings = ##t d c' b f <c' e, c g c,>2
}

rythm = {
  c4 c8 s c4 s c4. c8 c4 c8 s c4 c8 s c4 s c8 s4. c2
  c8 s4. s1 c2 c4 c8 s c4 c8 s s2 c4 s s c8 s s2 s1 s s2 c
}
\score {
<<
  \new PianoStaff <<
    \new Staff { << \common {<<\first \\ \second>>} >>
    }
    \new Staff {
      \once \override Staff.TimeSignature #'stencil = #ly:text-interface::print
      \override Staff.TimeSignature #'text = \markup \musicglyph "timesig.C22"
      \clef bass \third
    }
  >>

  \new RhythmicStaff \with {
     \remove "Staff_symbol_engraver"
      \omit Clef                   	   
      \omit TimeSignature            
 %     fontSize = #-1
      \override VerticalAxisGroup #'staff-staff-spacing =
        #'((basic-distance . 4)
           (minimum-distance . 3)
           (padding . .5))
     \override NoteHead.style = #'petrucci
  }{
    \rythm
  }
  
  \new TabStaff \with {  
      tablatureFormat = #fret-letter-tablature-format 
      \override TabNoteHead.whiteout = ##f
      \override TabNoteHead.before-line-breaking =
       #(lambda (grob)
          (if (not (< (ly:grob-property grob 'Y-offset) -4))
              (ly:grob-set-property! grob 'Y-offset
                (+  (ly:grob-property grob 'Y-offset) 0.6))))  
     \omit Clef
%      \override TimeSignature.style = #'single-digit
      \override TimeSignature.X-offset = #-2
      \override TimeSignature.font-size = #3
      \revert TimeSignature.stencil
      \override TabNoteHead.font-name = "LeRoy"
%     fontSize = #1
    }
  {
    \override Beam.concaveness = #10000
    <<\common \all>>
  }
>>
  \layout {
    indent = 0
    \context {
      \TabStaff
 
 stringTunings = \stringTuning <g, c f a d' g'>
      fretLabels = #'("a" "b" "c" "d" "e" "f" "g" "h" "i" "k")
    }
}
}