%----------------------------------------------------------------
%     _     _ _                             _ 
%    | |   (_) |_   _ _ __   ___  _ __   __| |
%    | |   | | | | | | '_ \ / _ \| '_ \ / _` |
%    | |___| | | |_| | |_) | (_) | | | | (_| |
%    |_____|_|_\\__, | .__/ \___/|_| |_|\__,_|
%               |___/|_|                      
%
%    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" 

\include "style.ily" 
%\include "showfirst.ly" 

\header { 
 tagline = ""  % removed 
} 

\paper { 
  #(set-paper-size "legal") 
  ragged-last = ##f
} 

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

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

global = { 
  \time 4/4 
  \override Staff.BarLine.allow-span-bar = ##f
  %\numericTimeSignature
  \key c \major
  \set Staff.midiInstrument = "piano" 
  %\override Score.MetronomeMark #'padding = #3.8 
  \override Staff.TimeSignature #'stencil = ##f
\set Timing.beamExceptions = #'()
\set Timing.baseMoment = #(ly:make-moment 1/4)
\set Timing.beatStructure = #'(1 1 1 1)
\override Glissando.thickness = #3

} 

sop = \relative c'' { 
\global
\voiceOne
\override Voice.TextScript.padding = #3
\once \override TextScript.extra-offset = #'(-3 . 2)
e4^\markup {"1."} \FO #'0 #'1.9 f-4 d \FO #'0 #'1.5 c-1
\override Staff.TimeSignature #'stencil = ##t
\time 2/4
\once \override TextScript.extra-offset = #'(0.0 . 2)
c^\markup {"2."} \FO #'0 #'1.7 d-2
\override Staff.TimeSignature #'stencil = ##f
\FO #'0 #'1.5 b2-7 s2 c4 \FO #'0 #'1.7 d-2
\FO #'0 #'1.5 b2-7
\once \override TextScript.extra-offset = #'(0 . 2)
c4^\markup {"3."} \FO #'0 #'1.5 b-7 \FO #'0 #'0.8 a-6
\once \override TextScript.extra-offset = #'(0 . 2)
c4^\markup {"4."} c b
}

alto = \relative c'' { 
\global
\voiceTwo
g4 f f e
g a
d,2 s2 e4 g
d2
e4 g f 
g f d
}

tenor = \relative c' { 
\global
\clef "bass"
\voiceOne
\override Voice.TextScript.padding = #3
}

bass = \relative c { 
\global
\clef "bass"
\override Voice.TextScript.padding = #3
%\voiceTwo
c4 d_\markup {"II"} 
\once \override TextScript.extra-offset = #'(-0.3 . 1.0)
g_\markup {"V" \super 7} a_\markup {"VI"}
\bar "|."
\override Staff.TimeSignature #'stencil = ##t
\time 2/4
e4 f_\markup {"II"}
\override Staff.TimeSignature #'stencil = ##f
\time 6/4
g2_\markup {"V"} 
\once \override TextScript.extra-offset = #'(-6.0 . 0)
s2^\markup {"Better than"} c4 b_\markup {"V"}
\time 2/4
g2_\markup {"V"}
\bar "."
\time 3/4
c,4 e_\markup {"III"} f
\bar "."
e 
\once \override TextScript.extra-offset = #'(-0.3 . 1.0)
d_\markup {"II" \super 7} g
\bar ".."
}


\score {
  \new PianoStaff \with {
    \override StaffGrouper.staff-staff-spacing = #'(
                            (basic-distance . 2)
                            (padding . 2))
  }
 << 
  \set PianoStaff.instrumentName = \markup \center-column { Ex. "131." }
    \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"
% 		\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/32)
	  }
  }
  \midi {\tempo 4 = 76}
}