\version "2.20.2"
%----------------------------------------

\header
{
  title = \markup {\column {"Bourrée des dindes"}}
  arranger = "Tablature diato Corgeron C/G"
  piece = "Bretagne"
}


t= \override FiguredBass.BassFigure.color = #darkred
p= \override FiguredBass.BassFigure.color = #darkblue
"g" = \override FiguredBass.BassFigureAlignment.padding = #2
"c" = \override FiguredBass.BassFigureAlignment.padding = #-2
tg={\t\g} pg={\p\g} tc={\t\c} pc={\p\c}

%---------------------------------------
global =
{
  \clef treble
  \time 2/4
  \tempo 4 = 120
  \key g \major
}

%----------------------------
LaVoix=
\relative c'
{\global
 \repeat volta 2{
   d4 e8 fis8
   g2
   a8. b16 c8 b8
   a8 g8 fis8 e8\break
   d4 e8 fis8 g2
   a8. b16 c8 b8 a2}\break
 \repeat volta 2{
   a8. b16 c8 b8 a8. b16 c8 b8
   a8 g8 fis8 e8 e4 d4\break
   a'8. b16 c8 b8 a8. b16 c8 b8
   a8 g8 fis8 a8 g2}
}


% ---------------------------
% \pg = poussé SOL, \pc = poussé DO, tg = tiré SOL, \tc = tiré DO
% \
TablatureDroite=
\figures {
  \pg <5>4 \tg <5>8 \tc <6>8
  \pg <6>2
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>8 \pg <6>8 \tg <6>8 \tg <5>8
  \pg <5>4 \tg <5>8 \tc <6>8 \pg <6>2
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>2
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>8 \pg <6>8 \tg <6>8 \tg <5>8
  \tg <5>4 \pg <5>4
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>8. \tc <6>16 \tg <8>8 \tc <6>8
  \tg <7>8 \pg <6>8 \tg <6>8 \tg <7>8
  \pg <6>2  
}


%-------------------------------
% la note = basse, r symbolise l'accord (une valse se noterait g4 r r d4 r r..)
TablatureGauche = \chords{
  g4 r g r 
  a r a r d r g r 
  a r d r
  a r a r a r d g
  a r a r d r g2
}
%---------------------------------------
%---------------------------------------
\score {
  \new StaffGroup <<   
    \new Staff{
      \clef "G"
      \context Voice = "melodie" { \LaVoix}
    }
    \new DrumStaff \with {
      \override StaffSymbol #'line-count = #0
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
    }
    <<
      \set Staff.instrumentName = \markup{\column{C G}}
      \TablatureDroite
    >>
    \new DrumStaff \with {
      \override StaffSymbol #'line-count = #0
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
    }    
    <<
      \set Staff.instrumentName = \markup{\column{MG}}
      \TablatureGauche
    >>
  >>
  \layout {
    \context {
      \FiguredBass
      \consists Staff_symbol_engraver
      \consists Bar_engraver
      \override StaffSymbol.line-count = 1
      \override StaffSymbol.line-positions =#'(-3)
      figuredBassFormatter =
      #(lambda (n ev ctx)
         (if (number? n)
             (number->string n)
             n))
      \override BassFigure.stencil =
      #(lambda (grob)
         (define (lists-equal a b)
           (let lp ((a a) (b b))
             (cond ((null? a) (null? b))
               ((null? b) #f)
               (else (and (= (car a) (car b))
                          (lp (cdr a) (cdr b)))))))
         (let* ((text (ly:grob-property grob 'text))
                (stencil (grob-interpret-markup
                          grob
                          (make-sans-markup text)))
                (color (ly:grob-property grob 'color)))
           (if (lists-equal color darkred)
               (circle-stencil stencil .1 .6)
               stencil)))
    }
    \context {
      \ChordNames
      \consists Staff_symbol_engraver
      \consists Bar_engraver
      \override StaffSymbol.line-count = 1
      \override StaffSymbol.line-positions =#'(2)
      noChordSymbol = \markup \bold "/"
      \override ChordName.stencil =
      #(lambda (grob)
         (let* ((cause (ly:grob-property grob 'cause))
                (props (ly:prob-immutable-properties cause))
                (rest? (memq 'rest-event (assoc-get 'class props)))
                (stencil (ly:text-interface::print grob))
                (th .25))
           (if rest?
               stencil
               (ly:stencil-translate-axis
                (ly:stencil-scale
                 (circle-stencil
                  (stencil-whiteout-box stencil 1 360)
                  th (- th))
                 (- 1 th) (- 1 th))
                (/ th 2) Y))))
    }
    \context {
      \StaffGroup
      \override StaffGrouper.staff-staff-spacing =
      #'((basic-distance . 3)
         (minimum-distance . 0)
         (padding . 0))
    }

  }
  \midi {}
}