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 { \smaller
  20                         \column {
  21                             \fill-line { \footer "" }
  22                             \fill-line { { "This music is part of the Mutopia project, "
  23                                            \typewriter { "http://sca.uwaterloo.ca/Mutopia/" }
  24                                            "." } }
  25                             \fill-line { { "It has been typeset and placed in the public "
  26                                            "domain by "  \maintainer  "." } }
  27                             \fill-line { { "Unrestricted modification and redistribution "
  28                                            "is permitted and encouraged---copy this music "
  29                                            "and share it!" } }
  30                         }
  31                     }
  32     lastupdated = "2002/August/19"
  33 }
  34
  35
  36 %{
  37 We really want this piece on 2 pages.
  38
  39 tweaks:  we use 19 iso. 20 pt staff space, and squeeze up the spacing a bit.
  40
  41 the few forced linebreaks were an earlier attempt to get the spacing
  42 to match up.
  43
  44 %}
  45
  46
  47 \version "2.5.13"
  48
  49
  50
  51
  52 dux = \context Voice = "two"  \relative c''{
  53     \voiceTwo
  54     \clef violin
  55
  56     r8 c16 b c8 g as c16 b c8 d |
  57     g, c16 b c8 d f,16 g as4 g16 f |
  58     es c' b a g f! es d c8 es' d c | \break
  59     bes a bes c fis, g a fis |
  60     %%5
  61     g4 r16 c, d es f g as8~ as16 d, es f |
  62     g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! |  \break
  63                                 % forced accident!
  64     c4 r4 r8 f es d |
  65     r8 as g f g f16 es f8 d |
  66     g4 r8 b c c16 b c8 g |
  67     %%10
  68     as4 r8 a bes bes16 a bes8 f |
  69     g4 r8 g as as g
  70     \change Staff = bass \stemUp
  71     f |
  72     r8
  73     as, bes c r8 as16 g as8 f8 |
  74     bes8 c bes as bes g f es |
  75     f des' c bes c as g f |
  76     %%15
  77     g8
  78     \change Staff = treble
  79     \stemDown
  80
  81     g'16 fis g8 c,
  82     es
  83     g16 fis! g8 a |
  84     d, g16 fis g8 a! c,16 d es4 d16 c |  % forced accident!
  85     bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g |
  86     a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, |
  87     \break
  88     as f'16 es f8 a,8 bes g'16 f g8 b, |
  89     %%20
  90     c16 f es d
  91     c
  92     \change Staff = bass
  93     \stemUp
  94     bes! as g
  95     f8 \change Staff = treble
  96     \stemDown
  97     as' g f |
  98     es d es f b, c d b |
  99     c4 r8 e8 f f16 e f8 c |
 100     d4 r8 d8 es8 es16 d es8 bes |
 101     c2 ~ c8 d16 es f es f d |
 102     %%25
 103     b8 r8 r b c r r es |
 104     d r r f ~ f r r f |
 105     es as g f es d es f |
 106     b, c d b b c r c |
 107     f16 d es c ~ c8 b c4 r8 e |
 108     %%30
 109     f4 r8 f f es16 d es8 <f as> |
 110     <b, d> r <b d> r <g c>2 |
 111 }
 112
 113
 114 comes = \context Voice = "one"  \relative c'' {
 115     \voiceOne
 116     \override MultiMeasureRest  #'staff-position = #6
 117     R1 |
 118     R1 |
 119     r8 g'16 fis g8 c, es g16 fis g8 a |
 120     d,8 g16 fis g8 a c,16 d es4 d16 c |
 121     %%5
 122     bes8 es16 d es8 g,8 as f'16 es f8 a,
 123     bes8 g'16 f g8 b, c8 d16 es f4 ~ |
 124     f8 es16 d c16 bes ! as g f8 as' g f
 125     es d es f b, c d b |
 126     c g'16 fis g8 d es4 r8 e8 |
 127     %%10
 128     f f16 e f8 c8 d4 r8 d |
 129     es8 es16 d es8 bes c es16 d es8 f |
 130     bes, es16 d es8 f as,16 bes c4 bes16 as |
 131     \stemNeutral g16 es f g as bes c d es d c d es f g a |
 132     bes f, g as bes c d e f es d es f g a b |
 133     %%15
 134     \stemUp c8 b16 a g f! es d c8 es d c |
 135     bes a bes c fis,! g a fis |    % forced accident
 136     g8 d'16 c d8 r8 r8 e16 d e8 r8 |
 137     r fis16 e fis8 r r g,16 f g8 r8 |
 138     r8 a16 g a8 r r b16 a b8 r |
 139     %%20
 140     r8 c16 b c8 g as c16 b c8 d |
 141     g, c16 b c8 d f,16 g as4 g16 f |
 142     es8 c'16 b c8 g as4 r8 a |
 143     bes8 bes16 a bes8 f8 g4 r8 g ~ |
 144     g as16 bes c b c as f2 ~ |
 145     %%25
 146     f8 d'16 c d8 f, es es'16 d es8 g, |
 147     f f'16 es f8 as, g16 f' es d c b a g |
 148     c8 f es d r as g f |
 149     g f16 es f8 d as' g r a |
 150     b c f,16 es d c c8 c'16 b c8 g |
 151     %%30
 152     as c16 b c8 <d b ! as !> g,8 c16 b c8 d |
 153     f,16 g as4 g16 f e2 |
 154 }
 155
 156 bassdux = \context Voice = "three"  \relative c' {
 157     \clef bass
 158     R1 |
 159     R |
 160     R |
 161     R |
 162     %%5
 163     R |
 164     R1 |
 165     r8 c16 b c8 g as c16 b c8 d |
 166     g, c16 b c8 d f,16 g as4 g16 f |
 167     es c' b a g f es d c d es d c bes! as! g |
 168                                 % -> \classic_accidentals
 169     %%10
 170     f bes' as g f es d c bes c d c bes as g f |
 171     es as' g f es des c bes as8 c' bes as |
 172     g8 f g as d, es f d |
 173     es as g f g es d c |
 174     d bes' as g as f es d! |
 175     %%15
 176     es8 r8 r4 r8 c bes a |
 177     r es' d c d c16 bes c8 d |
 178     g,8 bes'16 a bes8 d, es c'16 bes c8 e, |
 179     f d'16 c d8 fis, g4 r16 g, a b |
 180     c16 d es8~ es16 a, bes c d es f8~ f16 b, c d |
 181     %%20
 182                                 % es8 r r e f f, es! d |     % -> \classic_accidentals
 183     es8 r r e \stemNeutral \stemDown f f, es! d \stemNeutral |
 184     r as' g f g f16 es f8 g |
 185     c16 d es d c bes as g f bes' as g f es d c |
 186     bes c d c bes as g f es as' g f es d c bes |
 187     as bes c bes as g f es d g' f es d c b a |
 188     %%25
 189     g4 r4 r16 g a b c d es f |
 190     g f as g f es d c b8 c16 b c8 g |
 191     as c16 b c8 d g, c16 b c8 d |
 192     f,16 g as4 g16 f es4 r8 es' |
 193     d c g' g,
 194     %%30
 195     << {  c2 ~ | c1 ~ | c1 } \\
 196        {   c,2 ~ | c1 ~ | c1 }
 197    >>
 198 }
 199
 200
 201 \book {
 202     \score {
 203
 204         \context Score \with
 205         {
 206             \override SpacingSpanner #'spacing-increment = #1.0
 207             \override SpacingSpanner #'shortest-duration-space = #1.9
 208         } \context PianoStaff <<
 209             \override Score.TimeSignature  #'style = #'C
 210             \context Staff = "treble" <<
 211                 \key c \minor
 212                 \dux
 213                 { \comes \bar "|." }
 214                 \time 4/4
 215             >>
 216             \context Staff = "bass" <<
 217                 \key c \minor
 218                 \bassdux
 219             >>
 220         >>
 221
 222         \header{
 223             opus = "BWV 847"
 224         }
 225         \layout {}
 226         \midi {
 227             \tempo 4 =84
 228         }
 229     }
 230     \paper {
 231         linewidth = 18.0 \cm
 232     }
 233 }