#(ly:set-option 'old-relative)
\header {
  lastupdated = "Last changed: Wed 22 Jun 2005 01:43:49 PM EDT"
  filename =    "carcassi-op60-08.ly"
  title =       "Etude 8"
  piece =       "Allegretto grazioso"
  opus =        "Op. 60 No. 8"
  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.6.0"


% {{{ global stuff

globalA =  {
  \clef violin \time 4/4 \key a \major \skip 1*8 \bar "|."
}
globalB =  {
  \skip 1*8 \bar "||" \key c \major
}
globalC =  {
  \bar "||" \key a \major \skip 1*8
}
midiStuff = \context Staff = "guitar" {
        \set Staff.midiInstrument = "acoustic guitar (nylon)"
        \transposition c
}

% }}}
% {{{ melody

melodyA =  \relative c'' {
  \stemUp
   bis16[( cis) bis( cis)]  fis8[ e]  dis16[( e) dis16( e)]  b'8[ a]
   gis[ d'16( cis)]  b[( a) gis( fis)]  e8[ gis16( fis)]  e[( d) cis( b)]
   bis16[( cis) bis( cis)]  fis8[ e]  cisis16[( dis) cisis16( dis)]  gis8[ fis]
   e[ fis16 gis]  a[( b) cis dis] e4 r
  %5
   bis,16[( cis) bis( cis)]  fis8[ e]  dis16[( e) dis16( e)]  b'8[ a]
   eis16[( fis) eis( fis)]  cis'8[ b]  ais16[( b) ais( b)]  e8[ d]
   cis8[ d16( cis)]  b[( a) gis( fis)]  e8[ gis16( fis)]  e[( d) cis( b)]
   a[ b cis( d)]  e[ fis gis a] a,4 r
}
melodyB =  \relative c {
  \stemUp
   e8[ fis16( gis)]  a[ b( cis) dis]  e8[ gis]  cis16[( b) cis( b)]
  <b a>8[ b16 cis]  dis[( e) fis gis] a4 r
   b,,8[ cis16 dis]  e[( fis) gis( a)]  b8[ dis]  gis16[( fis) gis( fis)]
   e8[ fis16 gis]  a[( b) cis dis] e4 r
  %13
   fisis,16[( gis) fisis( gis)]  a8[ gis]  gis[ bis] dis4
   fisis,16[( gis) fisis( gis)]  a8[ gis]  gis[ cis] e4
   fis,8[ a] cis4  dis,8[ fis] b4
   e,8[ fis16 gis]  a[( b) cis dis]  e8[ e, e e]
  %21
   e16[( f) e( f)]  a8[ g]  e[ c g e]
   e16[( f) e( f)]  a8[ g]  f[ d b g]
   c[ g']  fis16[( g) fis( g)]  d8[ g]  fis16[( g) fis( g)]
   e8[ g]  fis16[( g) fis( g)]  b[( c) b( c)]  dis[( e) dis( e)]
  <e d>8[ gis]  fisis16[( gis) fisis( gis)] <e d>8[ b']  ais16[( b) ais( b)]
  <c, e>8[ a']  gis16[( a) gis( a)] <c, e>8[ c']  b16[( c) b( c)]
  <dis a>8[ <dis a>]  fis,,[ <dis'' a>] <dis a>[ c, b a]
  %24
  <e' gis,>[ e]  f16[( e) f( e)]  e8[ e']  e,,,[ <d''' b>]
  <c a>[ e,]  f16[( e) f( e)]  e8[ c']  e,,,[ <a'' dis, c >]
  <gis e b>[ e]  f16[( e) f( e)]  fis[( e) fis( e)]  gis[( e) gis( e)]
   b'[( e,) e e]  d'[( e,) e e]  fis[( e) d( b)]  gis[ e( d) b]
}

% }}}
% {{{ bass

bassA =  \relative c' {
  \stemDown
  a2 a e e a fis' e,2. \skip 4*1
  a2 a d d e, e a a4 \skip 4*1
}
bassB =  \relative c {
  \stemDown
  \skip 4*3
  < e' gis >4 fis8 \skip 8*1 \skip 4*3
  r2 r4 < a b>4 < gis b >8 \skip 8*1 \skip 4*3
  %13
  r2 <bis dis>8 r8 r4 r2 <cis e>8 r8 r4
  <a, cis'>8 r8 r4 <b a'>8 r8 r4 <e gis>8
  \skip 8*1 \skip 4*3
  %21
  \skip 1*2
  e,4 r g r c \skip 4*3 e,2 e a a fis'4 fis  fis8[ c d dis]
  e,2. e4 e2. e4 e1 \skip 1*1
}

% }}}
        
aSectionMusic = <<
        \globalA
        \context Voice = melodyVoiceA { \melodyA }
        \context Voice = bassVoiceA { \bassA }
>>
aSectionFingerings = 	<<
%	\context Voice = melodyVoiceA { \fingeringsMelodyA }
%	\context Voice = bassVoiceA { \fingeringsBassA }
      >>

bSectionMusic = <<
        \globalB
	\context Voice = melodyVoiceB { \melodyB }
	\context Voice = bassVoiceB { \bassB }
>>
bSectionFingerings = <<
%	\context Voice = melodyVoiceB { \fingeringsMelodyB }
%	\context Voice = bassVoiceB { \fingeringsBassB }
>>

cSectionMusic = <<
        \globalC
        \context Voice = melodyVoiceA { \melodyA }
        \context Voice = bassVoiceA { \bassA }
>>

%% dvi output =  with fingerings
%\score {
%    \context Staff = "guitar" <<
%    { 
%      \aSectionMusic
%      \bSectionMusic
%      \cSectionMusic
%    }
%    { 
%      \aSectionFingerings
%      \bSectionFingerings 
%    }
%  >>
%  \layout {
%    output =  "carcassi-op60-08"
%  }
%}

% dvi output without fingerings
 \score {
     \context Staff = "guitar"      { 
       \aSectionMusic
       \repeat volta 2 {
         \bSectionMusic
         \cSectionMusic
       }
     }
   \layout {
%     output =  "carcassi-op60-08-urtext"
   }
}
 
%{
here i make a separate \score command so that the midi output =  follows
the actual course of the music, with the second section repeated.
%}
\score {
  { 
    \midiStuff
    \aSectionMusic
    \bSectionMusic
    \cSectionMusic
    \bSectionMusic
    \cSectionMusic
  }
  \midi { \tempo 4 =120 }
}