\version "2.12.3"
#(set-global-staff-size 20)
#(define cadb #f)
\header
{
  title="Eleanor Plunkett"
  subtitle=""
  composer="Turlough O'Carolan"
  instrument = "Accordéon diatonique G/C"
  tagline = "Slow air"
  poet="Gilles Servat"
}
%%Definition d'une fonction scheme 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
)
))
%%Pour le système corgeron il suffit de rajouter un underline au markup
t =
#(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 notes \grace seront plus petites
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
p =
#(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 notes \grace seront plus petites
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} }#}
))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diato =
{
  %	\clef treble
  \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
	 \p "3'" c'8 \p "5" d'4 %1

	\repeat volta 2 {
	  \p "4'" e'4 \p "4'" e' \grace {\gp "5" d'16[ \gp "4'" e'] } \p "5" d'8 \p "3'" c' %2
	  \p "3'" c'4 \p "3'" c'4 \p "6'" c''8 \p "7" b'  % 3
	  \t "7" a'4 \t "7" a' \grace { \gt "7" a'16[ \gt "6'" b'] } \t "7" a'8 \p "6" g'  % 4
	  \p "4'" e'4 \p "4'" e' \grace {\gp "5" d'16[ \gp "4'" e'] } \p "5" d'8 \p "3'" c'  % 5
	  \t "3" a4 \t "3'" d' \t "3'" d'8 \t "5" e'  % 6
  	}
  	\alternative {
	  {
	   	\p "5" d'2 \p "3'" c'8 \p "5" d'  % 7 1 alternative
	  }
	  {
	   	\p "5" d'2 \p "6'" c''8 \p "8" d''  % 7 2 alternative
	  }
  	}
	\repeat volta 2 {
	  \p "7'" e''4 \p "8" d''8 \p "6'" c'' \t "7" a' \p "6" g' %8
	  \t "7" a'2 \t "7" a'8 \t "6'" b'  % 9
	  \t "8" c''4 \t "8" c'' \t "9" e''  % 10
 	  \t "7'" d''4 \t "9" e''8 \t "7'" d'' \t "8" c'' \t "6'" b'  % 11
	  \t "8" c''4 \t "7'" d''8 \t "8" c'' \t "6'" b' \t "7" a'  % 12
	  \p "5'"g'4 \p "4'" e' \p "5'" g'  % 13
	  \t "7" a'4 \t "8" c'' \t "4" c'  % 14
	  \p "4'" e'4 \p "4'" e' \p "5" d'8 \p "3'" c'  % 15
	  \t "3" a4 \t "3'" d' \t "3'" d'8 \t "5" e'  % 16
  	}
	\alternative {
	  {
		\p "5" d'2 \p "6'"c''8 \p "8" d'' %17
	  }
	  {
		\p "5" d'2. %17
	  }
  	}
  }
%%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
		  \clef "G"
		  \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 Stem #'length = #0
		  \override Stem #'flag = #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
      	}
      	<<
         %% \set Staff.instrumentName = \markup{\column{P T}})
       	  %%\set Staff.instrumentName = \markup{\column{C G}}
       	  \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 { %propriété des Lyrics
       	   	   \Lyrics
          	  	  %\override LyricText #'font-name = #"Garamond"
          	  	  \override LyricText #'font-size =  #-1.0
      	  	  	}
  	  	}
}

  \markup { \small
  	\line{Les couplets 1-4 et 6 se chantent sur la première partie uniquement}
  }
  \markup { \small
  	  \fill-line {
      	\hspace #1
      	\column {
		  \line{Dans la lumière imprécise}
		  \line{Là bas vous étiez assise}
		  \line{Vous si belle et lui si beau.}
		  \null
		  \line{Dans la lumière incertaine}
		  \line{Votre main de porcelaine}
		  \line{Vous échangiez des anneaux.}
		  \null
	  	  \line{À la sortie de l’église}
	  	  \line{Dans la lumière indécise}
	  	  \line{S’envola un oiseau blanc.}
		  \null
		  \line{Dans le brouillard de la berge}
		  \line{J’ai chanté jusqu’à l’auberge}
		  \line{Et j’ai bu des vins troublants.}
  	  	}
      	\hspace #2
      	\column {
 		  \line{Au dessert vous êtes sortie}
		  \line{Et vous m’avez souri}
		  \line{Dans le parfum flou}
		  \line{Des tilleuls en fleur}
		  \line{Et vous m’avez donné}
		  \line{Un morceau}
		  \line{De votre voile.}
		  \null
		  \line{Je vous aime}
		  \line{Je vous aime}
		  \line{Je vous aime}
		  \line{Je vous aime}
		  \line{Je vous aime}
		  \line{Et j’en mourrai}
   	  	}
      	\hspace #1
  	  }
  	}
  	\score {
  	  \unfoldRepeats{
	  	\new StaffGroup
	  	<<
		  \new Staff{
	  	  	\set Staff.midiInstrument="acoustic guitar (nylon)"
  	  	  	\diato }
		  	\new Staff{
	  	  	  \set Staff.midiInstrument="acoustic bass"
		      \accords }
		  	>>
  		  }
  		  \midi{}
 	  	}