2 filename = "wtk1-fugue2.ly";
4 description = "Das Wohltemperierte Clavier I, Fuga II (c-minor)";
6 source = "Henle's Urtext";
7 composer = "Johann Sebastian Bach (1685-1750)";
9 copyright = "Public Domain";
13 Tested Features: stem direction, multivoice, forced accidentals.
18 \include "nederlands.ly" % for correct parsing of note names
23 \property Staff.timeSignatureStyle = "C"
28 dux = \notes \relative c''{
32 \property Voice.ydirection = "-1"
34 r8 [c16 b] [c8 g] [as c16 b] [c8 d ] |
35 [g, c16 b] [c8 d ] [f,16 g] as4 [g16 f] |
36 [es c' b a] [g f! es d] [c8 es' d c ] |
37 [bes a bes c ] [fis, g a fis] |
39 g4 r16 [c, d es] [f g as8~] [as16 d, es f] |
40 [g a bes8] ~ [bes16 es, f g] [as g f es] [d8 c'16 b!] |
43 r8 [as g f] [g f16 es] [f8 d] |
44 g4 r8 b [c c16 b] [c8 g] |
46 as4 r8 a [bes bes16 a] [bes8 f] |
48 \translator Staff = bass \stemup
49 r8 [as, bes c ] r8 [as16 g] [as8 f8] |
50 [bes8 c bes as] [bes g f es] |
51 [f des' c bes] [c as g f] |
54 \translator Staff = treble \stemdown
55 [g'16 fis] [g8 c,] [es g16 fis!] [g8 a] |
56 [d, g16 fis] [g8 a!] [c,16 d] es4 [d16 c] | % forced accident!
57 bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e, f g] |
58 [a bes c8] ~ [c16 fis,16 g a] [bes8 es,!16 d] [es8 g, ] |
59 [as f'16 es] [f8 a,8] [bes g'16 f] [g8 b, ] |
61 [c16 f es d] [c bes! as g] [f8 as' g f] |
62 [es d es f] [b, c d b] |
63 c4 r8 e8 [f f16 e] [f8 c] |
64 d4 r8 d8 [es8 es16 d] [es8 bes] |
65 c2 ~ [c8 d16 es] [f es f d] |
69 [es as g f] [es d es f] |
70 [b, c d b] [b c] r c |
71 [f16 d es c] ~ [c8 b] c4 r8 e |
73 f4 r8 f [f es16 d] [es8 <f as>] |
74 <b, d> r <b d> r <g2 c> |
78 comes = \notes \relative c'' {
82 r8 [g'16 fis] [g8 c,] [es g16 fis] [g8 a] |
83 [d,8 g16 fis] [g8 a] [c,16 d] es4 [d16 c] |
85 [bes8 es16 d] [es8 g,8] [as f'16 es] [f8 a, ]
86 [bes8 g'16 f] [g8 b, ] [c8 d16 es] f4 ~ |
87 [f8 es16 d] [c16 bes ! as g ] [f8 as' g f]
88 [es d es f] [b, c d b ] |
89 [c g'16 fis] [g8 d] es4 r8 e8 |
91 [f f16 e] [f8 c8] d4 r8 d |
92 [es8 es16 d] [es8 bes ] [c es16 d] [es8 f] |
93 [bes, es16 d] [es8 f] [as,16 bes ] c4 [bes16 as ] |
94 \stemboth [g16 es f g] [as bes c d] [es d c d] [es f g a] |
95 [bes f, g as] [bes c d e] [f es d es] [ f g a b] |
97 \stemup [c8 b16 a] [g f! es d] [c8 es d c] |
98 [bes a bes c] [fis,! g a fis] | % forced accident
99 [g8 d'16 c] d8 r8 r8 [e16 d] e8 r8 |
100 r [fis16 e] fis8 r r [g,16 f] g8 r8 |
101 r8 [a16 g] a8 r r [b16 a] b8 r |
103 r8 [c16 b ] [c8 g ] [as c16 b ] [c8 d] |
104 [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
105 [es8 c'16 b] [c8 g] as4 r8 a |
106 [bes8 bes16 a] [bes8 f8] g4 r8 g ~ |
107 [g as16 bes] [c b c as] f2 ~ |
109 [f8 d'16 c] [d8 f,] [es es'16 d] [es8 g,] |
110 [f f'16 es] [f8 as,] [g16 f' es d] [c b a g] |
111 [c8 f es d] r [as g f] |
112 [g f16 es] [f8 d] [as' g] r a |
113 [b c] [f,16 es d c] c8 [c'16 b] [c8 g] |
115 [as c16 b] [c8 <d b ! as !>] [g,8 c16 b] [c8 d] |
116 [f,16 g] as4 [g16 f] e2 |
120 bassdux = \notes \relative c' {
130 r8 [c16 b] [c8 g] [as c16 b] [c8 d] |
131 [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
132 [es c' b a] [g f es d] [c d es d] [c bes! as! g] |
133 % -> \classic_accidentals
135 [f bes' as g] [f es d c] [bes c d c] [bes as g f] |
136 [es as' g f] [es des c bes] [as8 c' bes as] |
137 [g8 f g as] [d, es f d] |
138 [es as g f] [g es d c] |
139 [d bes' as g] [as f es d!] |
141 es8 r8 r4 r8 [c bes a] |
142 r [es' d c] [d c16 bes] [c8 d] |
143 [g,8 bes'16 a] [bes8 d,] [es c'16 bes] [c8 e,] |
144 [f d'16 c ] [d8 fis,] g4 r16 [g, a b] |
145 [c16 d es8~] [es16 a, bes c] [d es f8~] [f16 b, c d] |
147 es8 r r e [f f, es! d] | % -> \classic_accidentals
148 r [as' g f] [g f16 es] [f8 g] |
149 [c16 d es d] [c bes as g] [f bes' as g] [f es d c] |
150 [bes c d c] [bes as g f] [es as' g f] [es d c bes] |
151 [as bes c bes] [as g f es] [d g' f es] [d c b a] |
153 g4 r4 r16 [g a b] [c d es f] |
154 [g f as g] [f es d c] [b8 c16 b] [c8 g] |
155 [as c16 b] [c8 d] [g, c16 b] [c8 d] |
156 [f,16 g] as4 [g16 f] es4 r8 es' |
160 %using only \type Staff or \voiceone/two don't work anymore?
161 %moreover, the ties are not fooled by this anymore
163 {\voiceone c2 ~ | c1 ~ | c1 }
164 {\voicetwo c,2 ~ | c1 ~ | c1 }
172 \type Staff = treble <
184 gourlay_maxmeasures = 4.;
186 textheight = 295.\mm;
189 % \translator { \BarNumberingScoreContext }
190 % \translator { \BarNumberingStaffContext }
191 \translator{ \OrchestralScoreContext }