%----------------------------------------------------------------
%     _     _ _                             _ 
%    | |   (_) |_   _ _ __   ___  _ __   __| |
%    | |   | | | | | | '_ \ / _ \| '_ \ / _` |
%    | |___| | | |_| | |_) | (_) | | | | (_| |
%    |_____|_|_\\__, | .__/ \___/|_| |_|\__,_|
%               |___/|_|                      
%
%    This is a Lilypond source code file. For more information 
%    about the Lilypond music typesetting program, visit 
%    
%         http://lilypond.org 
%    
%    The code in this source file is released under
%    a GPLv3 license. For licensing information visit 
%
%         http://www.gnu.org/licenses/quick-guide-gplv3
%
%----------------------------------------------------------------

\version "2.18.0" 


\header { 
 tagline = ""  % removed 
} 

\paper { 
  #(set-paper-size "letter") 
  ragged-last-bottom = ##t 
} 

#(ly:set-option 'point-and-click #f) 
#(set-global-staff-size 32)

nct = \finger \markup \teeny {\fontsize #-3 "x"}

Prefix = \markup {
  %% uncomment/comment these lines for C, C slashed, B or B slashed prefix :
  %\roman C
  \combine \roman C \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8)
  %\roman B
  %\combine \roman B \translate #'(0.65 . -0.25) \override #'(thickness . 1.2) \draw-line #'(0 . 1.8)
  %%%%%%%%%%%%
  \hspace #0.2
}

startBarre = 
#(define-event-function (parser location str) (string?)
  (let* ((mrkp (markup #:upright #:concat (str " "))))

    (define (width grob text-string)
      (let* ((layout (ly:grob-layout grob))
             (props (ly:grob-alist-chain 
                       grob 
                       (ly:output-def-lookup layout 'text-font-defaults))))
      (interval-length 
         (ly:stencil-extent 
           (interpret-markup layout props (markup text-string)) 
           X))))
    #{  
      \tweak TextSpanner.after-line-breaking 
        #(lambda (grob)
          (let* ((mrkp-width (width grob mrkp))
                 (line-thickness (ly:staff-symbol-line-thickness grob)))
           (ly:grob-set-nested-property! 
             grob 
             '(bound-details left padding) 
             (+ (/ mrkp-width -4) (* line-thickness 2)))))
      \tweak TextSpanner.font-size -2
      \tweak TextSpanner.style #'line
      \tweak TextSpanner.bound-details.left.text #mrkp
      \tweak TextSpanner.bound-details.left.padding 0.25
      \tweak TextSpanner.bound-details.left.attach-dir -1
      \tweak TextSpanner.bound-details.left-broken.text ##f
      \tweak TextSpanner.bound-details.left-broken.attach-dir -1
      %% adjust the numeric values to fit your needs:
      \tweak TextSpanner.bound-details.left-broken.padding 1.5
      \tweak TextSpanner.bound-details.right-broken.padding 0
      \tweak TextSpanner.bound-details.right.padding 0.25
      \tweak TextSpanner.bound-details.right.attach-dir 2
      \tweak TextSpanner.bound-details.right-broken.text ##f
      \tweak TextSpanner.bound-details.right.text
        \markup \draw-line #'(0 . 0)
      \startTextSpan 
    #}))

stopBarre = \stopTextSpan

%% Syntax: note \startBarre #'fret_number'  note(s) \stopBarre

global = { 
%  \time 3/4 
%  \numericTimeSignature
  %\key c \major
  \set Staff.midiInstrument = "piano" 
  %\override Score.MetronomeMark #'padding = #3.8 
  \override Staff.TimeSignature #'stencil = ##f
\override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
%\set Timing.beamExceptions = #'()
%\set Timing.baseMoment = #(ly:make-moment 1/4)
%\set Timing.beatStructure = #'(1 1 1 1)
\override HorizontalBracket.thickness = #2
\override HorizontalBracket #'direction = #UP
} 

melody = \relative c'' { 
\global
\time 2/4
\voiceOne
%\textSpannerDown
e16\startGroup g e c\stopGroup b\nct c d c
a\startGroup f a d f a f\stopGroup e
\break
d16 e f\startGroup d b g\stopGroup a b
c2
 \bar "||"
}

middle = {
\textSpannerDown
s8\startBarre "I" s\stopBarre s4
s8 s8\startBarre "II" s8 s8\stopBarre
s4\startBarre "V7" s4\stopBarre 
s4\startBarre "I" s4\stopBarre 
}

bass = \relative c' {
\voiceTwo
c4 e
f_\markup {"(IV)"} d
b g'
e16 c' g e c4
}

%%%%%%%%%%%%%%%%%%%%%%%%%% SCORE BLOCK %%%%%%%%%%%%%%%%%%%%%%


\score {
  \context Staff = "guitar" \with { 
    \consists "Span_arpeggio_engraver" 
  }
  << 
    \set Staff.midiInstrument = "piano"
    \set Staff.connectArpeggios = ##t
    \numericTimeSignature
    \set Staff.instrumentName = \markup \center-column { Ex. "97." } 
    \context Voice = "melody" \with { 
		\consists "Horizontal_bracket_engraver"
	} \melody
    \context Voice = "middle" \middle 
    \context Voice = "bass" \with { 
		\consists "Horizontal_bracket_engraver"
	} \bass   
  >>
    
  \layout { 
	\context {
	    \Score
	    \remove "Bar_number_engraver"
	  }
  }
    
  \midi {
    \tempo 4 = 50
  }
}