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

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

nct = \finger \markup \teeny {\fontsize #-3 "x"}
parensixup = \finger \markup \teeny {\fontsize #-3 "(6)"}
parensixdown = \finger \markup \teeny {\fontsize #-3 "(6)"}

% define fingering offset
FO = #(define-music-function (parser location offsetX offsetY) (number? number?)
  #{
    \once \override Voice.Fingering.extra-offset = #(cons offsetX offsetY )
  #})

nuj = \once \override TextScript.extra-offset = #'(1.0 . 0.0)

global = { 
  \time 3/4 
  %\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
\override HorizontalBracket.thickness = #2
\override TupletBracket.stencil = ##f
\override TupletNumber.stencil = ##f
} 

melody = \relative c'' { 
\global
  \voiceOne
 e4^\markup \small {"Orig. form."} c a |
\bar "||"
 e'4^\markup \small {"Amplified forms."} c a |
\bar "||"
 e' c a |
\bar "||"
 e' c a |
\bar "||"
\break
 \tuplet 3/2 4 { \once \override TextScript.extra-offset = #'(-2.7 . -2.0)
 e'8^\markup {"or:"}  f\nct e d\nct c b\nct } a4|
\bar "||"
 \tuplet 3/2 4 {r8 e'\nct d\nct c b\nct c} a4|
\tuplet 3/2 4 {r8 e' d\nct c d\nct c b\nct a \parenthesize d} 
% \bar "||"
\overrideProperty Score.NonMusicalPaperColumn.line-break-system-details
            #'((Y-offset . 30))
 \FO #'0 #'1.5 \once \override TextScript.extra-offset = #'(0.0 . 2.0)
e4-3^\markup {"Also, with greater freedom:"} \FO #'0 #'1.5 c \FO #'0 #'1.5 a-3
\tuplet 3/2 4 {r8 e' f\nct g e c_\parensixdown b\nct a \parenthesize d} 
\bar "||"
}

middle = \relative c' { 
\global

}

bass = \relative c' { 
\global
  \voiceTwo
 \FO #'0 #'-1.5 c4-3 \FO #'0 #'-1.5 e-6 \FO #'0 #'-1.5 f-3
\tuplet 3/2 4 {r8 c-3 d\nct e f\nct g\nct}  f4
\tuplet 3/2 4 { c8 g' f\nct e d\nct e} f4
\tuplet 3/2 4 { c8 b\nct c d\nct e g\nct}  f4
 c4 e f
 c4 e f
 c4 e f
\tuplet 3/2 4 {r8 c b\nct c d\nct e^\parensixup } f4
\FO #'0 #'-1.5  c4-3 \FO #'0 #'-1.5  e-3 \FO #'0 #'-1.5  f-3
}


%%%%%%%%%%%%%%%%%%%%%%%%%% 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. "74." } 
    \context Voice = "melody" \with { 
		\consists "Horizontal_bracket_engraver"
	} 
	\melody 
    %\context Voice = "middle" \middle 
    \context Voice = "bass" \bass   
  >>
    
  \layout { 
	\context {
	    \Score
	    \remove "Bar_number_engraver"
	  }
  }
    
  \midi {
    \tempo 4 = 80
  }
}