\version "2.12.3"
#(set-global-staff-size 20)
#(define cadb #t)
\header
{
	title="Eleanor Plunkett"
	subtitle=""
	composer="Turlough O'Carolan (1675-1740)"
	arranger="Arr.: Pen beuz"
	instrument = "Accordéon diatonique G/C"
	meter = "Irish Song"
	poet=""
	
 tagline = \markup { \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7) \box \center-column {
	 \small \line { \hspace #5 Une partition du site \with-url #"http://www.breizh-partitions.fr" { \teeny www. \hspace #-1.0 Breizh-Partitions \hspace #-1.0 \teeny .fr gravée par Pen beuz à l’aide de  \with-url #"http://www.LilyPond.org" { \teeny www. \hspace #-1.0 LilyPond \hspace #-1.0 \teeny .org } \hspace #5 }}		 
	 \line { \small \line \italic { Sheet music from \with-url #"http://www.celticscores.com" { \teeny www. \hspace #-1.0 CelticScores \hspace #-1.0 \teeny .com engraved by Pen beuz using \with-url #"http://www.LilyPond.org" { \teeny www. \hspace #-1.0 LilyPond \hspace #-1.0 \teeny .org }} }}
	 \line { \teeny \line { Creative Commons Attribution-ShareAlike 3.0 • \hspace #-0.5 \with-url #"http://creativecommons.org/licenses/by-sa/3.0" http://creativecommons.org/licenses/by-sa/3.0 }
	} } }
}
%%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
		)
	)
)

%%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?)
(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 (substring button 0 1)))
))
%%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 #:underline #:super #:fontsize -2.0 (substring button 0 1)))
))
%%#(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?)
(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)))
))
%%#(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?)
(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)))
))
%%#(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"}
  	}
  }

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

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