%----------------------------------------------------------------
%     _     _ _                             _ 
%    | |   (_) |_   _ _ __   ___  _ __   __| |
%    | |   | | | | | | '_ \ / _ \| '_ \ / _` |
%    | |___| | | |_| | |_) | (_) | | | | (_| |
%    |_____|_|_\\__, | .__/ \___/|_| |_|\__,_|
%               |___/|_|                      
%
%    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 28)
nct = \finger \markup \teeny {\fontsize #-6 "x"}
labelA = \markup {\tiny {\italic {"a."} (Double-neighbors.)}} 
labelB = \markup {\tiny {\italic {"b."} (Repetitions.)}} 
labelC = \markup {\tiny {\italic {"c."} (Rests.)}} 
labelD = \markup {\tiny {\italic {"d."} (Alternating rhythms, par. 99.) \italic { The best form.}}} 
labelE = \markup {\tiny { ( \italic {"a"} and \italic {"b"} mixed. ) }}

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

global = { 
  \time 2/4 
  \numericTimeSignature
  \key c \major
  \set Staff.midiInstrument = "piano" 
  %\override Score.MetronomeMark #'padding = #3.8 
  %\override Staff.TimeSignature #'stencil = ##f
\override Staff.TimeSignature.break-visibility = #end-of-line-invisible
\set Timing.beamExceptions = #'()
\set Timing.baseMoment = #(ly:make-moment 1/4)
\set Timing.beatStructure = #'(1 1 1 1)
\override HorizontalBracket.thickness = #2
} 

melody = \relative c'' { 
\global
  \voiceOne
\override HorizontalBracket #'direction = #UP
\override HorizontalBracket.extra-offset = #'( 0.0 . 0.5)
\override TupletNumber.stencil = ##f
\override TupletBracket.stencil = ##f
\override Voice.Fingering.extra-offset = #'( 0.0 . -0.2)
	\tuplet 3/2 4 { 
%\once \override TextScript.script-priority = #100 
e8^\labelA d c ~ c^\nct\startGroup a^\nct b\stopGroup ~
	b8^\nct\startGroup d^\nct c\stopGroup ~ c^\nct\startGroup e^\nct d\stopGroup ~
	d^\nct\startGroup f^\nct e\stopGroup ~ e f d }
	c2  \bar "||" \break

% ex. b
\time 2/4

\tuplet 3/2 4 {
	e8^\labelB d c ~ c\startGroup c\stopGroup b ~ 
	b\startGroup b\stopGroup c ~ c\startGroup c\stopGroup d ~
	d\startGroup d\stopGroup e f e d 
	} 
c2

\bar "||"

\time 2/4
	\tuplet 3/2 4 { 
		r8^\labelC e c ~ c a b
		r d c ~ c e d
		r f e f d b
	} 
c2
\bar "||"

% part d
\time 2/4
e4^\labelD b ~
\tuplet 3/2 4 {b8 d c ~ c e d} 
e4 \tuplet 3/2 4 { f4 d8 ~ \break d8 c b } c4 
\bar "||"

% last bit

\tuplet 3/2 4 {
	e8^\labelE d c ~ c^\nct\startGroup a^\nct b\stopGroup ~
	b\startGroup b\stopGroup c ~ c e d^\markup \tiny {"etc."}
}
\bar "|."
}

bass = \relative c' { 
\global
\voiceTwo
c4 d
e b
\override TupletBracket.stencil = ##f
\override TupletNumber.stencil = ##f
c \tuplet 3/2 4 {d4 f8 ~ f e d } e4

% ex. b
\override Voice.Fingering.extra-offset = #'( 0.0 . -3.0)
c4 d | e b | c \tuplet 3/2 4 {d4 f8 ~ | f f^\nct \startGroup d^\nct } 
e4\stopGroup

c4 d e b 
c \tuplet 3/2 4 {d4 f8 r e d }
e4

% ex. d
\tuplet 3/2 4 {c8 b c d e f } 
e4 b 
\tuplet 3/2 4 {r8 b c d e f} 
e2
% last bit

c4 d e b
}

 
%%%%%%%%%%%%%%%%%%%%%%%%%% 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. "90." } 
    \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 = 60
  }
}