\version "2.20.0"
\pointAndClickOff

\header {
  title = "Dengoso"
  composer = "João Pernambuco"
  copyright = \markup {
    \with-url #"https://creativecommons.org/licenses/by-sa/4.0/" \line {
      CC BY-SA 4.0
    }
  }
  tagline = \markup {
    \with-url #"https://euandre.org/music.html" \line {
      euandre.org/music.html
    }
  }
}

cWithSlash = \markup {
  \fontsize #-2
  \combine \roman C \translate #'(0.6 . -0.4) \draw-line #'(0 . 2.0)
}

pestana =
#(define-music-function (barre location str music) (string? ly:music?)
   (let ((elts (extract-named-music music '(NoteEvent EventChord))))
     (if (pair? elts)
         (let ((first-element (first elts))
               (last-element (last elts)))
           (set! (ly:music-property first-element 'articulations)
                 (cons (make-music 'TextSpanEvent 'span-direction -1)
                       (ly:music-property first-element 'articulations)))
           (set! (ly:music-property last-element 'articulations)
                 (cons (make-music 'TextSpanEvent 'span-direction 1)
                       (ly:music-property last-element 'articulations))))))
   #{
     \once \override TextSpanner.font-shape = #'upright
     \once \override TextSpanner.style = #'line
     \once \override TextSpanner.bound-details =
     #`((right
         (text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
         (Y . 0))
        (left
         (text . ,#{ \markup { \cWithSlash \fontsize #-2 #str } #})
         (Y . 0)
         (attach-dir . -2)))
     $music
   #})

globals = {
  \clef "treble_8"
  \key d \major
  \time 2/4
  \set fingeringOrientations = #'(left)
  \tempo 4 = 100
}

upper = \relative c {
  \globals

  r16 <d-0>8 <e-1>16 <fis-3> <e-1>8 <d-0>16 |
  <a'-3>8. a16 <g-1>8. g16 |
  <fis-3>8. fis16 <f-2>8. <e-1>16 |
  r2 |

  r16 d8 e16 fis e8 d16 |
  a'8. a16 g8. g16 |
  fis8. fis16 f8. e16 |
  r2 |

  <d'-2>8 \pestana #"II" { <fis,-3 a-1> fis' d16 } <e-0>~ |
  e2 |
  d8 \pestana #"II" { <fis, a> fis' d16 } e~ |
  e2 |

  \repeat volta 2 {
    \pestana #"V" {
      a16 <a,-3 d-4>8 <a d>16 r16 <g'-4>8 <fis-3>16 |
      a16 <g,-1 cis-2>8 <g cis>16 r16 <cis-2> <fis-4> <cis-2> |
    }
    <a-1 e'-0>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
    <b-0>16 <cis,-3 g'-4>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

    <d'-2>16 <fis,-3 a-1>8 <fis a>16 <fis'-4>8 <a,-3 c-2> |
    <e'-0>16 <a,-2 cis-3>8 <a cis>16 r16 <g-0> <cis-3> <e-0> |
    <d gis d'>16 <d gis d'>8 <d gis d'>16 <d gis cis>8 <d gis b> |
    <e'-4>16 <cis,-2 g'-3>8 <cis g'>16 <cis g' b>8 <cis-2 g'-3 a-1> |

    \pestana #"V" {
      a'16 <a, d>8 <a d>16 r16 <g'>8 <fis>16 |
      a16 <g, cis>8 <g cis>16 r16 <cis> <fis> <cis> |
    }
    <a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
    <b>16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

    d'16 <fis, a>8 <fis a>16 dis'8 <fis, a> |
    <e'-0>8 <b-3 d-2>16 <ais-2 cis-1> <g b e> <d'-2>( <b-0>) <g-0> |
    <fis-3> <d'-2> <a-1> <fis-3> <e-1> <cis'-2> <g-0> <e-1>
  }
  \alternative {
    { d, \pestana #"II" { a'' d fis g fis g gis } | }
    { r4 <d fis d'>^\markup {  \cWithSlash \fontsize #-2 VII } | }
  }
  \bar "||"
  
  \repeat volta 2 {
    \key d \minor
    
    <a-3>16 a <d-4 f-2> a a a <d f> a |
    <g-3> g <bes-1 e-4> g g g <bes e> g |
    <f-3> f <a-2 d-4> f f f <a d> f |
    r <g-0 cis-2> <g cis> e' r <bes-3>( <a-2>) <g-0> |
   
    <fis-4> <c-3> <dis-1>( <fis-4>) <a-2> <fis-4> c' a |
    <d-4> <bes-3>( <g-0>) <d-0> <g-0> <d-0> <bes'-3>( <g-0>) |
    <gis-1> <d-0> <b'-9> <gis-1> <d'-4>( <b-0>) <f'-4>( <d-1>) |
    <bes'-2>( <a-1>) <g-4> <f-2> <e-1> <d-3> <cis-2> <bes-4> |
    
    <a-3> a <d-4 f-2> a a a <d f> a |
    <g-3> g <bes-1 e-4> g g g <bes e> g |
    \pestana #"III" { f, f <bes' d> f, f f <bes' d> f, } |
    r \pestana #"II" { <a' cis> <a cis>( e')~ e4 }
    
    \pestana #"III" { <bes-1>16( <c-4>) <d-1> <e-4> <f-4> } <g-1> <a-3> <bes-4> |
    <bes-4>( <a-3>) <gis-2> <a-3> <d-4>( <bes-1>) <g-3> <e-0> |
    <f-1> <d-4> <a-2> <f-3> <e-1> <cis'-2> <g-0> <e-1>
  }
  \alternative {
    { r <g-0> <gis-1> <a-2> r <bes-3> <a-2> <g-0> | }
    { r4 <f' a d>^\markup { \cWithSlash \fontsize #-2 X } | }
  }
  
  \key d \major
  \pestana #"V" {
    a16 <a, d>8 <a d>16 r16 g'8 fis16 |
    a16 <g, cis>8 <g cis>16 r16 cis fis cis |
  }
  <a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
  b16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

  d'16 <fis, a>8 <fis a>16 fis'8 <a, c> |
  e'16 <a, cis>8 <a cis>16 r16 g cis e |
  <d gis d'>16 <d gis d'>8 <d gis d'>16 <d gis cis>8 <d gis b> |
  e'16 <cis, g'>8 <cis g'>16 <cis g' b>8 <cis g' a> |

  \pestana #"V" {
    a'16 <a, d>8 <a d>16 r16 g'8 fis16 |
    a16 <g, cis>8 <g cis>16 r16 cis fis cis |
  }
  <a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
  b16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

  d'16 <fis, a>8 <fis a>16 dis'8 <fis, a> |
  e'8 <b d>16 <ais cis> <g b e> d'( b) g |
  fis d' a fis e cis' g e
  r4 <d' fis d'>^\markup {  \cWithSlash \fontsize #-2 VII } | 
  \bar "||"
  
  \key d \minor
  <f-2>16 <a,-3 d-4>8 <a d>16 f'8 <a, d> |
  <e'-4>16 <g,-3 bes-1>8 <g bes>16 <d'-4>8 <f,-3 a-2> |
  <cis'-4>16 <e,-3 g-0>8 <e g>16 <f'-1>8 <g, cis> |
  <e'-0>16 <g,-0 cis-4>8 <g cis>16 <d'-4>8 <f,-3 a-2> |
  
  <f'-2>16 <a,-3 d-4>8 <a d>16 f'8 <a, d> | 
  \pestana #"V" {
    <e'-1>16 <a,-3 c-1>8 <a c>16 a,8 <a' c> |
    <a-3>16 <c-1> <a'-4> c, } <aes-3> <b-1> <b'-4> b, |
  \pestana #"V" { <a-3> <c-1> <a'-1> c, a c a' c, } |
  
  <f-2> <a,-3 d-4>8 <a d>16 f'8 <a, d> |
  f'16 <a, d>8 <a d>16 <e'-1>8 <a,-3 cis-2> |
  \pestana #"III" {
    <g'-1>16 <bes,-1 e-3>8 <bes e>16 g'8 <bes, e> |
    g'16 <bes, e>8 <bes e>16 } \pestana #"V" { <a'-1>8 <c,-1 fis-3> } |
  
  \pestana #"V" {
    <bes'-2>16 <d,-3 g-4>8 <d g>16 <d g> <a'-1>8 <g-4>16 |
    <f-2> <a,-3 d-4>8 <a d>16 <a d> <e'-0>8 <d-4>16 |
    <c-2> <a-3>8 a16 a <f'-2>8 <e-1>16 |
    <d-4> <a-3>8 a16 a a8 a16 |
  }
  
  \key d \major
  \pestana #"V" {
    a'16 <a, d>8 <a d>16 r16 g'8 fis16 |
    a16 <g, cis>8 <g cis>16 r16 cis fis cis |
  }
  <a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
  b16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

  d'16 <fis, a>8 <fis a>16 fis'8 <a, c> |
  e'16 <a, cis>8 <a cis>16 r16 g cis e |
  <d gis d'>16 <d gis d'>8 <d gis d'>16 <d gis cis>8 <d gis b> |
  e'16 <cis, g'>8 <cis g'>16 <cis g' b>8 <cis g' a> |

  \pestana #"V" {
    a'16 <a, d>8 <a d>16 r16 g'8 fis16 |
    a16 <g, cis>8 <g cis>16 r16 cis fis cis |
  }
  <a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
  b16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |

  d'16 <fis, a>8 <fis a>16 dis'8 <fis, a> |
  e'8 <b d>16 <ais cis> <g b e> d'( b) g |
  fis d' a fis e cis' g e
  r4 <d' fis d'>^\markup {  \cWithSlash \fontsize #-2 VII } | 
  \bar "|."
}

lower = \relative c {
  \globals

  r2 |
  r8 a r a |
  r8 a r a |
  r16 <a-0>8 <b-1>16 <cis-3> <b-1>8 <a-0>16 |

  d16 r8. r4
  r8 a r a |
  r8 a r a |
  r16 a8 b16 cis b8 a16 |

  d,4. a''16 a,~ |
  a a8 b16 cis b8 a16
  d,4. a''16 a,~ |
  a a8 b16 cis b8 a16 |

  \repeat volta 2 {
    d,4 dis' |
    <e-3> g, |
    <fis'-3>16 fis8 fis16 fis8 fis |
    e,4 cis' |

    d, dis |
    <e-1> <ais-1> |
    e' e |
    a, r4 |

    d, <dis'-2> |
    e g, |
    fis'16 fis8 fis16 fis8 fis |
    e,4 cis' |

    d, fis |
    <e-4>8 r8 r4 |
    fis'8. fis16 e8. e16 |
  }
  \alternative {
    { d,2 | }
    { d8 a' d4 | }
  }
  
  \bar "||"
  
  \repeat volta 2 {
    \key d \minor
    
    a'16 a8 a16 a a8 a16 |
    g g8 g16 g g8 g16 |
    f f8 f16 f f8 f16 |
    e4 a, |
    
    r2 |
    d8. r16 r4 |
    r2 |
    a2 |
    
    a'16 a8 a16 a a8 a16 |
    g g8 g16 g g8 g16 |
    f, f8 f16 f f8 f16 |
    e4 r16 <e-1> <f-2> <fis-3> |
    
    g4 r4 |
    d g' |
    d8. f16 e8. e16 |
  }
  \alternative {
    { d4 r | }
    { d8 a d4 | }
  }
  
  \key d \major
  d,4 dis' |
  <e> g, |
  <fis'>16 fis8 fis16 fis8 fis |
  e,4 cis' |

  d, dis |
  <e> <ais> |
  e' e |
  a, r4 |

  d, <dis'> |
  e g, |
  fis'16 fis8 fis16 fis8 fis |
  e,4 cis' |

  d, fis |
  <e>8 r8 r4 |
  fis'8. fis16 e8. e16 |
  d,8 a' d4 |
  
  \key d \minor
  d,4 d |
  a' a |
  a a |
  a d, |
  
  d d |
  a' a |
  a' aes |
  a a |
  
  d,, d |
  d a' |
  a a |
  a d |
  
  <g-1> r |
  d, r |
  a'2 |
  d, |
  
  \key d \major
  d4 dis' |
  e g, |
  fis'16 fis8 fis16 fis8 fis |
  e,4 cis' |

  d, dis |
  e ais |
  e' e |
  a, r4 |

  d, dis' |
  e g, |
  fis'16 fis8 fis16 fis8 fis |
  e,4 cis' |

  d, fis |
  e8 r8 r4 |
  fis'8. fis16 e8. e16 |
  d,8 a' d4 |
  \bar "|."
}

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

\score {
  \staff
  \layout { }
}

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