\header {
- filename = "wtk1-fugue2.ly";
- title = "Fuga a 3";
- description = "Das Wohltemperierte Clavier I, Fuga II (c-minor)";
+ title = "Fuga a 3 voci";
opus = "BWV 847-Fuga";
source = "Henle's Urtext";
composer = "Johann Sebastian Bach (1685-1750)";
- enteredby = "HWN, WL";
- copyright = "Public Domain";
-}
+ enteredby = "hwn, wl, jcn";
+
+ % mutopia headers.
+ mutopiatitle = "Das Wohltemperierte Clavier I, Fuga II (c-minor)";
+ mutopiacomposer = "J.S.Bach";
+ mutopiaopus = "BWV847";
+ style = "baroque";
+ copyright = "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
+ maintainer = "hanwen@cs.uu.nl";
+ lastupdated = "1999/Oct/14";
+
+ }
+
-%{
- Tested Features: stem direction, multivoice, forced accidentals.
-%}
+% It would be nice to squeeze this onto two pages, but I am not sure
+% if it would work with US paper.
-\version "1.0.14";
+\version "1.2.13";
\include "nederlands.ly" % for correct parsing of note names
\bar "|."; |
}
-dux = \notes \relative c''{
+dux = \context Voice=two \notes \relative c''{
\voicetwo
\clef violin;
- \property Voice.ydirection = "-1"
+ \property Voice.verticalDirection = "-1"
- r8 [c16 b] [c8 g] [as c16 b] [c8 d ] |
- [g, c16 b] [c8 d ] [f,16 g] as4 [g16 f] |
- [es c' b a] [g f! es d] [c8 es' d c ] |
- [bes a bes c ] [fis, g a fis] |
+ r8 c16 b c8 g as c16 b c8 d |
+ g, c16 b c8 d f,16 g as4 g16 f |
+ es c' b a g f! es d c8 es' d c |
+ bes a bes c fis, g a fis |
%%5
- g4 r16 [c, d es] [f g as8~] [as16 d, es f] |
- [g a bes8] ~ [bes16 es, f g] [as g f es] [d8 c'16 b!] |
- % forced accident!
- c4 r4 r8 [f es d ] |
- r8 [as g f] [g f16 es] [f8 d] |
- g4 r8 b [c c16 b] [c8 g] |
-%%10
- as4 r8 a [bes bes16 a] [bes8 f] |
- g4 r8 g [as as g f] |
+ g4 r16 c, d es f g as8~ as16 d, es f |
+ g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! |
+ % forced accident!
+ c4 r4 r8 f es d |
+ r8 as g f g f16 es f8 d |
+ g4 r8 b c c16 b c8 g |
+%%10
+ as4 r8 a bes bes16 a bes8 f |
+ g4 r8 g as as g f |
+ r8
\translator Staff = bass \stemup
- r8 [as, bes c ] r8 [as16 g] [as8 f8] |
- [bes8 c bes as] [bes g f es] |
- [f des' c bes] [c as g f] |
+ as, bes c r8 as16 g as8 f8 |
+ bes8 c bes as bes g f es |
+ f des' c bes c as g f |
%%15
g8
- \translator Staff = treble \stemdown
- [g'16 fis] [g8 c,] [es g16 fis!] [g8 a] |
- [d, g16 fis] [g8 a!] [c,16 d] es4 [d16 c] | % forced accident!
- bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e, f g] |
- [a bes c8] ~ [c16 fis,16 g a] [bes8 es,!16 d] [es8 g, ] |
- [as f'16 es] [f8 a,8] [bes g'16 f] [g8 b, ] |
+ g'16 fis g8 c,
+ es \translator Staff = treble \stemdown g16 fis! g8 a |
+ d, g16 fis g8 a! c,16 d es4 d16 c | % forced accident!
+ bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g |
+ a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, |
+ as f'16 es f8 a,8 bes g'16 f g8 b, |
%%20
- [c16 f es d] [c bes! as g] [f8 as' g f] |
- [es d es f] [b, c d b] |
- c4 r8 e8 [f f16 e] [f8 c] |
- d4 r8 d8 [es8 es16 d] [es8 bes] |
- c2 ~ [c8 d16 es] [f es f d] |
+ c16 f \translator Staff = bass \stemup es d c bes! as g
+ f8 \translator Staff = treble \stemdown as' g f |
+ es d es f b, c d b |
+ c4 r8 e8 f f16 e f8 c |
+ d4 r8 d8 es8 es16 d es8 bes |
+ c2 ~ c8 d16 es f es f d |
%%25
b8 r8 r b c r r es |
d r r f ~ f r r f |
- [es as g f] [es d es f] |
- [b, c d b] [b c] r c |
- [f16 d es c] ~ [c8 b] c4 r8 e |
+ es as g f es d es f |
+ b, c d b b c r c |
+ f16 d es c ~ c8 b c4 r8 e |
%%30
- f4 r8 f [f es16 d] [es8 <f as>] |
+ f4 r8 f f es16 d es8 <f as> |
<b, d> r <b d> r <g2 c> |
}
-comes = \notes \relative c'' {
+comes = \context Voice=one \notes \relative c'' {
\voiceone
- r1 |
- r1 |
- r8 [g'16 fis] [g8 c,] [es g16 fis] [g8 a] |
- [d,8 g16 fis] [g8 a] [c,16 d] es4 [d16 c] |
+ R1 |
+ R1 |
+ r8 g'16 fis g8 c, es g16 fis g8 a |
+ d,8 g16 fis g8 a c,16 d es4 d16 c |
%%5
- [bes8 es16 d] [es8 g,8] [as f'16 es] [f8 a, ]
- [bes8 g'16 f] [g8 b, ] [c8 d16 es] f4 ~ |
- [f8 es16 d] [c16 bes ! as g ] [f8 as' g f]
- [es d es f] [b, c d b ] |
- [c g'16 fis] [g8 d] es4 r8 e8 |
+ bes8 es16 d es8 g,8 as f'16 es f8 a,
+ bes8 g'16 f g8 b, c8 d16 es f4 ~ |
+ f8 es16 d c16 bes ! as g f8 as' g f
+ es d es f b, c d b |
+ c g'16 fis g8 d es4 r8 e8 |
%%10
- [f f16 e] [f8 c8] d4 r8 d |
- [es8 es16 d] [es8 bes ] [c es16 d] [es8 f] |
- [bes, es16 d] [es8 f] [as,16 bes ] c4 [bes16 as ] |
- \stemboth [g16 es f g] [as bes c d] [es d c d] [es f g a] |
- [bes f, g as] [bes c d e] [f es d es] [ f g a b] |
+ f f16 e f8 c8 d4 r8 d |
+ es8 es16 d es8 bes c es16 d es8 f |
+ bes, es16 d es8 f as,16 bes c4 bes16 as |
+ \stemboth g16 es f g as bes c d es d c d es f g a |
+ bes f, g as bes c d e f es d es f g a b |
%%15
- \stemup [c8 b16 a] [g f! es d] [c8 es d c] |
- [bes a bes c] [fis,! g a fis] | % forced accident
- [g8 d'16 c] d8 r8 r8 [e16 d] e8 r8 |
- r [fis16 e] fis8 r r [g,16 f] g8 r8 |
- r8 [a16 g] a8 r r [b16 a] b8 r |
+ \stemup c8 b16 a g f! es d c8 es d c |
+ bes a bes c fis,! g a fis | % forced accident
+ g8 d'16 c d8 r8 r8 e16 d e8 r8 |
+ r fis16 e fis8 r r g,16 f g8 r8 |
+ r8 a16 g a8 r r b16 a b8 r |
%%20
- r8 [c16 b ] [c8 g ] [as c16 b ] [c8 d] |
- [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
- [es8 c'16 b] [c8 g] as4 r8 a |
- [bes8 bes16 a] [bes8 f8] g4 r8 g ~ |
- [g as16 bes] [c b c as] f2 ~ |
+ r8 c16 b c8 g as c16 b c8 d |
+ g, c16 b c8 d f,16 g as4 g16 f |
+ es8 c'16 b c8 g as4 r8 a |
+ bes8 bes16 a bes8 f8 g4 r8 g ~ |
+ g as16 bes c b c as f2 ~ |
%%25
- [f8 d'16 c] [d8 f,] [es es'16 d] [es8 g,] |
- [f f'16 es] [f8 as,] [g16 f' es d] [c b a g] |
- [c8 f es d] r [as g f] |
- [g f16 es] [f8 d] [as' g] r a |
- [b c] [f,16 es d c] c8 [c'16 b] [c8 g] |
+ f8 d'16 c d8 f, es es'16 d es8 g, |
+ f f'16 es f8 as, g16 f' es d c b a g |
+ c8 f es d r as g f |
+ g f16 es f8 d as' g r a |
+ b c f,16 es d c c8 c'16 b c8 g |
%%30
- [as c16 b] [c8 <d b ! as !>] [g,8 c16 b] [c8 d] |
- [f,16 g] as4 [g16 f] e2 |
+ as c16 b c8 <d b ! as !> g,8 c16 b c8 d |
+ f,16 g as4 g16 f e2 |
}
-
-bassdux = \notes \relative c' {
+bassdux = \context Voice=three \notes \relative c' {
\clef bass;
-
- r1 |
- r |
- r |
- r |
+ R1 |
+ R |
+ R |
+ R |
%%5
- r |
- r1 |
- r8 [c16 b] [c8 g] [as c16 b] [c8 d] |
- [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
- [es c' b a] [g f es d] [c d es d] [c bes! as! g] |
- % -> \classic_accidentals
+ R |
+ R1 |
+ r8 c16 b c8 g as c16 b c8 d |
+ g, c16 b c8 d f,16 g as4 g16 f |
+ es c' b a g f es d c d es d c bes! as! g |
+ % -> \classic_accidentals
%%10
- [f bes' as g] [f es d c] [bes c d c] [bes as g f] |
- [es as' g f] [es des c bes] [as8 c' bes as] |
- [g8 f g as] [d, es f d] |
- [es as g f] [g es d c] |
- [d bes' as g] [as f es d!] |
+ f bes' as g f es d c bes c d c bes as g f |
+ es as' g f es des c bes as8 c' bes as |
+ g8 f g as d, es f d |
+ es as g f g es d c |
+ d bes' as g as f es d! |
%%15
- es8 r8 r4 r8 [c bes a] |
- r [es' d c] [d c16 bes] [c8 d] |
- [g,8 bes'16 a] [bes8 d,] [es c'16 bes] [c8 e,] |
- [f d'16 c ] [d8 fis,] g4 r16 [g, a b] |
- [c16 d es8~] [es16 a, bes c] [d es f8~] [f16 b, c d] |
-%%20
- es8 r r e [f f, es! d] | % -> \classic_accidentals
- r [as' g f] [g f16 es] [f8 g] |
- [c16 d es d] [c bes as g] [f bes' as g] [f es d c] |
- [bes c d c] [bes as g f] [es as' g f] [es d c bes] |
- [as bes c bes] [as g f es] [d g' f es] [d c b a] |
+ es8 r8 r4 r8 c bes a |
+ r es' d c d c16 bes c8 d |
+ g,8 bes'16 a bes8 d, es c'16 bes c8 e, |
+ f d'16 c d8 fis, g4 r16 g, a b |
+ c16 d es8~ es16 a, bes c d es f8~ f16 b, c d |
+%%20
+% es8 r r e f f, es! d | % -> \classic_accidentals
+ es8 r r e \stemdown f f, es! d \stemboth |
+ r as' g f g f16 es f8 g |
+ c16 d es d c bes as g f bes' as g f es d c |
+ bes c d c bes as g f es as' g f es d c bes |
+ as bes c bes as g f es d g' f es d c b a |
%%25
- g4 r4 r16 [g a b] [c d es f] |
- [g f as g] [f es d c] [b8 c16 b] [c8 g] |
- [as c16 b] [c8 d] [g, c16 b] [c8 d] |
- [f,16 g] as4 [g16 f] es4 r8 es' |
- [d c g' g,]
+ g4 r4 r16 g a b c d es f |
+ g f as g f es d c b8 c16 b c8 g |
+ as c16 b c8 d g, c16 b c8 d |
+ f,16 g as4 g16 f es4 r8 es' |
+ d c g' g,
%%30
- %urg
- %using only \type Staff or \voiceone/two don't work anymore?
- %moreover, the ties are not fooled by this anymore
- \type Staff <
- {\voiceone c2 ~ | c1 ~ | c1 }
- {\voicetwo c,2 ~ | c1 ~ | c1 }
+ \context Staff=bass <
+ {\stemup c2 ~ | c1 ~ | c1 }
+ \context Voice=four {\stemdown c,2 ~ | c1 ~ | c1 }
>
}
-
\score {
- \type GrandStaff <
- \type Staff = treble <
- \global
- \dux
- \comes
- >
- \type Staff = bass <
- \global
- \bassdux
- >
+ \context PianoStaff <
+ \context Staff = treble <
+ \global
+ \dux
+ \comes
+ >
+ \context Staff = bass <
+ \global
+ \bassdux
+ >
>
- \paper {
- gourlay_maxmeasures = 4.;
- indent = 8.\mm;
- textheight = 295.\mm;
-
- %hmm
-% \translator { \BarNumberingScoreContext }
-% \translator { \BarNumberingStaffContext }
- \translator{ \OrchestralScoreContext }
- }
- \header{
- opus = "BWV 847";
- }
+ \paper {
+ linewidth = 18.0 \cm;
+ \translator{ \OrchestralScoreContext }
+ }
+ \header{
+ opus = "BWV 847";
+ }
- \midi {
- \tempo 4 =84;
- }
+ \midi {
+ \tempo 4 =84;
+ }
}
-% EOF