%%=> http://lists.gnu.org/archive/html/lilypond-user-fr/2011-10/msg00124.html
\version "2.16.2"
#(set-global-staff-size 20)
#(define cadb #f)
\pointAndClickOff

\header {
  title="Eleanor Plunkett"
  composer="Turlough O'Carolan"
  instrument = "Accordéon diatonique G/C"
  tagline = "Slow air"
  poet="Gilles Servat"
}

%% Définition d'une fonction pour le calcul du rang du diato
#(define rang
  (lambda 
    (touch)
    (define l 
      (string-length touch)) ;longueur de la string
    (define rng 0) ;par défaut rang 1
    (if (string=? "'" (substring touch (- l 1) l))
    (if (string=? "'" (substring touch (- l 2) (- l 1)))
        (+ rng 2)
        (+ rng 1))
    rng)))

%% Définition d'une fonction pour retourner uniquement le numéro de la touche
%% sans les évetuelles apostrophes.
#(define touchnum
  (lambda 
    (touch)
    (if (< 1 (string-length touch))
    (if (char-numeric? (string-ref touch 1))
      (substring touch 0 2)
      (substring touch 0 1))
    touch)))

%% Définition d'une fonction pour noter les notes tirées
%% Pour le système corgeron il suffit de rajouter un underline au markup
ti =
#(define-music-function (parser location button) (string?)
  (if cadb
    (make-music 'TextScriptEvent 'direction 0
      'text ( markup #:fontsize -1.5 button))
    (make-music 'TextScriptEvent 'direction (rang button)
      'text ( markup #:underline #:fontsize -1.5 (touchnum button)))))

%% Les ornements seront plus petits
gt =
#(define-music-function (parser location button) (string?)
  (if cadb
    (make-music 'TextScriptEvent 'direction 0
      'text ( markup #:super #:fontsize -2.0 button))
    ( make-music 'TextScriptEvent 'direction (rang button)
      'text ( markup #:super #:underline #:fontsize -2.0 (touchnum button)))))


%% Définition d'une fonction pour les notes poussées
po =
#(define-music-function (parser location button) (string?)
  (if cadb
    (make-music 'TextScriptEvent 'direction 1
      'text ( markup #:fontsize -1.5 button))
    ( make-music 'TextScriptEvent 'direction (rang button)
      'text ( markup #:fontsize -1.5 (substring button 0 1)))))

%% Les ornements seront plus petits
gp =
#(define-music-function (parser location button) (string?)
  (if cadb
    (make-music 'TextScriptEvent 'direction 1
      'text ( markup #:super #:fontsize -2.0 button))
    ( make-music 'TextScriptEvent 'direction (rang button)
      'text ( markup #:super #:fontsize -2.0 (substring button 0 1)))))

%% Change la notation de la ligne de tablature en fonction du système de notation
tabtete =
#(define-music-function (parser location)()
  (if cadb
    #{ \set Staff.instrumentName = \markup\column { P T } #}
    #{ \set Staff.instrumentName = \markup\column { C G } #} ))

%% La portée
diato = {
  \clef G
  \key c \major
  \tempo 4 = 90
  \time 3/4
  \override TupletBracket #'bracket-visibility = ##t %% Force l'affichage des crochets de nolets
  \tupletUp %% Crochets de nolets au-dessus
  \partial 8*3
  c'8-1 d'4-3
  \repeat volta 2 {
    e'4-2 e' \grace { d'16[ e'] } d'8 c'  % 2
    c'4 c'4 c''8-4 b'-5  % 3
    a'4-5 a'-5 \grace { a'16[ b'] } a'8 g'-4  % 4
    e'4-3 e' \grace { d'16[ e'] } d'8-4 c'-2  % 5
    a4-1 d'-2 d'8-1 e'-1  % 6
  }
  \alternative {
    {
      d'2-2 c'8-1 d'-3  % 7
    }
    {
      d'2-2 c''8-4 d''-3  % 7
    }
  }
  \repeat volta 2 {
    e''4-2 d''8-3 c''-1 a'-2 g'-1  % 8
    a'2-2 a'8-3 b'-2  % 9
    c''4-3 c''-3 e''-4  % 10
    d''4 e''8 d'' c'' b'  % 11
    c''4 d''8 c'' b' a'^3  % 12
    g'4^2 e'^1 g'^2  % 13
    a'4-4 c''-5 c'-2  % 14
    e'4-3 e' d'8 c'  % 15
    a4-1 d'-2 d'8-1 e'  % 16
  }
  \alternative {
	{
	  d'2-2 c''8 d'' %17
	}
	{
	  d'2.-2 %17
	}
  }

  \bar "|."
}

%% La tablature
tab = {
  \autoBeamOff
  \partial 8*3
    \po #"3'" c'8 \po #"5" d'4 %1
    \repeat volta 2 {
    \po #"4'" e'4 \po #"4'" e' \grace {\gp #"5" d'16[ \gp #"4'" e'] } \po #"5" d'8 \po #"3'" c' %2
    \po #"3'" c'4 \po #"3'" c'4 \po #"6'" c''8 \po #"7" b'  % 3
    \ti #"7" a'4 \ti #"7" a' \grace { \gt #"7" a'16[ \gt #"6'" b'] } \ti #"7" a'8 \po #"6" g'  % 4
    \po #"4'" e'4 \po #"4'" e' \grace {\gp #"5" d'16[ \gp #"4'" e'] } \po #"5" d'8 \po #"3'" c'  % 5
    \ti #"3" a4 \ti #"3'" d' \ti #"3'" d'8 \ti #"5" e'  % 6
  }
  \alternative {
    {
      \po #"5" d'2 \po #"3'" c'8 \po #"5" d'  % 7 1 alternative
    }
    {
      \po #"5" d'2 \po #"6'" c''8 \po #"8" d''  % 7 2 alternative
    }
  }
  \repeat volta 2 {
    \po #"7'" e''4 \po #"8" d''8 \po #"6'" c'' \ti #"7" a' \po #"6" g' %8
    \ti #"7" a'2 \ti #"7" a'8 \ti #"6'" b'  % 9
    \ti #"8" c''4 \ti #"8" c'' \ti #"9" e''  % 10
    \ti #"7'" d''4 \ti #"9" e''8 \ti #"7'" d'' \ti #"8" c'' \ti #"6'" b'  % 11
    \ti #"8" c''4 \ti #"7'" d''8 \ti #"8" c'' \ti #"6'" b' \ti #"7" a'  % 12
    \po #"5'"g'4 \po #"4'" e' \po #"5'" g'  % 13
    \ti #"7" a'4 \ti #"8" c'' \ti #"4" c'  % 14
    \po #"4'" e'4 \po #"4'" e' \po #"5" d'8 \po #"3'" c'  % 15
    \ti #"3" a4 \ti #"3'" d' \ti #"3'" d'8 \ti #"5" e'  % 16
  }
  \alternative {
    {
      \po #"5" d'2 \po #"6'"c''8 \po #"8" d'' %17
    }
    {
      \po #"5" d'2. %17
    }
  }
}

%% La ligne d'accords
accords = \chordmode {
  \partial 8*3
  r8*3
  \repeat volta 2 {
    c4*3 c f c d
  }
  \alternative {
    { g }
    { g }
  }
  \repeat volta 2 {
    c a:m f g f c f c a:m
  }
  \alternative {
    { g }
    { g }
  }
}

%% Les basses du diato
basses = {
  \partial 8*3
  r8 r4
  \repeat volta 2 {
    c^"C" c^"c" c^"c"
    c^"C" c^"c" c^"c"
    f^"F" f^"f" f^"f"
    c^"C" c^"c" c^"c"
    d^"D" d^"d" d^"d"
  }
  \alternative {
    { g^"G" g^"g" g^"g" }
    { g^"G" g^"g" g^"g" }
  }
  \repeat volta 2 {
    c^"C" c^"c" c^"c"
    a^"A" a^"a" a^"a"
    f^"F" f^"f" f^"f"
    g^"G" g^"g" g^"g"
    f^"F" f^"f" f^"f"
    c^"C" c^"c" c^"c"
    f^"F" f^"f" f^"f"
    c^"C" c^"c" c^"c"
    a^"A" a^"a" a^"a"
  }
  \alternative {
  { g^"G" g^"g" g^"g" }
  { g^"G" g^"g" g^"g" }
  }
}

paroles = \lyricmode {
  Dans la lu -- mière im -- pré -- ci -- se
  Là  bas vous é -- tiez as -- si -- se
  Vous si belle et lui si beau 
}

\score {
  \new StaffGroup <<
    \new ChordNames {
      \accords
    }
    \new Staff {
      %\override Staff.BarLine #'thick-thickness = #2
      %\override Staff.BarLine #'hair-thickness = #0.3
      \set Staff.instrumentName="Diato"
      \context Voice = "melodie" { \diato }
      \addlyrics{ \paroles }
    }
    \new DrumStaff \with {
      \override StaffSymbol #'line-count = #1
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
      \override NoteHead #'stencil = #point-stencil
      \override Dots #'stencil = #point-stencil
      \override Stem #'length = #0
      \override Flag #'stencil = #point-stencil
      \override Stem #'stencil = #point-stencil
      \override Beam #'stencil = #point-stencil
      %\override Staff #'stencil = #point-stencil
      \override StaffSymbol #'staff-space = #1
      \override LedgerLineSpanner #'stencil = #point-stencil
    }
    <<
       \tabtete
       \tab
    >>
    \new DrumStaff \with {
      \override StaffSymbol #'line-count = #1
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
      \override NoteHead #'font-size = #-4
      \override StaffSymbol #'staff-space = #(magstep -4)
    }
    <<
      \set Staff.instrumentName = "Ba"
      \basses
    >>
  >>
  \layout {
    \context {
      \Lyrics
      %\override LyricText #'font-name = #"Garamond"
      \override LyricText #'font-size =  #-1.0
    }
  }
}

\markuplist {
  \tiny\italic "Les couplets 1-4 et 6 se chantent sur la première partie uniquement"
  \vspace #.5
  \small
  \fill-line {
    \hspace #1
    \column {
      "Dans la lumière imprécise"
      "Là  bas vous étiez assise"
      "Vous si belle et lui si beau."
      \null
      "Dans la lumière incertaine"
      "Votre main de porcelaine"
      "Vous échangiez des anneaux."
      \null
      "Ã la sortie de l'église"
      "Dans la lumière indécise"
      "S'envola un oiseau blanc."
      \null
      "Dans le brouillard de la berge"
      "J'ai chanté jusqu'à  l'auberge"
      "Et j'ai bu des vins troublants."
    }
    \hspace #2
    \column {
      "Au dessert vous êtes sortie"
      "Et vous m'avez souri"
      "Dans le parfum flou"
      "Des tilleuls en fleur"
      "Et vous m'avez donné"
      "Un morceau"
      "De votre voile."
      \null
      "Je vous aime"
      "Je vous aime"
      "Je vous aime"
      "Je vous aime"
      "Je vous aime"
      "Et j'en mourrai"
    }
  \hspace #1
  }
}

%% Midi
\score {
  \unfoldRepeats {
    \new StaffGroup <<
      \new Staff {
        \set Staff.midiInstrument="acoustic guitar (nylon)"
        \diato 
      }
      \new Staff {
        \set Staff.midiInstrument="acoustic bass"
        \accords
      }
    >>
  }
  \midi{}
}