\version "2.20.0"
\pointAndClickOff
#(ly:set-option 'embed-source-code #t)

\include "common.ly"
\include "guitar.ly"

\header {
  title = "Choro da Saudade"
  composer = "Agustín Barrios"
  copyright = \copyright
  tagline = \tagline
}

globals = {
  \clef "treble_8"
  \key g \minor
  \time 2/4
  \set fingeringOrientations = #'(left)
  \tempo Largo 4 = 50
}

upper = \relative c {
  \globals

  \repeat volta 2 {
    <g-0>16 <d'-0> <bes'-2 ees-4> d, <bes'-2 d-3> d, d, d' |
    <a-1> <d-0> <c'-4 ees-3> d, <c'-4 d-2> d, d, d' |
  }

  <g,-0>8. <d'-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |
  \repeat volta 2 {
    \mark \markup { \musicglyph #"scripts.segno" }
    \repeat unfold 2 {
      <ees'-2>4 <cis-1>16( <d-2>) <fis-1> <a-4> |
      \pestanaSpan "III" <bes-4>8.\startTextSpan <g-1>16 <d-1> <bes-1> <g-3>( <d-0>)\stopTextSpan |
      \pestanaSpan "V" <c-1>\startTextSpan <d'-2> <fis-3>( <g-4>) <a-1> <bes-2> <c-4> a\stopTextSpan |
    }
    \alternative {
      {
        <d-4>4\fermata <c-4>16( <bes-2>) <a-1> <g\2-4> |
        <bes-2>4 <a-1>16( <bes-2>) <c-4> a |
        \pestanaSpan "I" <g-4>4\startTextSpan <f-1>16 <ees-4> <d-3> <c-1>\stopTextSpan |
        \pestanaSpan "III" <f-4>(\startTextSpan <d-1>) <bes-1> <g-1> <f-1>( <d-0>) <bes-1> <g-9>\stopTextSpan |
        <fis-2>8.\fermata <d'-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |
      }

      {
        <d''-4>4 \pestanaSpan "VII" <b-1>16\startTextSpan <g-2> <f-4> <d-1>\stopTextSpan |
        \pestanaSpan "V" <c-1>\startTextSpan <g-1> <ees-4> <c-1> <a-3>( <bes-4>) <c-1> <ees-4>\stopTextSpan |
        \pestanaSpan "III" <d-0>\startTextSpan <bes'-1> <d g-1>8 \appoggiatura { <d-1>16 <f-4> } <ees-2>16 <d-1> <c-3> <bes-1>\stopTextSpan |
        <a,-1>( <cis-4>) <e-1> <g-0> <d-0> <fis-3> <a-1> <d-2> \mark \markup { \musicglyph #"scripts.coda" } |
      }
    }
  }
  \alternative {
    { <g,-0> <d-0> g d bes'\tenuto( a) a g | }
    { <g-0> <bes-2 d-3>8 <bes d>16 <bes d> <bes ees-4>8 <bes d>16 | }
  }

  % part B
  r <c-4 d-2>8 <c d>16 r <bes-1 d-2>8 <bes d> 16 |
  r <a-1 d-2>8 <a d>16 <a d> <a cis-1>8 <a d>16 |
  r <b-0 g'-4>8 <b g'>16 r <c-1 g'-4>8 <c g'>16 |

  \pestanaSpan "III" r\startTextSpan <d-1 g-1>8 <d g>16 <d g> <f-4 g-1>8 <e-3 g-1>16 |
  r <ees-2 g-1>8 <ees g>16 r <ees g>8 <ees g>16\stopTextSpan |
  \pestanaSpan "II" r\startTextSpan <c-4 ees-3 fis-1>8 <c ees fis>16 <c ees fis> <c ees g-2>8\stopTextSpan \pestanaSpan "III" <bes-1 d-1 bes'-4>16\startTextSpan |
  r <c-3 d-1 a'-4>8 <c d a'>16 r <c-3 dis-2 a'-4>8 <c dis a'>16\stopTextSpan |

  r <g-2 cis-3 bes'-4>8 <g cis bes'>16 r <g cis bes'>8 <g cis bes'>16 |
  r <d'-2 g-3 bes-1>8 <d g bes>16 <d g bes> <d g c-4>8 <d g bes>16 |
  r <cis-3 g'-4 a-2>8 <cis g' a>16 r <cis g' a>8 <cis g' a>16 |
  \pestanaSpan "V" r\startTextSpan <c-1 fis-3 a-1>8 <c fis a>16 <c fis a> <c fis bes-2>8 <c fis a>16\stopTextSpan |

  r <b-3 f'-4 g-2>8 <b f' g>16 r <b f' g>8 <b f' g>16 |
  \pestanaSpan "III" r\startTextSpan <bes-1 e-3 g-1>8 <bes e g>16 <bes e g> <bes e a-4>8 <bes e g>16\stopTextSpan |
  \pestanaSpan "I" r\startTextSpan <a-2 c-1 f-1>8 <a c f>16\stopTextSpan r <f'-1 bes-2 f'-4>8 <f bes f'>16 |
  r <d-1 gis-4>8 <d gis>16 r <cis-2 g'-3 e'-4>8 <cis g' e'>16 |

  \pestanaSpan "V" r\startTextSpan <c-1 fis-3 a-1>8 <c fis a>16\stopTextSpan r <b-0 f'-3 d'-4>8 <b f' d'>16 |
  \pestanaSpan "V" r\startTextSpan <g-1 ees'-3 c'-4>8 <g ees' c'>16 <g ees' c'> <g ees' b'-2>8 <g ees' c'>16\stopTextSpan |
  \pestanaSpan "III" r\startTextSpan <bes-1 d-1 bes'-4>8 <bes d bes'>16 <bes d bes'> <bes d a'-3>8 <bes d g-1>16\stopTextSpan |
  r <g-2 cis-3 bes'-4>8 <g cis bes'>16 \pestanaSpan "III" r\startTextSpan <c-3 d-1 a'-4>8 <c d a'>16 |

  <bes-1 d-1 g-1>8.\stopTextSpan <d,-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |

  \bar "||"
  <g-0>8. <d'-1\3>16\mordent <b-3\4> d <g-2> <b-1>
  \key g \major
  \repeat volta 2 {
    <g,,-0>16 <d'''-4> <b,-0 e-2> g, <gis-1\6> <d'''-4> <b,-0 f'-3> gis, |
    <a-1\6> <d''-4> <c,-3 fis-1> \corda "5" <d,-1>\startTextSpan <e-3>\stopTextSpan <g-0> <b-4\4> <d-1> |
    <g,,-0> <g''-1> <bes,-2 d-1> g, <g'-4\4> <fis'-1> <bes,-2 cis-1> g |

    <fis-3> <e'-0> <a,-1 d-2> e' <fis-2\3> <a-1> <c-4> <d-1> |
    <ais,,-1> <e'''-4> <cis,-2 g'-3> ais, \pestanaSpan "VII" <b-3>\startTextSpan <d''-4> <d,-1 fis-1> b,\stopTextSpan |
    <cis-1> <cis''-4> <ais,-2 e'-3> cis, <d-1> <b''-1> <b,-3 d-1> d, |
    <e-1> <d''-2> <b,-0 cis-3> e,, <fis-3> <fis''-1> <e,-1 ais-2> fis' |

    \rall <b,,-3>\startTextSpan <fis'-4> <d'-2> <cis-1> <c-4>\fermata <d-2>\fermata <fis-1>\fermata <a-4>\fermata\glissando |
    \once \override NoteColumn.glissando-skip = ##t <g,,-0>16\stopTextSpan <d'''-4> <b,-0 e-2> g, <gis-1\6> <d'''-4> <b,-0 f'-3> gis, |
    <a-1\6> <d''-4> <c,-3 fis-1> <c'-2>\mordent <a-4\2> <fis-1> <d-1\3> <c-4\4> |
    <b-1> <f'-2 e'-4>8 <f e'>16 <g,,-0> <f''-1 b-2 g'-4>8 <f b e-3>16 |

    <a,-3>16 <c-1 e-1 c'-4>8. r4 |
    \pestanaSpan "VII" <a,-1\6>16\startTextSpan <c''-3> <e,-4 g-2> a,,\stopTextSpan \pestanaSpan "VI" <cis-1\5>\startTextSpan <ais''-1> <cis,-1 g'-4> cis,\stopTextSpan |
    <d-0> <b''-1>8 <d,-1 g-2>16 r4 |
    <e,,-1>16 <g'-4 b-3 cis-1>8 <g b cis>16 <d,-0>  <c''-1 fis-3 b-4>8 <c fis a-1>16 |
  }
  \alternative {
    { <b-2 d-1 g-1>8. <d-1\3>16\mordent <b-3\4> <d-1> <g-2> <b-1> | }
    { <b,-2 d-1 g-1>\tenuto <bes-2 d-3>8 <bes d>16 <bes d> <bes ees-4>8 <bes d>16 | }
  }

  \bar "||"

  <g-0>4 <b'-2 d-3 g-4>

  \bar "|."
}

lower = \relative c' {
  \globals
  \set stringNumberOrientations = #'(down)

  \repeat volta 2 {
    g,4. d8 |
    a'4. d,8 |
  }

  g8. r16 r4 |
  \repeat volta 2 {
    r16 <a-1> <g'-3> <c-4> d,,4 |
    <g-0>8 <bes'-1 d-1> r4 |
    <c,-1>2 |

    r16 <bes-2\6> <d'-1> <g-3> r4 |
    r16 <d,,-0> <d'-0> <c'-1> r4 |
    r16 <ees,,-1> <ees'-1> <a-2> r4 |
    d,,2 |

    fis8. r16 r4 |
    r16 <a-1> <g'-3> <c-4> d,,4 |
    <g-0>8 <bes'-1 d-1> r4 |
    <c,-1>2 |

    r16 <b-2\6> <f''-3> <g-1> r4 |
    r2 |
    d,4 d, |
    r d |
  }
  \alternative {
    { <g-0> r | }
    { <g-0>4. d8 | }
  }

  % part B
  <a'-1>4 <g-0> |
  <fis-3>4. <d-0>8 |
  <g-0>4 <a-2>\glissando |
  <b-2>4. <g-0>8 |

  <c-3>4 <bes-1> |
  <a-1>4. <g-0>8 |
  <fis-2>4\glissando <f-1>\glissando |
  <e-1>\glissando <ees-1> |

  <d-0>4. d8 |
  \slashedGrace cis'\glissando <e-1\5>4\glissando <ees-1> |
  <d-0>4. d8 |
  <d-1\5>4 <des-1> |

  <c-2>4. <bes-1>8 |
  <ees-1>4 <d-0> |
  <e-3\5> <a,-1\6> |
  <d,-0> <g-0> |

  <c-1>4. c8 |
  <d-0>4. d8 |
  <e,-1>4 <fis-2> |
  <g-0>8. r16 r4 |

  \bar "||"

  \repeat volta 2 {
    <g-0>4 b' |
    g,8. g16 gis8. gis16 |
    a8. d16 e4 |
    g,8. g16 g'8. g16 |

    fis8 a fis'4 |
    ais,,8. ais16 b8. b16 |
    cis8. cis16 d8. d16 |
    e8. <e,-1>32( <eis-2>) fis8 e' |

    b4 <d, fis'-3> |
    g8. g16 gis8. gis16 |
    a4 r |
    b' g, |

    \corda "4" a'8.\startTextSpan <gis-2>16 <b-3> <a-1>8\stopTextSpan \once \set stringNumberOrientations = #'(up) <e-3\5>16 |
    a,8. a16 cis8. cis16 |
    d4 \corda "5" <cis-1>16\startTextSpan <e-4> <d-2>\mordent <b-3>\stopTextSpan |
    e,4 d |
  }
  \alternative {
    { <g-0> b' | }
    { <g,-0>4. <d-0>8 | }
  }

  \bar "||"

  <g-0>4 <g-0 d'-0>

  \bar "|."
}

staff = \new Staff <<
  \upper
  \\
  \lower
>>

\score {
  \staff
  \layout { }
}

\score {
  \unfoldRepeats \staff
  \midi { }
}