%----------------------------------------------------------------
%     _     _ _                             _ 
%    | |   (_) |_   _ _ __   ___  _ __   __| |
%    | |   | | | | | | '_ \ / _ \| '_ \ / _` |
%    | |___| | | |_| | |_) | (_) | | | | (_| |
%    |_____|_|_\\__, | .__/ \___/|_| |_|\__,_|
%               |___/|_|                      
%
%    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 
	ragged-last-right = ##f
	ragged-right = ##f
} 

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

global = { 
  \time 4/4
  \override Staff.BarLine.allow-span-bar = ##f 
  %\numericTimeSignature
  \key g \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)
} 

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.75)
      \startTextSpan 
    #}))

stopBarre = \stopTextSpan

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

sop = \relative c'' { 
\global
\voiceOne
\partial 4 b4\startBarre "G" 
a4 g\stopBarre g\startBarre "D" fis4\stopBarre\startBarre "G" 
g4\stopBarre fis\startBarre "e" e\stopBarre e\startBarre "G" 
d4 g a\stopBarre b\startBarre "C" 
 c\stopBarre a\startBarre "G" g\stopBarre

 \bar "||"
}

alto = \relative c' { 
\global
\voiceTwo
\showStaffSwitch
d4
c b e a,
b \change Staff = "down" \voiceOne a g c
b b \change Staff = "up" \voiceTwo d d
g d b
}


bass =  \relative c' { 
\global
\clef "bass"
\voiceTwo
\partial 4 g4
d e \once \override TextScript.extra-offset = #'(-2.0 . -1.0)
cis_\markup \tiny {"D: V"} d_\markup \column { \tiny {"I" "G: V___I"}}
b dis e fis
g2 fis4_\markup \tiny {"Chrom."} f
e fis! g
}
%%%%%%%%%%%%%%%%%%%%%%%%%% SCORE BLOCK %%%%%%%%%%%%%%%%%%%%%%

\score {
  \new PianoStaff \with {
    \override StaffGrouper.staff-staff-spacing = #'(
                            (basic-distance . 2)
                            (padding . 2))
  }
 << 
  \set PianoStaff.instrumentName = \markup \center-column { Ex. "134." }
    \new Staff = "up" << 
        \context Voice = "soprano" \sop 
        \context Voice = "alto"  \alto
    >> 
    \new Staff = "down" << 
        %\context Voice = "tenor"  \tenor 
        \context Voice = "bass"  \bass
    >> 
  >> 
  \layout { 
	\context {
	    \Score
	    \remove "Bar_number_engraver"
	  }
  }
  \midi {\tempo 4 = 76}
}