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