\version "2.11.62"
#(set-global-staff-size 20) % 20 this is said to be standard for most scores
date = #(strftime "%Y.%m.%d" (localtime (current-time))) % define a variable to hold the formatted date
#(define RH rightHandFinger) %assigns value to RH

\header {
 % ***** centered  top *****
 %dedication="dedication" %centered above title, top of page one
 title = "Waltz for a dying day" %centered below dedication
 %subtitle = "subtitle" %centered below title
 subsubtitle = \markup { "(2008.10.18) - version" \date } %centered below subtitle
   %piece = "(piece)" %{ useful only with multi-piece set given Opus number; set flus left below meter %}
   instrument = "Classical Guitar"  %{ centered below the subsubtitle, and at the top of pages (other than the first page). %}

 % ***** flush right *****
 composer = \markup \center-column {"Tom Cloyd" \small "address@hidden" } %flush right
   %arranger = "{arranger}" %flush right below composer
 %opus = "{opus}" %flush right below arranger

 % ***** centered, bottom of page *****
   copyright = "© 2008 Tom Cloyd" %centered at the bottom of the first page
 tagline = \markup { \small "score set with Lilipond  (http://lilypond.org/web/)"} % centered at the bottom of the last page
}

\paper {
 #(set-default-paper-size "letter" 'portrait)
 ragged-last-bottom = ##t % turns off vertical justify
 left-margin = 0.6\in
 line-width = 7\in   % works better than specifying R-margin
 bottom-margin = 0.7\in
 top-margin = 0.7\in
}

% variables =====================================

% LH fingering orientations
   sfol = \set fingeringOrientations = #'(left)
   sfor = \set fingeringOrientations = #'(right)
   sfod = \set fingeringOrientations = #'(down)
   sfou = \set fingeringOrientations = #'(up)    
% RH  fingering orientations
   ssfol = \set strokeFingerOrientations = #'(left)
   ssfor = \set strokeFingerOrientations = #'(right)
   ssfod = \set strokeFingerOrientations = #'(down)
   ssfou = \set strokeFingerOrientations = #'(up)
%  string number orientations
   ssnol =  \set stringNumberOrientations = #'(left)  %(down right up)
   ssnou =  \set stringNumberOrientations = #'(up)
   ssnod =  \set stringNumberOrientations = #'(down)
   ssnor =  \set stringNumberOrientations = #'(right)
melody = \relative c' {
 \clef "treble_8"
 \key a \minor
 \time 3/4
 \tempo "Adagio" 4 = 50 %
 
\voiceOne                                                                                   
 \sfol %LH fingering placement
 \ssfor %RH fingering placement
 \ssnol %string number placement            
 \partial 4 s4 | 
 <c-2\3> b2-0 | 
 f'4 e2 |
 a4\rest < fis-3\2 d-4\3 >2 |  
 b2-1 < c-1 e,-2 >4 | % m4          
 e,2-0 < e gis,-1 >4 |
 \break   a,2-3 r4  |   
 r2. |
}

tenor = \relative c' {
 \voiceThree
 \stemDown
 \sfol %LH fingering placement
 \ssfor %RH fingering placement
 \ssnol %string number placement
 \partial 4 <e,-4\5>4^~ |
 \once \override NoteColumn #'force-hshift = #1.2 e2 e4^~ |
 \once \override NoteColumn #'force-hshift = #1.6 < b' e,  >2 <a-2\3>4 |
 <a-3\4>2 < e' gis, >4 | 
 c4\rest < a'-4\2 c,-3\3 >2 | % m4
 < c,-2\3 e,-4\5 >4 < b-0 d,-0 >2 | 
 r4 <b fis-4 >4 < gis-1 e-2>   
}                                                                                    

bass = \relative c {
 \voiceTwo  \sfol %LH fingering placement
 \ssfor %RH fingering placement
 \ssnol %string number placement                     
 \stemDown  \partial 4 s4 | 
 d2.-0 | 
 c2.-3 |  
 \once \override NoteColumn #'force-hshift = #1.2 
 e,2. | 
 a2. | % m4
 e2.\rest | 
 e2. |
}                                                                                                                                           
\score {
 \context Staff = "guitar" \with {
 \consists "Span_arpeggio_engraver"
 }
 <<                         %\set Staff.instrumentName="Classical Guitar"  %puts name to left of line one
   \set Staff.midiInstrument="acoustic guitar (nylon)"
   \set Staff.connectArpeggios = ##t
   \context Voice = "melody" \melody
   \context Voice = "tenor" \tenor
   \context Voice = "bass" \bass
 >>
  \layout {
    indent = 0.0\cm % remove indent on first staff
  }

  \midi { %causes generation of midi score
  }
}