mutopia/J.S.Bach/wtk1-fugue2.ly

   1 \header {
   2   filename =    "wtk1-fugue2.ly";
   3   title =       "Fuga a 3";
   4   description = "Das Wohltemperierte Clavier I, Fuga II (c-minor)";
   5   opus =        "BWV 847-Fuga";
   6   source =      "Henle's Urtext";
   7   composer =    "Johann Sebastian Bach (1685-1750)";
   8   enteredby =   "HWN, WL";
   9   copyright =   "Public Domain";
  10 }
  11
  12 %{
  13  Tested Features: stem direction, multivoice, forced accidentals.
  14 %}
  15
  16 \version "1.0.0";
  17
  18 \include "nederlands.ly"                 % for correct parsing of note names
  19
  20 global = \melodic {
  21   \time 4/4;
  22   \accidentals bes es as;
  23   \skip 1*31;
  24   \bar "|."; |
  25 }
  26
  27 dux = \melodic \relative c'' {
  28   \clef violin;
  29
  30   \stemdown
  31   r8 [c16 b] [c8 g] [as c16 b] [c8 d ] |
  32   [g, c16 b] [c8 d ] [f,16 g] as4 [g16 f] |
  33   [es c'  b a] [g f! es d] [c8 es'  d  c ] |
  34   [bes a bes c ] [fis, g a fis] |
  35 %%5
  36   g4 r16 [c, d es] [f g as8~] [as16 d, es f] |
  37   [g a bes8] ~ [bes16 es, f g] [as g f es] [d8 c'16 b!] |
  38                                                     % forced accident!
  39   c4 r4 r8 [f  es  d ] |
  40   r8 [as g f] [g f16 es] [f8 d] |
  41   g4 r8 b [c  c16 b] [c8 g] |
  42 %%10
  43   as4 r8 a [bes bes16 a] [bes8 f] |
  44   g4 r8 g [as as g f] |
  45   \translator Staff = bass \stemup
  46    r8 [as, bes c ] r8 [as16 g] [as8 f8] |
  47   [bes8 c  bes as] [bes g f es] |
  48   [f des'  c  bes] [c  as g f] |
  49 %%15
  50   g8
  51    \translator Staff = treble \stemdown
  52    [g'16 fis] [g8 c,] [es g16 fis!] [g8 a] |
  53   [d, g16 fis] [g8 a!] [c,16 d] es4 [d16 c] |         % forced accident!
  54   bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e, f g] |
  55   [a bes c8] ~ [c16 fis,16 g a] [bes8 es,!16 d] [es8 g, ] |
  56   [as  f'16 es] [f8 a,8] [bes  g'16 f] [g8 b, ] |
  57 %%20
  58   [c16 f es d] [c bes! as g] [f8 as' g f] |
  59   [es d es f] [b, c d b] |
  60   c4 r8 e8 [f f16 e] [f8 c] |
  61   d4 r8 d8 [es8 es16 d] [es8 bes] |
  62   c2 ~ [c8 d16 es] [f es f d] |
  63 %%25
  64   b8 r8 r b c r r es |
  65   d r r f ~ f r r f |
  66   [es as g f] [es d es f] |
  67   [b, c d b] [b c] r c |
  68   [f16 d es c] ~ [c8 b] c4 r8 e |
  69 %%30
  70   f4 r8 f [f es16 d] [es8 <f as]> |
  71   <b, d> r <b d> r <g2 c> |
  72 }
  73
  74
  75 comes = \melodic \relative c''  {
  76   \stemup
  77
  78   r1 |
  79   r1 |
  80   r8 [g'16 fis] [g8 c,] [es g16 fis] [g8 a] |
  81   [d,8 g16 fis] [g8 a] [c,16 d] es4 [d16 c] |
  82 %%5
  83   [bes8 es16 d] [es8 g,8] [as  f'16 es] [f8 a, ]
  84   [bes8 g'16 f] [g8 b, ] [c8 d16 es] f4 ~ |
  85   [f8 es16 d] [c16 bes ! as  g ] [f8 as' g f]
  86   [es d es f] [b,  c d b ] |
  87   [c g'16 fis] [g8 d] es4 r8 e8 |
  88 %%10
  89   [f f16 e] [f8 c8] d4 r8 d |
  90   [es8 es16 d] [es8 bes ] [c es16 d] [es8 f] |
  91   \stemboth [bes,  es16 d] [es8 f] [as,16 bes ] c4 [bes16 as ] |
  92   [g16 es f g] [as bes c d] [es d c d] [es f g a] |
  93   [bes f, g as] [bes c d e] [f es d es] [ f g a b] |
  94 %%15
  95   \stemup [c8 b16 a] [g f! es d] [c8 es d c] |
  96   [bes a bes c] [fis,! g a fis] |                    % forced accident
  97   [g8 d'16 c] d8 r8 r8 [e16 d] e8 r8 |
  98   r [fis16 e] fis8 r r [g,16 f] g8 r8 |
  99   r8 [a16 g] a8 r r [b16 a] b8 r |
 100 %%20
 101   r8 [c16 b ] [c8 g ] [as c16 b ] [c8 d] |
 102   [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
 103   [es8 c'16 b] [c8 g] as4 r8 a |
 104   [bes8 bes16 a] [bes8 f8] g4 r8 g ~ |
 105   [g as16 bes] [c b c as] f2 ~ |
 106 %%25
 107   [f8 d'16 c] [d8 f,] [es es'16 d] [es8 g,] |
 108   [f f'16 es] [f8 as,] [g16 f' es d] [c b a g] |
 109   [c8 f es d] r [as g f] |
 110   [g f16 es] [f8 d] [as' g] r a |
 111   [b c] [f,16 es d c] c8 [c'16 b] [c8 g] |
 112 %%30
 113   [as c16 b] [c8 <d b ! as !]> [g,8 c16 b] [c8 d] |
 114   [f,16 g] as4 [g16 f] e2 |
 115 }
 116
 117
 118 bassdux = \melodic \relative c' {
 119   \clef bass;
 120
 121   r1 |
 122   r |
 123   r |
 124   r |
 125 %%5
 126   r |
 127   r1 |
 128   r8 [c16 b] [c8 g] [as c16 b] [c8 d] |
 129   [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
 130  [es c'  b a] [g f es d] [c d es d] [c bes! as! g] |
 131                                                     % -> \classic_accidentals
 132 %%10
 133   [f bes' as g] [f es d c] [bes c d c] [bes as g f] |
 134   [es as' g f] [es des c bes] [as8 c'  bes as] |
 135   [g8 f g as] [d, es f d] |
 136   [es as g f] [g es d c] |
 137   [d bes' as g] [as f es d!] |
 138 %%15
 139   es8 r8 r4 r8 [c bes a] |
 140   r [es' d c] [d c16 bes] [c8 d] |
 141   [g,8 bes'16 a] [bes8 d,] [es c'16 bes] [c8 e,] |
 142   [f d'16 c ] [d8 fis,] g4 r16 [g, a b] |
 143   [c16 d es8~] [es16 a, bes c] [d es f8~] [f16 b,  c d] |
 144 %%20
 145   es8 r r e [f f, es! d] |                           % -> \classic_accidentals
 146   r [as' g f] [g f16 es] [f8 g] |
 147   [c16 d  es d] [c bes as g] [f bes' as g] [f es d c] |
 148   [bes c d c] [bes as g f] [es as' g f] [es d c bes] |
 149   [as bes c bes] [as g f es] [d g' f es] [d c b a] |
 150 %%25
 151   g4 r4 r16 [g a b] [c d es f] |
 152   [g f as g] [f es d c] [b8 c16 b] [c8 g] |
 153   [as c16 b] [c8 d] [g, c16 b] [c8 d] |
 154   [f16 g] as4 [g16 f] es4 r8 es |
 155   [d c g g]
 156 %%30
 157   \type Staff <
 158     { \stemup c2 ~ | c1 ~ | c1 }
 159     { \stemdown c,2 ~ | c1 ~ | c1 }
 160   >
 161 }
 162
 163
 164 \score {
 165
 166     \type GrandStaff <
 167       \type Staff = treble <
 168         \global
 169         \dux
 170         \comes
 171       >
 172       \type Staff = bass <
 173         \global
 174         \bassdux
 175       >
 176     >
 177
 178   \paper {
 179     gourlay_maxmeasures =5.;
 180 %    castingalgorithm = \Wordwrap;
 181
 182   }
 183
 184   \midi {
 185     \tempo 4 =84;
 186   }
 187 }
 188
 189 % EOF