\version "2.12.3"
#(set-global-staff-size 20)
\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 pour noter les notes tirées
%%Pour le système corgeron il suffit de rajouter un underline au markup
t =
#(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:fontsize -1.5 button)
))
%%Les notes \grace seront plus petites
gt =
#(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:super #:fontsize -2.0 button)
))


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

%%Les notes \grace seront plus petites
gp =
#(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 1
'text ( markup #:super #:fontsize -2.0 button)
))

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}}
       	  \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{}
 	  	}