\header {
    title =       "Etude 18"
    piece =       "Allegretto"
    opus =        "Op. 60, No. 18"
    composer =    "Matteo Carcassi"
    
    mutopiatitle = "Etude 18"
    mutopiacomposer = "CarcassiM"
    mutopiaopus = "O 60"
    mutopiainstrument = "Guitar"
    date = "19th C."
    source = "Not known"
    style = "Classical"
    copyright = "Public Domain"
    maintainer = "jeff covey"
    maintainerEmail = "jeff.covey@pobox.com"
    maintainerWeb = "http://pobox.com/~jeff.covey/"
    lastupdated = "2003/May/12"
}

%{ 
i know that 
piece = "tempo"
isn't correct, but it looks better than attaching it to the first
note.
%}

\version "1.7.28"

global = {
        \set Staff.midiInstrument = "acoustic guitar (nylon)"
        \set Staff.transposing = -12 % guitar music actually sounds an
					  % octave lower than written.
    \property Staff.instrument = "Guitar"
    \notes {
	\clef violin \time 6/8 \key a \major
	\repeat volta 2 { \skip 2.*16 }  
	\repeat volta 2 { \skip 2.*28 }  
    }
}

dim = \notes {
    #(ly:export (make-event-chord (list (make-span-event 'DecrescendoEvent START)))) 
    \property Voice.decrescendoText = #'((font-shape . italic) "dim.")
    \property Voice.decrescendoSpanner = #'nil
}
enddim = \notes {
    #(ly:export (make-event-chord (list (make-span-event 'DecrescendoEvent STOP)))) 
    \property Voice.decrescendoText \unset
    \property Voice.decrescendoSpanner \unset
}
cresc = \notes {
    #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START)))) 
    \property Voice.crescendoText = #'((font-shape . italic) "cresc.")
    \property Voice.crescendoSpanner = #'nil
}
endcresc = \notes {
    #(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent STOP)))) 
    \property Voice.crescendoText \unset
    \property Voice.crescendoSpanner \unset
}

melody = \notes \relative c''' {
    \stemUp
    
    \property Voice.TextSpanner \set #'style = #'nil
    \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
    \property Voice.TextSpanner \set #'edge-text = #'("rall. " . "")
    \property Voice.TextSpanner \set #'font-shape = #'italic
    
    cis8 d e  a, b cis  fis, gis a  d, e fis
    b, cis d  gis, e' d  cis d e a,4.
    
				% 5

    a8  d fis a a a a gis fis e4.
    a,8 d fis a a a a gis fis e4.
    r8 bis dis gis gis gis gis e dis cis4.
    r8 bis dis gis gis gis gis e dis cis4.
    fis,8 a d? fis gis a  gis, cis e e fisis gis
    gis, a gis fis e dis  cis e gis cis4 r8

				% 17

    cis'8_\f d e  ais, b cis  e, fis g  cis, d e
    r fis, ais  cis fis e  d e fis  b,4.
    b'8_\p cis d  gis, a b  d, e f  b, c d
    r e, gis  b e d  c d e  a,4.

				% 25

    r8 c a'  a a a  r c, e  g g g
    r a, f'  f f f  r a, c  e e e
    f, a d  e, a e'  d, a' f'  e, a e'
    dis2. e8 fis e d cis b

				% 33
    
}

bass = \notes \relative c' {
    \stemDown
    
    a2._\f d4 r8 b4 r8 gis4 r8 e4 r8 a2.

				% 5

    d2._\p a d a gis_\f cis gis_\sf cis

				% 13

    fis4_\fp s2 gis4 s2 gis,4_\f s2 cis4 s2

				% 17

    s2. s fis,_\sf b  s s e,_\sf a
    f' c d a  f'4. e d e
    <a8 f_\sf> a, b c b a  <e gis'> r r r4.

				% 33
}


\score {
    \context Staff = guitar < 
	\global 
	\context Voice=melody { \melody }
	\context Voice=bass   { \bass   }
    >
    \paper { }
    \midi  { \tempo 8=250 }
}