%----------------------------------------------------------------
%     _     _ _                             _ 
%    | |   (_) |_   _ _ __   ___  _ __   __| |
%    | |   | | | | | | '_ \ / _ \| '_ \ / _` |
%    | |___| | | |_| | |_) | (_) | | | | (_| |
%    |_____|_|_\\__, | .__/ \___/|_| |_|\__,_|
%               |___/|_|                      
%
%    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)
c4^\markup {"1."} b a g
c^\markup {"2."} b a g
g4^\markup {"3."} a b c
\overrideProperty Score.NonMusicalPaperColumn.line-break-system-details
            #'((Y-offset . 28))
f4^\markup {"4."} d b c b c
c^\markup {"5."} d f e d c
\bar "|."
}

alto = \relative c'' { 
\global
\voiceTwo
g4 f e d
s1
d4 e f g
c a f g f e
g a c, b d g
}

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

bass = \relative c { 
\global
\clef "bass"
\voiceTwo
\override Voice.TextScript.padding = #3
e4 d c b
e4 d c b
b' c d e
\break
\time 6/4
a, f d \once \override TextScript.extra-offset = #'(3.0 . 0.0)
e^\markup {"or:"} d c
e f a g f e
\bar "|."
}

inversions = \figuremode {
  %\bassFigureExtendersOn
	\set Staff.ignoreFiguredBassRest = ##f
	\override Staff.BassFigure.staff-padding = #'()
\repeat unfold 24 { <6>4} 
}


\score {
  \new PianoStaff \with {
    \override StaffGrouper.staff-staff-spacing = #'(
                            (basic-distance . 2)
                            (padding . 2))
  }
 << 
  \set PianoStaff.instrumentName = \markup \center-column { Ex. "132." }
    \new Staff = "up" << 
        \context Voice = "soprano" \sop 
        \context Voice = "alto"  \alto
    >> 
    \new Staff = "down" << 
        \context Voice = "tenor"  \tenor 
        \context Voice = "bass"  \bass
        \new FiguredBass {
			\override FiguredBass.BassFigure #'font-size = #-2
			\inversions
		}

    >> 
  >> 
  \layout { 
	\context {
	    \Score
	    \remove "Bar_number_engraver"
% 		\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/32)
	  }
  }
  \midi {\tempo 4 = 76}
}