\version "2.22.2"
\language "deutsch"
\header{
  title = "Valse"
  composer = "Francisco Tarrega"
  tagline = ##f
}
bbarre =
#(define-music-function (barre location str bottom top music) (string? ly:pitch? ly:pitch? 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))))))
   #{
   <a e>1\arpeggio
       \once \override TextSpanner.font-size = #-2
       \once \override TextSpanner.font-shape = #'upright
       \once \override TextSpanner.staff-padding = #3
       \once \override TextSpanner.style = #'line
       \once \override TextSpanner.to-barline = ##f
       \once \override TextSpanner.bound-details =
            #`((left
                (text . ,#{ \markup { #str } #})
                (text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
                (Y . 0)
                (padding . 0.25)
                (attach-dir . -2))
               (right
                (Y . 0)
                (padding . 0.25)
                (attach-dir . 2)))
%% uncomment this line for make full barred
      % \once \override TextSpanner.bound-details.left.text = \markup{"B" #str}
      $music
#})

global = {
  \set fingeringOrientations = #'(left)
  \mergeDifferentlyHeadedOn
  \mergeDifferentlyDottedOn
  \key a \major
  \time 3/4
  \partial 4
}

melodyone = \relative  {
  \global
  \voiceOne
  e''4-0
  e2.-0
  fis2.-3
  \bbarre #"II" a d {fis2.
  gis2.-3
  gis2 a4-4
  a2 gis4
  } %\bbarre #"II" {
  %fis2. }

  r2.
  fis2.
  gis2-4 a4
  cis2.
  h2.
  e8-4 d8-2 fis,4-3 gis4-1
  cis8-4 h8 d,4-1 e4-3
  h'8-4 a8 cis,4-2 e4
  r4 r4

  e4
  e2.
  fis2.
  fis2.
  gis2.
  gis2.
  a2.
  e'2.-4
  d2.-1
  fis,2.
  d'2.-4
  cis2.-3
  e,2.
  fis2.-1
  h2.
  a2.
  a2
}

melodytwo = \relative  {
  \global
  \voiceThree
  s4
  r4 <a'-1 cis-2>4 <a cis>4
  r4 <a cis>4 <a cis>4
  r4 <a cis>4 <a cis>4
  r4 <a cis>4 <a cis>4
  r4 <a cis>4 <a cis>4
  r4 <a cis>4 <a cis>4
  r4 <h-3 d-3>4 <h d>4

  %r2.
}

bass = \relative {
  \global
  \voiceTwo
  r4
  a2.
  e2.
  a2.
  e2.
  a2.
  e2.
  h'2.

  h4 cis4-3 d4
  e,2.
  h'2.
  e,2.
  e'2.
  e,2.
  e2.
  a2.
  \override NoteHead.style = #'harmonic-mixed
  a2.-3^\markup { \italic \fontsize #-2 "Harm. VII" }
  \revert NoteHead.style

  a2.
  e2.
  a2.
  e2.
  a2.
  a2.
  d2.
  d2.
  h2.
  d2.
  e2.
  e,2.
  e2.
  e'2.
  a,2.
  a2
}

\score {
  \new Staff = "guitar" <<
    \tempo 4 = 114
    \context Voice = "upper" { \melodyone }
    \context Voice = "middle" { \melodytwo }
    \context Voice = "lower" { \bass }
  >>
  \layout {
    \context {
      \Score
      \remove "Bar_number_engraver"
      \override Fingering.staff-padding = #'()
      \omit TupletNumber
      \override TupletBracket.bracket-visibility = ##f
    }
  }
}