#(set-default-paper-size "a4")

\version "2.11.58"

barre = #(define-music-function (parser location padding text shorten) (number? string? pair?) #{
  \once \override TextSpanner #'style = #'line
  \once \override TextSpanner #'font-shape = #'upright
  %draw a bracket edge on RHS
  \once \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -1) }
  \once \override TextSpanner #'padding = $padding
  \once \override TextSpanner #'bound-details #'left #'text = $text
  % set alignment of line with reference to left text
  \once \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
  \once \override TextSpanner #'bound-details #'left #'padding = #(car $shorten)
  \once \override TextSpanner #'bound-details #'right #'padding = #(cdr $shorten)
  % optional overrides to remove text and bracket edge at line breaks
  \once \override TextSpanner #'bound-details #'left-broken #'text = ##f
  \once \override TextSpanner #'bound-details #'right-broken #'text = ##f
#})

\header {
	composer = \markup \center-column { "Agustín Barrios Mangoré" \small "(1885-1944)" }
	title = "Prelude in C minor"
}

% Treble voice
#(define RH rightHandFinger)
up = \relative c' {
	\textSpannerUp
	\set fingeringOrientations = #'(left)
	\set strokeFingerOrientations = #'(right)
	\set stringNumberOrientations= #'(down)
	\set tupletSpannerDuration = #(ly:make-moment 1 4)
	\times 4/6 {
		<c-1-\RH #1 >16 <g'-0-\RH #2 > <aes'-4-\RH #4 >-> <ees-3-\RH #3 > <g-2-\RH #4 >-> <g,-0-\RH #2 >
		    <c,-\RH #1 > <g'-\RH #2 > <aes'-\RH #4 >-> <ees-\RH #3 > <g-\RH #4 >-> <g,-\RH #2 > | %1
		<b,-1>^\markup { \small {\italic { simile la main droit } } } <g'-0> <aes'-4>-> <d,-3> <g-2>-> <g,-0>    b, g' aes'-> d, g-> g, | %2
		<d-0> <g-0> <g'-3>-> <b,-0> <f'-1>-> <g,-0>    d g g'-> b, f'-> g, | %3
		<c,-1> <g'-2\4> <f'-4\2>-> <c-3\3> <ees-1\2>-> <g,-2\4>    c, g' f'-> c ees-> g, | %4
		<bes,-3> <g'-0> <f'-4>-> <c-2> <ees-1>-> <g,-0>    bes, g' f'-> c ees-> g, | %5
		<a,-0> <fis'-2> <ees'-3>-> <bes-4> <d-1>-> <fis,-2>    a, fis' ees'-> bes d-> fis, | %6
		\barre #0.0 "CIV" #'(0 . 0)
		<aes,-1> <fis'-2\4> <ees'-3\2>-> <c-4\3> <d-4>->\startTextSpan <fis,-1>    <aes,-1> <fis'-1> <ees'-1>-> <c-2>\stopTextSpan <d-1>-> <fis,-3> | %7
		<g,-1> <g'-3\4> <ees'-2\2>-> <c-4\3> <d-1\2>-> <g,-3\4>    g, g' ees'-> c d-> g, | %8
		<g,-1> <f'!-1> <ees'-2>-> <c-3> <d-1>-> <f,-1>    g, f' ees'-> c d-> f, | %9
		<g,-1> <ees'-4\5> <d'-1>-> <g,-2\4> <c-3\3>-> <ees,-4>    g, ees' d'-> g, c-> ees, | %10
		<g,-1> <d'-3> <c'-4>-> <f,-1> <bes-1>-> <d,-3>    g, d' c'-> f, bes-> d, | %11
		<g,-2> <c-3> <bes'-4>-> <ees,-1> <aes-1>-> <c,-3>    g c bes'-> ees, aes-> c, | %12
		<g-3> <b-2> <aes'-1>-> <d,-0> <g-0>-> <b,-2>    g b aes'-> d, g-> b, | %13
		<f-1> <d'-0> <d'-4>-> <g,-0> <b-0>-> <d,-0>    f, d' d'-> g, b-> d, | %14
		e, <g'-0> <g'-4>-> <bes,-3> <des-2>-> <g,-0>    e, <bes''-3> <aes'-4>-> <des,-2> <g-4>-> <bes,-3> | %15
		<f,-1> <aes'-1> <g'-4>-> <c,-1> <f-1>-> <aes,-1>    <f-3> aes g'-> c, f-> aes, | %16
		<ees-1> <aes-1> <aes'-4>-> <c,-1> <f-1>-> <aes,-1>    ees aes aes'-> c, f-> aes, | %17
		<d,-0> <f'-3\3> <ees'-4>-> <aes,-2\2> <c-1\1>-> <f,-3>    d, f' ees'-> aes, c-> f, | %18
	}
}

% Bass voice
down = \relative c' {
	c4 c | 		%1
	b b |		%2
	d d |		%3
	c c |		%4
	bes bes |	%5
	a a |		%6
	aes aes |	%7
	g g |		%8
	g g |		%9
	g g |		%10
	g g |		%11
	g g |		%12
	g g |		%13
	f f |		%14
	e e |		%15
	f f' |		%16
	e e |		%17
	d d |		%18
}

thescore = \score {
	<<
		\context Staff = guitar {
			\clef treble
			\key c \minor
			\time 2/4
			\tempo "Moderato"
			\override Staff.NoteCollision #'merge-differently-headed = ##t
			<<
				\context Voice = "1" { \voiceOne \up }
				\context Voice = "2" { \voiceTwo \down }
			>>
		}
	>>
}

\score {
	\thescore
}