\header{
  lastupdated =  "Last changed: Wed 22 Jun 2005 01:43:05 PM EDT"
  filename =	 "bach-invention-01.ly"
  title =        "Invention 1"
  opus =         "BWV 772"
  composer =	 "Johann Sebastian Bach (1685-1750)"
  enteredby =	 "jeff covey, jeff.covey@pobox.com"
  copyright =	 "public domain"

  % needed by mutopia:
  
  mutopiainstrument = "Harpsichord,Piano"
  mutopiatitle =      "Invention 1"
  mutopiacomposer =   "J. S. Bach (1685-1750)"
  mutopiaopus =       "BWV772"
  date =              "1723"
  style =             "Baroque"
  maintainer =        "jeff covey <jeff.covey@pobox.com>"  
  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-2000/12/02-40"

}
  
\version "1.3.148"

% note: there should be a mark on the last chord to indicate that it
% is rolled (arpeggiated).  someone should add this when lily is capable
% of doing it.
    
% {{{ voiceone

voiceone = \notes \relative c' {
	r16 [c d e]  [f d e c] [g'8 c b^\prall c]
	[d16 g, a b] [c a b g] [d'8 g f^\prall g]
	[e16 a g f] [e g f a] [g f e d] [c e d f]
	[e d c b] [a c b d] [c b a g] [fis a g b]
	[a8 d,] [c'8.^\mordent d16] [b a g fis] [e g fis a]
	[g b a c] [b d c e] [d b32 c d16 g] [b,8^\prall a16 g]
	% 7
	g8 r r4 r16 [g a b] [c a b g]
	fis8^\prall r r4 r16 [a b c] [d b c a]
	b8          r r4 r16 [d c b] [a c b d]
	c8          r r4 r16 [e d c] [b d cis e]
	[d8 cis d e] [f a, b cis]
	[d fis, gis a] [b c] d4 ~
	[d16 e, fis gis] [a fis gis e] [e' d c e] [d c b d]
	[c a' gis b] [a e f d] [gis, f' e d] [c8 b16 a]
	% 15
	[a16 a' g f] [e g f a] g2 ~
	[g16 e f g]  [a f g e] f2 ~
	[f16 g f e]  [d f e g] f2 ~
	[f16 d e f]  [g e f d] e2 ~
	[e16 c d e] [f d e c] [d e f g] [a f g e]
	[f   g a b] [c a b g] [c8 g] [e d16 c]
	[c bes a g] [f a g bes] [a b c e,] [d c' f, b]
	<c1^\fermata g e>
	}

% }}}
% {{{ voicetwo

voicetwo = \notes \relative c {
	\clef "bass"
	r2          r16  [c d e] [f d e c]
	[g'8 g,] r4 r16 [g' a b] [c a b g]
	[c8 b c d] [e g, a b]
	[c e, fis g] [a b] c4 ~
	[c16 d, e fis] [g e fis d] [g8 b, c d]
	[e fis g e] [b8. c16] [d8 d,]
	% 7
	r16 [g a b] [c a b g] [d'8 g fis g]
	[a16 d, e fis] [g e fis d] [a'8 d c d]
	[g,16 \clef "treble" g' f e] [d f e g] [f8 e f d]
	[e16 a g f] [e g f a] [g8 f g e]
	[f16 bes a g] [f a g bes] [a g f e] [d f e g]
	[f e d c] [b d c e] [d c b a] [gis b a c]
	\clef "bass"
	[b8 e,] [d'8.^\mordent e16] [c b a g] [fis a gis b]
	[a c b d] [c e d f] [e8 a, e' e,]
	% 15
	[a8 a,] r4 r16 [e''16 d c] [b d cis e]
	d2 ~ [d16 a b c]   [d b c a]
	b2 ~ [b16 d c b]   [a c b d]
	c2 ~ [c16 g a bes] [c a bes g]
	[a8 bes a g] [f d' c bes]
	[a f' e d]   [e16 d, e f] [g e f d]
	[e8 c d e] [f16 d e f] [g8 g,]
	<c1 c,_\fermata>
	}

% }}}

\score {
	\notes \context GrandStaff < 
		\context Staff = one <
			\voiceone
		>
		\context Staff = two <
			\voicetwo
		>
	>

	\paper{
	%linewidth = 18.0 \cm
	}
	\midi { \tempo 4 = 80 }
}