% INSPIRATIONAL HEADER FOR LILYPOND DOCUMENTATION fretted-strings %
% Passage from Johann Kaspar Mertz "Opern Revue, Op. 8, no. 17"   %
% on melodies from Bellini's "Norma"                              %
%*****************************************************************%

\version "2.11.57"

#(set-global-staff-size 15)
\paper{
 ragged-end=##t
 line-width=17\cm
 indent=0\cm
}

\layout {
 \context { \Score
   \remove "Bar_number_engraver"
   \override PaperColumn #'keep-inside-line = ##t
   \override NonMusicalPaperColumn #'keep-inside-line = ##t
 }
}

%%%% shortcuts
%  fingering orientations
	sfol = \set fingeringOrientations = #'(left)
	sfor = \set fingeringOrientations = #'(right)
	sfod = \set fingeringOrientations = #'(down)
	sfou = \set fingeringOrientations = #'(up)

%  string number orientations
	ssnol =  \set stringNumberOrientations = #'(left)  %(down right up)
	ssnou =  \set stringNumberOrientations = #'(up)
	ssnod =  \set stringNumberOrientations = #'(down)
	ssnor =  \set stringNumberOrientations = #'(right)

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

%  markups
	rit = \markup \center-align { \bold { \italic { " rit." } } }
	dim = \markup \center-align { \italic { " dim." }}
	andantino = \markup \left-align { \italic { \bold { \fontsize #+2.5 { "Andantino"  }}}}
	benmarcato = \markup { \italic { \bold { "il canto ben marcato" }}}

%%% THE MUSIC %%%

melody =  \relative c {
  \clef "treble_8"
  \key d \major
  \time 4/4
%  \override Staff.TimeSignature #'transparent = ##t
  \voiceOne
  \override Fingering #'staff-padding = #'()
  \sfol
    e,32 a' c e 
    e, a c e 
    e,, a' c e 
    e, a c e 
    f4\rest <e'-4>4-> | % m. 1

    e,,,32 gis' b e 
    e, gis b e 
    e,, gis' b e 
    e, gis b e 
    f4\rest \FO #'0.4 #'0.5 <gis-1 e'-4>4 | % m. 2

    d4\rest <b e>-> d4\rest^\rit <b e>4->  | % m. 3
    <gis b e>1  | % m. 4

  \bar "||"
  \key a \minor
  \override TupletNumber #'stencil = ##f
  \override TupletBracket #'bracket-visibility = ##f
    R1 	% m. 5

    e'4^\benmarcato e8. d16-4 
    d4-4 \times 2/3{\sfou \FO #'-0.3 #'0.6 <c-2>4 b8} | % end of m. 6

  \FO #'-0.3 #'0.3 
    <a-3>4 \times 2/3{c4 b8} a4 e'8. e16  | % m. 7

  \FO #'-0.3 #'0.3 
    <g-4>4 \times 2/3{\sfol \FO #'0.3 #'0.0 <f-1>4 e8} e4   % beg of m. 8
      \times 2/3{\sfou <d-4>4 c8} 			  | % end of m. 8

    b4 \times 2/3{d4-4 c8} \sfou \FO #'-1.7 #'-1.5 <b-0>4 e | % end of m. 9

    e4 e8. d16-4 d4 \times 2/3{c4 b8} 			  | % m. 10

    \times 2/3{a4 a8 b4 c8} 				    % beg of m. 11
  \sfou \FO #'-0.3 #'0.3 				    
    <d-4>4^\< \times 2/3{e4 <d f>8\!}			  | % end of m. 11
}

bass =  \relative c {
  \key d \major
  \time 4/4
  \voiceTwo
  \override Fingering #'staff-padding = #'()
    
    e,8\fp[ e'] e,[ e'] e,[ \sfol <c''-1> <a'-2> c,]  | % m. 1

    e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-0.2 <b''-1>  % beg m. 2
	\sfol \FO #'0.3 #'0.0 <e-2> b]  | % end m. 2

    e,,8 e' gis e e, e' gis_\dim e 	| % m. 3

    e,1 				| % m. 4

%% new section starts here in A minor
  \override TupletNumber #'stencil = ##f
  \override TupletBracket #'bracket-visibility = ##f
  \set tupletSpannerDuration = #(ly:make-moment 1 4)
  \once \override TextScript #'staff-padding = #1.7
    \times 2/3{a8\p[^\andantino e' a c a e ] a,[ e' a c a e ]} | % m. 5   

  \once \override DynamicText #'extra-offset = #'( -2.1 . 0.0 ) % beg m. 6
  \once \override TextScript #'staff-padding = #'()
  \once \override TextScript #'extra-offset = #'( 0.0 . 2.0 )
    \times 2/3{a,8[\p_\markup {\italic { "dol." } } e' a c a e]}  
    \times 2/3{e,8[ \sfou <e'-3> <gis-1> c gis e]} 	| % end m. 6

    \times 2/3{a,8[ <e'-2> a c e, b'] a,[ e' a c a e]}  | % m. 7

    \times 2/3{f,8[ f' a \sfol \FO #'0.3 #'-0.5 <d-4> a f] fis,[ d' a' d a d,]}  | % m. 8

    \times 2/3{<g,-3>8[ d' g d' g, d] 					  % beg m. 9
	\sfod \FO #'0.0 #'-2.0 <gis,-4>[ \sfou <e'-2> <gis-1> b gis e]} | % end m. 9

    \times 2/3{a,8[ e' a c a e] e,[ e' gis c gis e]} 			| % m. 10

    \times 2/3{a,8[ e' a b a e] f,[ f' a d a f]}			| % m. 11
}


\score {
    \context Staff = "guitar" << 
        \context Voice = "upper" { \melody }
        \context Voice = "lower"   { \bass }
    >>
    \layout { }
    
  \midi {
    \context {
      \Score
    }
  }
}



