]> git.donarmstrong.com Git - lilypond.git/blob - input/mutopia/J.S.Bach/wtk1-fugue2.ly
Merge branch 'master' into lilypond/translation
[lilypond.git] / input / mutopia / J.S.Bach / wtk1-fugue2.ly
1 \header {
2     title = "Fuga a 3 voci"
3     opus = "BWV 847-Fuga"
4     source = "Henle's Urtext"
5     composer = "Johann Sebastian Bach (1685-1750)"
6     enteredby = "hwn, wl, jcn"
7
8                                 % mutopia headers.
9     mutopiatitle = "Das Wohltemperierte Clavier I, Fuga II (c-minor)"
10     mutopiacomposer = "J. S. Bach (1685-1750)"
11     mutopiainstrument = "Piano"
12     mutopiaopus = "BWV847"
13     style = "baroque"
14     copyright = "Public Domain"
15     maintainer = "hanwen@cs.uu.nl"
16     %% TODO: handle \footer, \head[er] properly
17     footer = "Mutopia-2002/08/19-6"
18
19     tagline = \markup {
20       \smaller
21       \column {
22         \line { \footer }
23         \line {
24           "This music is part of the Mutopia project, "
25           \typewriter { "http://sca.uwaterloo.ca/Mutopia/" }
26         }
27         \line {
28           #(ly:export (string-append
29                        "It has been typeset and placed in the public "
30                        "domain by " maintainer  "." ))
31         }
32         \justify {
33           Unrestricted modification and redistribution 
34           is permitted and encouraged. Copy this music 
35           and share it!
36         }
37       }
38     }
39     lastupdated = "2002/August/19"
40   }
41
42
43
44 \version "2.12.0"
45
46
47
48
49 dux = \context Voice = "two"  \relative c''{
50     \voiceTwo
51     \clef violin
52
53     r8 c16 b c8 g as c16 b c8 d |
54     g, c16 b c8 d f,16 g as4 g16 f |
55     es c' b a g f! es d c8 es' d c | 
56     bes a bes c fis, g a fis |
57     %%5
58     g4 r16 c, d es f g as8~ as16 d, es f |
59     g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! |  
60                                 % forced accident!
61     c4 r4 r8 f es d |
62     r8 as g f g f16 es f8 d | 
63     g4 r8 b c c16 b c8 g |
64     %%10 
65     as4 r8 a bes bes16 a bes8 f |
66     g4 r8 g as as g
67     \change Staff = bass \stemUp 
68     f |
69     r8 
70     as, bes c r8 as16 g as8 f8 |
71     bes8 c bes as bes g f es |
72     f des' c bes c as g f |
73     %%15
74     g8
75     \change Staff = treble
76     \stemDown
77
78     g'16 fis g8 c, 
79     es
80     g16 fis! g8 a |
81     d, g16 fis g8 a! c,16 d es4 d16 c |  % forced accident!
82     bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g |
83     a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, |
84     as f'16 es f8 a,8 bes g'16 f g8 b, |
85     %%20
86     c16 f es d
87     c
88     \change Staff = bass
89     \stemUp
90     bes! as g 
91     f8 \change Staff = treble
92     \stemDown
93     as' g f |
94     es d es f b, c d b |
95     c4 r8 e8 f f16 e f8 c |
96     d4 r8 d8 es8 es16 d es8 bes |
97     c2 ~ c8 d16 es f es f d |
98     %%25
99     b8 r8 r b c r r es |
100     d r r f ~ f r r f |
101     es as g f es d es f |
102     b, c d b b c r c |
103     f16 d es c ~ c8 b c4 r8 e |
104     %%30
105     f4 r8 f f es16 d es8 <f as> |
106     <b, d> r <b d> r <g c>2 |
107 }
108
109
110 comes = \context Voice = "one"  \relative c'' {
111     \voiceOne
112     \override MultiMeasureRest  #'staff-position = #6 
113     R1 |
114     R1 |
115     r8 g'16 fis g8 c, es g16 fis g8 a |
116     d,8 g16 fis g8 a c,16 d es4 d16 c |
117     %%5
118     bes8 es16 d es8 g,8 as f'16 es f8 a, 
119     bes8 g'16 f g8 b, c8 d16 es f4 ~ |
120     f8 es16 d c16 bes ! as g f8 as' g f 
121     es d es f b, c d b |
122     c g'16 fis g8 d es4 r8 e8 |
123     %%10 
124     f f16 e f8 c8 d4 r8 d |
125     es8 es16 d es8 bes c es16 d es8 f |
126     bes, es16 d es8 f as,16 bes c4 bes16 as |
127     \stemNeutral g16 es f g as bes c d es d c d es f g a |
128     bes f, g as bes c d e f es d es f g a b |
129     %%15
130     \stemUp c8 b16 a g f! es d c8 es d c |
131     bes a bes c fis,! g a fis |    % forced accident
132     g8 d'16 c d8 r8 r8 e16 d e8 r8 |
133     r fis16 e fis8 r r g,16 f g8 r8 |
134     r8 a16 g a8 r r b16 a b8 r |
135     %%20
136     r8 c16 b c8 g as c16 b c8 d |
137     g, c16 b c8 d f,16 g as4 g16 f |
138     es8 c'16 b c8 g as4 r8 a |
139     bes8 bes16 a bes8 f8 g4 r8 g ~ |
140     g as16 bes c b c as f2 ~ |
141     %%25
142     f8 d'16 c d8 f, es es'16 d es8 g, |
143     f f'16 es f8 as, g16 f' es d c b a g |
144     c8 f es d r as g f |
145     g f16 es f8 d as' g r a |
146     b c f,16 es d c c8 c'16 b c8 g |
147     %%30
148     as c16 b c8 <d b ! as !> g,8 c16 b c8 d |
149     f,16 g as4 g16 f e2 |
150 }
151
152 bassdux = \context Voice = "three"  \relative c' {
153     \clef bass
154     R1 |
155     R |
156     R |
157     R |
158     %%5
159     R |
160     R1 |
161     r8 c16 b c8 g as c16 b c8 d |
162     g, c16 b c8 d f,16 g as4 g16 f | 
163     es c' b a g f es d c d es d c bes! as! g |
164                                 % -> \classic_accidentals
165     %%10
166     f bes' as g f es d c bes c d c bes as g f |
167     es as' g f es des c bes as8 c' bes as |
168     g8 f g as d, es f d |
169     es as g f g es d c |
170     d bes' as g as f es d! |
171     %%15
172     es8 r8 r4 r8 c bes a |
173     r es' d c d c16 bes c8 d |
174     g,8 bes'16 a bes8 d, es c'16 bes c8 e, |
175     f d'16 c d8 fis, g4 r16 g, a b |
176     c16 d es8~ es16 a, bes c d es f8~ f16 b, c d |
177     %%20 
178     es8 r r e \stemNeutral \stemDown f f, es! d \stemNeutral |
179     r as' g f g f16 es f8 g |
180     c16 d es d c bes as g f bes' as g f es d c |
181     bes c d c bes as g f es as' g f es d c bes |
182     as bes c bes as g f es d g' f es d c b a |
183     %%25
184     g4 r4 r16 g a b c d es f |
185     g f as g f es d c b8 c16 b c8 g |
186     as c16 b c8 d g, c16 b c8 d |
187     f,16 g as4 g16 f es4 r8 es' |
188     d c g' g, 
189     %%30
190     << {  c2 ~ | c1 ~ | c1 } \\
191        {   c,2 ~ | c1 ~ | c1 }
192    >> 
193 }
194
195
196 \book {
197     \score {
198
199         \context Score \with
200         {
201             \override SpacingSpanner #'spacing-increment = #1.0
202             \override SpacingSpanner #'shortest-duration-space = #1.9   
203         } \context PianoStaff << 
204             \override Score.TimeSignature  #'style = #'C
205             \context Staff = "treble" <<
206                 \key c \minor
207                 \dux
208                 { \comes \bar "|." }
209                 \time 4/4
210             >>
211             \context Staff = "bass" <<
212                 \key c \minor
213                 \bassdux
214             >>
215         >>
216
217         \header{
218             opus = "BWV 847"
219         }
220         \layout {}
221         \midi {
222           \context {
223             \Score
224             tempoWholesPerMinute = #(ly:make-moment 84 4)
225           }
226         }
227     }
228     \paper {
229         line-width = 18.0 \cm
230         ragged-last-bottom = ##f
231     }
232 }