#(ly:set-option 'old-relative)
\header {
  lastupdated = "Last changed: Wed 22 Jun 2005 01:43:45 PM EDT"
  filename =    "carcassi-op60-04.ly"
  title =       "Etude 4"
  piece =       "Allegretto"
  opus =        "Op. 60 No. 4"
  composer =    "Matteo Carcassi (1792-1853)"

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

  % needed by mutopia:

  mutopiainstrument =  "Guitar"
  mutopiacomposer =    "Matteo Carcassi (1792-1853)"
  date =               "19th C."
  style =              "Classical"
  copyright =          "public domain"  
  maintainer =         "jeff covey <jeff.covey@pobox.com>"
  tagline =            "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by jeff covey.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!"
}

\version "2.4.0"

global =  { \time 2/4 \key d \major}

melody =  \context Voice = "melody" \relative c'' {
  \stemUp
  \transposition c

  % this means i only have to type \times 4/6 once.  nice!  :)
  \set tupletSpannerDuration = #(ly:make-moment 1 4)
  % put the slurs on the tops of the beams.
  \override Slur   #'direction = #1


  \times 4/6 {
  r16 fis a  b( a) fis b( a) fis   b( a) fis

  % turn off the number above the tuplets now.
  \override TupletBracket   #'number-visibility = ##f
  \override TupletBracket   #'bracket-visibility = ##f

  r d fis  g( fis) d g( fis) d g( fis) d
  r e g  a( g) e a( g) e a( g) e
  r cis e fis( e) cis fis( e) cis fis( e) cis

  % 5
  r d fis g( fis) d r d gis a( gis) d
  r cis a' b( a) cis, r d b' cis( b) d,
  r cis e fis( e) cis r d gis a( gis) d
  r e'( cis) a e cis

   }

  a8 r

  % 9
  \times 4/6 {
  r16 cis e fis( e) cis fis( e) cis fis( e) cis
  r c e fis( e) c fis( e) c fis( e) c
  r b e fis( e) b r b fis' g( fis) b,
  r b g' a( g) b, a'( g) b, a'( g) b,
  % 13
  r g' b c( b) g c( b) g c( b) g
  r cis, e fis( e) cis fis( e) cis fis( e) cis
  r fis a b( a) fis cis, e' g d, d' fis
  r cis e fis( e) cis
   }
  a4

  % 17
  \times 4/6 {
  r16 fis' a b( a) fis b( a) fis b( a) fis
  r fis d' e( d) fis, e'( d) fis, e'( d) fis,
  r e g a( g) e a( g) e a( g) e
  r g e' fis( e) g, fis'( e) g, fis'( e) g,
  r d fis g( fis) d d, cis' e d, c' fis
  r b, g' a( g) b, r g' b c( b) g
  r cis, e fis( e) cis r cis a' b( a) cis,
  r a'( fis) d a fis
   }
  d8 r

}

bass =  \context Voice = "bass" \relative c' {
  \stemDown
  \transposition c

  d2 d a a d4 e, a d e e, a a'8 r
  % 9
  a,2 a b4 dis e2 e, a d4  cis8[ d] a4 a'
  d,2 d a a d4  d8[ d] g4 e a a, d d8 r

}

        
\score {
      \context Staff = "guitar" << 
        \global 
        \context Voice = "melody" { \melody }
        \context Voice = "bass"   { \bass   }
      >>
  \layout {
        
  }
}
\score {
      \context Staff = "guitar" << 
        \set Staff.midiInstrument = "acoustic guitar (nylon)"
        \set Staff.transposing = -12 % guitar music actually sounds an
					  % octave lower than written.
	\global 
        \melody
        \bass
      >>
  \midi {
    \tempo 4=74
  }
}

% EOF