\version "2.22.2"
\language "deutsch"
\header{
  title = "Lagrima"
  composer = "Francisco Tarrega"
  tagline = ##f
}
bbarre =
#(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-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 { \draw-line #'( 0 . -.5) } #})
                (Y . 0)
                (padding . 0.25)
                (attach-dir . -2))
               (right
                (text . ,#{ \markup { #str } #})
                (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 e \major
  \time 3/4
}

melodyone = \relative  {
  \global
  \voiceOne
  \bar "|."
  gis''4-3 a4-2 h4-4
  fis2.-4
  gis4 a4 h4
  fis2.

  \bbarre #"IX" {
    e'4-4 dis4-4
  } \bbarre #"VII" {
    cis4-3
    h4-1
  }
  cis,8[ e8 fis8 a8]
  gis4-3 cis,8[ fis8] h,,8[ dis'8]
  e2 r4
}

melodytwo = \relative  {
  \global
  \voiceFour
}

bass = \relative {
  \global
  \voiceTwo
  e'4-1 fis4-1 gis4-3
  dis2.-1
  e4 fis4 gis4
  dis2.

  cis'4-3 h4 a4
  h4-2\glissando cis2-2
}

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