]> git.donarmstrong.com Git - lilypond.git/blob - input/mutopia/J.S.Bach/wtk1-fugue1.ly
move mutopia subdirectory
[lilypond.git] / input / mutopia / J.S.Bach / wtk1-fugue1.ly
1 \header{
2 title =                  "Fuga a 4"
3 opus =            "BWV 846"
4 composer =       "Johann Sebastian Bach (1685-1750)"
5 enteredby =      "Shay Rojansky"
6
7
8   % mutopia headers.
9   mutopiatitle = "Das Wohltemperierte Clavier I, Fuga 1 (c-major)"
10   mutopiacomposer = "J.S.Bach"
11   mutopiaopus = "BWV846"
12   style = "baroque"
13   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!"
14   maintainer = "hanwen@cs.uu.nl"
15   lastupdated = "2001/April/6"
16   footer = "Mutopia-2001/4/6-4"
17 }
18
19 %{
20 TODO: use autobeaming.  
21 %}
22 \version "1.3.146"
23
24 % #(set! point-and-click line-column-location)
25
26 tenor = 
27         \context Voice  = tenor  \notes \relative c' {
28         \clef "violin"
29
30         \voiceTwo
31         r8 [c8 d e] [f8. g32 f] [e8 a] |
32         [d, g] ~ [g16 a g f] [e f e d] [c d c b ] |
33         [a 8 fis'] g4 ~ [g8 fis16 e] [f8 d] |
34         [g f! e d] c r r g' ~ |
35 %% 5
36         [g f16 e] f4 ~ [f16 f e8] d4 |
37         [c8 f] r16 [g f e] [f8 d] g4 ~ |
38         g4 r4 r2 |
39         r1 |
40         r8 [g8 a b] [c8.   d 32 c ] [b8 e ]
41 %% 10
42         [a, d ] ~ [d 16 e  d  c ] b8 r8 r d, |
43         [e fis] [g8.   a32 g] [fis8 b e, a] ~ |
44         [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] |
45         [a gis a b] [gis fis gis a] b8 r8 r4 |
46         r8 [c,8 d e]  [f8.  g32 f] [e8 a] |
47 %% 15
48         [d, g] ~ [g16 a g f] e8 [e fis g] ~ |
49         [g8 fis] [gis8 a] ~ [a g! a b] |
50         [c8.    d32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
51         [b8 g'  cis,  d ] [e  cis  d  e  ] |
52          a,8 r8 r e [fis g] [a8.  b32 a] |
53 %% 20
54         [g8 c  fis, b] ~ [b16 c  b a]  [g fis e d]  |
55         e4 d ~ [d16 a' g f!] [e g f! a] |
56         g4 ~ [g16 a bes8] c 4 [d 8 g,] |
57          g4. f8 ~ [f e] d4 |
58          e8 a4 g8 ~ [g8 f g a] |
59 %% 25
60         [bes8.  c32 b] [a8 d ] [g, c ] ~ [c 16 d  c  bes] |
61         [a bes a g] [f g f e] d4 ~ [d8. g16] |
62         a4 r16 [f' 16 d 8] e 2 |
63         }
64
65
66 soprane = 
67         \context Voice = sop \notes \relative c' {
68
69         \voiceOne
70         r1 |
71         r2 r8 [g'8 a b] |
72         [c8.  d32 c ] [b8 e ] [a, d ] ~ [d 16 e  d  c ] |
73         [b g a b] [c  b c  d ] [e  d  e  fis ] [g 8 b,] |
74 %% 5
75         [c  a] [d 16 c  b a] [g8. g16] [f e f g] |
76         [a g a b] c 2 b4 |
77         r8 [c8 d e] [f8.  g32 f] [e8 a] |
78         [d, g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] |
79         f2 [e8. fis16] g4 ~
80 %% 10
81         g4 fis [g16 f! e d] [c d c b ] |
82         [a 16 c b  a ] g 8 r8 r16 [c16 b  a ] [gis 8 e'] |
83         [d c16 b 16] [a  gis  a  b ] [c fis,  a  gis ] [b 8 a 16 b ]
84         [c8 f e d] ~ [d c16 b ] [b 8. a 16] |
85         a 4 r4 r2 |
86 %% 15
87         r2 r8 [g 8 a  b ] |
88         [c8.  d32 c] [b 8 c] [d e] [f!8.  g32 f!] |
89         [e8 a d, g] ~ [g16 a g f] [e8 a] |
90         [d,8 bes'] [a g16 f] [g f g e] [f g g  f32 g] |
91         [a16 cis, d g] [e8. d16] d8 r8 r4 |
92 %% 20
93         r2 r4 r8 g,  |
94         [a  b ] [c8.  d32 c] [b 8 e a,  d( ]  |
95         [) e16 e d c] [b  c d e] [f g a g] [f e d c] |
96         b 4 [c,8 d] g  c4 b 8 |
97         c4 [b 8 bes 8] a  d4 c8 |
98 %% 25
99         [d8 e] f4 ~ [f16 a g f] [e f e d] |
100         c2 r16 [g32 a  b !16 c] [d e f8] ~ |
101         [f32 c d e f16 g] [a8. b16] <g2 c 2> |
102         }
103
104 alt = 
105 \context Voice = alt    \notes \relative   c {
106         \clef "bass"
107
108         
109         \voiceOne
110         R1*3 |
111         r8 [g'8 a b] [c8.  d32 c ] [b8 e ] |
112 %% 5
113         [a, d ] ~ [d 16 e  d  c ] [b8 c  ~ c  bes8] |
114         [a d  g, c ] r16 [a16 b c ] d 4 |
115         g,4 r8 g8 [a b] [c8.  d32 c ] |
116         [b8 e  a, d ] ~ [d 16 e  d  c !] [b!8 e ] ~ |
117         e 4 d 4 [c 16 b c  a] [e'  d  c  b] |
118 %% 10
119         [c 16 a b c ] [d  c  b a] g4 r4 |
120         r1 |
121         r8 [e8 fis gis] [a8.  b32 a] [gis8 c ] |
122         [fis, b] ~ [b16 c  b a] gis8 a4 gis8 |
123         a4 r8 g8 [a b] c8. [d32 c ] |
124 %% 15
125         [b8 e  a, d ] ~ [ d  g,] d'4 |
126         [c 8 a] e' 4 d 8 r8 r4 |
127         r8 [a8 b cis ] [d8.  e32 d ] [c !8 f ] |
128         [b,8 e ] ~ [e 16 f  e  d ] cis 8 r8 r4 |
129         r8 [a8 b cis ] [d8.  e32 d ] [c !8 fis ] |
130 %% 20
131         [b, e ] ~ [e 16 fis  e  d ] c 2 ~ |
132         [c 16 d  c  b] [a g a fis] [g8 b c  d ] |
133         [e8.  f32 e ] [d 8 g ] [c,  f ] ~ [f 16 g  f  e ] |
134         d 4 [e 8 d ] ~ [d  g,] g4 ~
135         [g8 c, d e] [f8.  g32 f] [e8 a] |
136 %% 25
137         [d, g] ~ [g16 a g f] [e d e f] [g a bes g] |
138         [a e f g] [a b c  a] b2 |
139         c 1 |
140         }
141
142 bass = \context Voice = bassvoice
143         \notes \relative c {
144         \clef "bass"
145
146         \voiceTwo
147         R1*4 |
148 %% 5
149         r2 r8 [c8 d e] |
150         [f8.  g32 f] [e8 a] [d, g] ~ [g16 a g f] |
151         [e f e d] [c d c b ] [a' 8 d a fis] |
152         [g16 a bes g] [cis,8 d] a'4 e4 |
153         [a16 b c  d ] [c  b a g] c 8 r8 r4 |
154 %% 10
155         r2 r8 [g, 8 a  b ] |
156         [c8.  d32 c] [b 8 e] [a,  d] ~ [d16 e d c] |
157         b 8 e4 d8 c f!4 e8 ~ |
158         e d4 e8 [f! e16 d] e4 |
159         a, 4 r4 r2 |
160 %% 15
161         r8 [g 8 a  b ] [c8.  d32 c] [b 8 e] |
162         [a, 8 d] ~ [d16 e d c] [b 8 bes  a  g ] |
163         [a 8 fis' g e] d4 [e8 f!] |
164         [g8.  a32 g] [f8 bes] [e, a] ~ [a16 bes a g] |
165         [f e f d] [g8 a] d,2 ~ |
166 %% 20
167         [d16 e d c] [b  a  g  fis ] [e' 8 e fis g] ~ |
168         [g a16 g16] [fis8 d] g2 ~ |
169         g2 a4 [b8 c ] |
170         [f,16 a g f] [e d c b ] [c d e f] [g8 g, ] |
171         c1 ~ |
172 %% 25
173         c1 ~ |
174         c1 ~ |
175         c1 |
176         }
177
178         
179 \score {
180         \notes \context PianoStaff < 
181                 \context Staff = one {
182                 \time 4/4
183                 <
184                         \soprane
185                         \tenor
186                 > \bar "|." }
187                 \context Staff = two <
188                         \alt
189                         \bass
190                 >
191         > 
192
193         \paper{
194            linewidth = 18.0 \cm
195         }
196
197         \midi { \tempo 4 = 84 }
198 }