%\include "paper20.ly"

\header {
  title = "Sinfonia 7" 
  composer = "Johann Sebastian Bach"
  opus = "BWV 793"
  mutopiatitle = "Sinfonia 7"
  mutopiacomposer = "J. S. Bach (1685-1750)"
  mutopiaopus = "BWV 793"
  mutopiainstrument = "Piano, Harpsichord"
  style = "Baroque"
  copyright = "Public Domain"
  maintainer = "Olivier Vermersch"
  lastupdated = "07/february/2002"

  tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small \\\\This music is part of the Mutopia project, \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset and placed in the public domain by " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}"
  footer = "Mutopia-2002/02/07-175"
}

\version "1.4.9"

%
% a few macros for fine tuning
%

% force direction of stems
u = \stemUp
d = \stemDown
b = \stemBoth


% force direction of tie
tu = \tieUp
td = \tieDown
tb = \tieBoth


% explicit staff change 
su = \notes{ \translator Staff = up}
sd = \notes{ \translator Staff = down}


% vertical shifting of rests
rupone   = \property Voice.Rest \override #'staff-position = #1
ruptwo   = \property Voice.Rest \override #'staff-position = #2
rupthree = \property Voice.Rest \override #'staff-position = #3
rupfour  = \property Voice.Rest \override #'staff-position = #4
rupfive  = \property Voice.Rest \override #'staff-position = #5
rupsix   = \property Voice.Rest \override #'staff-position = #6

rdwnone   = \property Voice.Rest \override #'staff-position = #-1
rdwntwo   = \property Voice.Rest \override #'staff-position = #-2
rdwnthree = \property Voice.Rest \override #'staff-position = #-3
rdwnfour  = \property Voice.Rest \override #'staff-position = #-4
rdwnfive  = \property Voice.Rest \override #'staff-position = #-5
rdwnsix   = \property Voice.Rest \override #'staff-position = #-6

rdft = \property Voice.Rest \revert #'staff-position


% same for multimeasure rests
Rupone   = \property Voice.MultiMeasureRest \override #'staff-position = #1
Ruptwo   = \property Voice.MultiMeasureRest \override #'staff-position = #2
Rupthree = \property Voice.MultiMeasureRest \override #'staff-position = #3
Rupfour  = \property Voice.MultiMeasureRest \override #'staff-position = #4
Rupfive  = \property Voice.MultiMeasureRest \override #'staff-position = #5
Rupsix   = \property Voice.MultiMeasureRest \override #'staff-position = #6

Rdwnone   = \property Voice.MultiMeasureRest \override #'staff-position = #-1
Rdwntwo   = \property Voice.MultiMeasureRest \override #'staff-position = #-2
Rdwnthree = \property Voice.MultiMeasureRest \override #'staff-position = #-3
Rdwnfour  = \property Voice.MultiMeasureRest \override #'staff-position = #-4
Rdwnfive  = \property Voice.MultiMeasureRest \override #'staff-position = #-5
Rdwnsix   = \property Voice.MultiMeasureRest \override #'staff-position = #-6

Rdft = \property Voice.MultiMeasureRest \revert #'staff-position

% horizontal shifting to avoid note collision
rshift    = \property Voice.NoteColumn \override #'force-hshift = #1
rrshift   = \property Voice.NoteColumn \override #'force-hshift = #2
rrrshift  = \property Voice.NoteColumn \override #'force-hshift = #3
rrrrshift = \property Voice.NoteColumn \override #'force-hshift = #4

lshift    = \property Voice.NoteColumn \override #'force-hshift = #-1
llshift   = \property Voice.NoteColumn \override #'force-hshift = #-2
lllshift  = \property Voice.NoteColumn \override #'force-hshift = #-3
llllshift = \property Voice.NoteColumn \override #'force-hshift = #-4

dftshift = \property Voice.NoteColumn \revert #'force-hshift



melone = \notes \relative c'' {
  % bars 1-4
  \u r8 [b e fis] g4 ~  |
  g8 fis a g fis e  |
  dis16 cis b cis d8 e fis4 ~ |
  fis8 e g fis e d | 

  % bars 5-9
  cis cis fis g! a4 ~  |
  a8 fis a g fis e |
  dis fis g a b g |
  e4. [e8 fis g]  |
  a4 g2 ~ | 

  % bars 10-13
  g8 e g fis e d  |
  cis4. [d8 e fis] |
  g4 fis8 e d4 ~ |
  d8 cis e d cis b | 
 
  % bars 14-17
  b4 \ruptwo r \rdft r |
  \Rupfour R2. \Rdft |
  \ruptwo r8 \rdft [fis b cis] d!4 ~  |
  d8 cis e d cis b | 

  % bars 18-21
  ais16 fis' e d cis fis cis b ais cis ais gis |
  fis4 r fis' ~ |
  fis16 b g fis e g e d cis g' cis, b |
  a4 r e' ~ | 

  % bars 22-24
  e16 a fis e d fis d cis b fis' b, a |
  \llshift g2. \dftshift ~ |
  g2. | 

  % bars 25-27 
  fis8 a d e fis4 ~ |
  fis8 e g fis e d |
  cis16 e a g fis a fis e d a' d, cis | 

  % bars 28-30
  b d g fis e g e d cis g' cis, b |
  a2 ~ a16 a g fis |
  g e ais b cis fis, cis' d e fis g e | 

  % bars 31-33
  \d fis g fis e d fis d cis b f' b, a! |
  \u gis fis! gis a b gis b c \d d gis, d' e |
  f b e, d c e c b a e' a, g! | 

  % bars 34-36
  \u fis!16 e fis g a fis a b c fis, c' d |
  \d ees a ees d c ees c bes \u a c a g |
  fis e dis e fis dis fis g a dis, a' b! | 

  % bars 37-40
  c8 b e fis g4 ~ |
  g8 fis a g fis e |
  dis4 d2 ~ |
  d8 gis, a b c4 ~ | 

  % bars 41-44
  c8 e a b c4 ~ |
  c16 b a g fis a dis, e fis4 ~ |
  fis16 b dis, e e4 dis-\trill |
  e2.-\fermata \bar "|."
}

meltwo = \notes \relative c' {
  % bars 1-4
  \d \Rdwnfour R2. |
  R2. \Rdft |
  r8 [fis b cis!] d4 ~ |
  d8 cis e d cis b |

  % bars 5-9
  ais16 gis fis gis a8 b c4 ~ |
  c8 a c b a g |
  fis4 r8 [b e d!] |
  cis4. [cis8 dis e] |
  fis4. [b,8 e d!] |

  % bars 10-13
  cis4. [d8 cis b] |
  ais4. [b8 cis! d] |
  e8 d cis4. fis,8 |
  b2 ais4 |

  % bars 14-17
  b8 b, e fis g4 ~ |
  g8 fis a g fis e |
  dis4 r8 fis b16 a g fis |
  e4. [fis8 g e] |

  % bars 18-21
  cis fis, cis' d e4 ~ |
  e16 g! fis e d fis d cis b fis' b, a! |
  g4 \rdwnfour r \rdft g' ~ |
  g16 g e d cis e cis b a e' a, g |

  % bars 22-24
  \sd \u fis4 \su \d r fis' ~ |
  fis8 e16 d cis e cis b a8 b  |
  cis8 a16 b cis8 e a, cis |

  % bars 25-27
  d \sd \u d,16 e fis d fis g a d, a' b  |
  cis a cis \su \d d e a, e' fis g a b g |
  a2. |

  % bars 28-30
  g2. ~ |
  g16 g fis e d fis d cis b4 ~ |
  b8 \rdwntwo r r4 \rdft \rdwnfour r \rdft |

  % bars 31-33
  \sd \u \tu \ruptwo r8 \rdft [fis b cis] d4 ~ |
  d8 b d c! b a |
  gis e a b c4 ~ |

  % bars 34-36
  c8 a c b a g  |
  fis4. g8 a4 ~ |
  [a8 g] [c b a g] |

  % bars 37-40
  fis4 r \su \d r8 b'  |
  e d! c b a g |
  fis c' b a gis b |
  e,4 [fis!8 gis!] [a e] |

  % bars 41-44
  a b c e a g |
  fis4 r r16 c b a |
  g4 fis8 g a4 |
  gis2. |
}

melthree = \notes \relative c {
  % bars 1-4
  \u e8 e, \d r [b'' e d] |
  c4. [b8 a c] |
  b4. [a8 g fis] |
  e4. [fis8 g e] |

  % bars 5-9
  fis4 ~ fis16 g! a g fis e dis e |
  dis4 r8 \u [e c a] |
  b \clef G b' e fis g4 ~ |
  g8 fis a g fis e  |
  dis b e d cis b |

  % bars 10-13
  ais4. [b8 cis d] |
  e16 d e fis g8 fis e d |
  \clef F \d cis b ais fis b a |
  g e fis4 \u fis, \d

  % bars 14-17
  b16 fis' b a! g b g fis e b' e, d |
  c g' e d \u c e c b a b c a \d |
  b g' fis e d! fis d cis \u b fis' b, a |
  g d' b a g b g fis e fis g e |

  % bars 18-21
  \d fis8 fis' ais b cis fis,  |
  b4 r8 \u [b, cis d] \d |
  e4 r8 [fis e d] |
  \u cis4 r8 [a b cis] \d |

  % bars 22-24
  d4 r8 [e d cis] |
  b16 b' g fis e g e d cis g' cis, b |
  \u a e' cis b a cis a g fis cis' fis, e |

  % bars 25-27
  d8 r \rdwntwo r4 \rdft \rdwnfour r \rdft |
  \Rdwntwo R2. \Rdft |
  r8 [a'8 d e] \d fis4 ~ |

  % bars 28-30
  fis8 e g fis e d  |
  \u cis fis, b cis \d d4 ~ |
  \u d8 cis e d cis b \d |

  % bars 31-33
  ais4 b \rdwntwo r8 \rdft d |
  e d f e d c |
  b gis a4 \rdwnfour r8 \rdft c |

  % bars 34-36
  d c e d c a |
  d a d e! fis4 ~ \td |
  fis8 e a g fis e |

  % bars 37-40
  dis4 r8 [b e d] |
  \u c2. \d ~ \tu |
  c16 c' b a gis b gis fis e b' e, d |
  c f e d \u c e c b a e' a, g! |

  % bars 41-44
  fis d' c b a c a g fis c' fis, e |
  dis4 r r |
  e b'2  |
  e,2.-\fermata |
}


\score {
\context PianoStaff
\notes
<
  \context Staff = "up"   <
    \time 3/4 \key e \minor \clef G 
    \context Voice = VA { \voiceOne \melone }
    \context Voice = VB { \voiceTwo \meltwo }>

  \context Staff = "down" <
    \time 3/4 \key e \minor \clef F \melthree>
>
\midi {\tempo 4=80}
\paper {}
}