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 "0.1.9";
  17
  18 \include "nederlands.ly"                 % for correct parsing of note names
  19
  20 global = \melodic {
  21   \meter 4/4;
  22   \key bes es as;
  23   \skip 1*31;
  24   \bar "|."; |
  25 }
  26
  27 dux = \melodic {
  28   \clef violin;
  29   \octave c';
  30
  31   \stemdown
  32   r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] |
  33   [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] |
  34   [es c' b a] [g f! es d] [c8 es' d' c'] |
  35   [bes a bes c'] [fis g a fis] |
  36 %% 5
  37   g4 r16 [c d es] [f g as8~] [as16 d es f] |
  38   [g a bes8] ~ [bes16 es f g] [as g f es] [d8 c'16 b!] |
  39                                                     % forced accident!
  40   c'4 r4 r8 [f' es' d'] |
  41   r8 [as g f] [g f16 es] [f8 d] |
  42   g4 r8 b [c' c'16 b] [c'8 g] |
  43 %% 10
  44   as4 r8 a [bes bes16 a] [bes8 f] |
  45   g4 r8 g [as as g f] |
  46   \translator Staff = bass \stemup \octave c;
  47    r8 [as bes c'] r8 [as16 g] [as8 f8] |
  48   [bes8 c' bes as] [bes g f es] |
  49   [f des' c' bes] [c' as g f] |
  50 %% 15
  51   g8
  52    \translator Staff = treble \stemdown \octave c';
  53    [g16 fis] [g8 c] [es g16 fis!] [g8 a] |
  54   [d g16 fis] [g8 a!] [c16 d] es4 [d16 c] |         % forced accident!
  55   'bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e f g] |
  56   [a bes c'8] ~ [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] |
  57   ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] |
  58 %% 20
  59   [c16 f es d] [c Bes! As G] [F8 as g f] |
  60   [es d es f] [B c d B] |
  61   c4 r8 e8 [f f16 e] [f8 c] |
  62   d4 r8 d8 [es8 es16 d] [es8 Bes] |
  63   c2 ~ [c8 d16 es] [f es f d] |
  64 %% 25
  65   B8 r8 r B c r r es |
  66   d r r f ~ f r r f |
  67   [es as g f] [es d es f] |
  68   [B c d B] [B c] r c |
  69   [f16 d es c] ~ [c8 B] c4 r8 e |
  70 %% 30
  71   f4 r8 f [f es16 d] [es8 <f as]> |
  72   <B d> r <B d> r <G2 c> |
  73 }
  74
  75
  76 comes = \melodic {
  77   \octave c'';
  78   \stemup
  79
  80   r1 |
  81   r1 |
  82   r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] |
  83   [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] |
  84 %% 5
  85   ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a]
  86   ['bes8 g16 f] [g8 'b] [c8 d16 es] f4 ~ |
  87   [f8 es16 d] [c16 'bes! 'as 'g] ['f8 as g f]
  88   [es d es f] ['b c d 'b] |
  89   [c g16 fis] [g8 d] es4 r8 e8 |
  90 %% 10
  91   [f f16 e] [f8 c8] d4 r8 d |
  92   [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] |
  93   \stemboth ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] |
  94   [G16 Es F G] [As Bes c d] [es d c d] [es f g a] |
  95   [bes F G As] [Bes c d e] [f es d es] [ f g a b] |
  96 %% 15
  97   \stemup [c'8 b16 a] [g f! es d] [c8 es d c] |
  98   [Bes A Bes c] [Fis! G A Fis] |                    % forced accident
  99   [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 |
 100   r [fis16 e] fis8 r r [G16 F] G8 r8 |
 101   r8 [A16 G] A8 r r [B16 A] B8 r |
 102 %% 20
 103   r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] |
 104   [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 105   [Es8 c16 B] [c8 G] As4 r8 A |
 106   [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G ~ |
 107   [G As16 Bes] [c B c As] F2 ~ |
 108 %% 25
 109   [F8 d16 c] [d8 F] [Es es16 d] [es8 G] |
 110   [F f16 es] [f8 As] [G16 f es d] [c B A G] |
 111   [c8 f es d] r [As G F] |
 112   [G F16 Es] [F8 D] [As G] r A |
 113   [B c] [F16 Es D C] C8 [c16 B] [c8 G] |
 114 %% 30
 115   [As c16 B] [c8 <d 'b! 'as!]> [G8 c16 B] [c8 d] |
 116   [F16 G] As4 [G16 F] E2 |
 117 }
 118
 119
 120 bassdux = \melodic {
 121   \clef bass;
 122   \octave c';
 123
 124   r1 |
 125   r |
 126   r |
 127   r |
 128 %% 5
 129   r |
 130   r1 |
 131   r8 [c16 B] [c8 G] [As c16 B] [c8 d] |
 132   [G c16 B] [c8 d] [F16 G] As4 [G16 F] |
 133   \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] |
 134                                                     % -> \classic_accidentals
 135 %% 10
 136   [F bes as g] [f es d c] [Bes c d c] [Bes As G F] |
 137   [Es as g f] [es des c Bes] [As8 c' bes as] |
 138   [g8 f g as] [d es f d] |
 139   [es as g f] [g es d c] |
 140   [d bes as g] [as f es d!] |
 141 %% 15
 142   es8 r8 r4 r8 [c Bes A] |
 143   r [es d c] [d c16 Bes] [c8 d] |
 144   [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] |
 145   [f d'16 c'] [d'8 fis] g4 r16 [G A B] |
 146   [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] |
 147 %% 20
 148   es8 r r e [f F Es! D] |                           % -> \classic_accidentals
 149   r [As G F] [G F16 Es] [F8 G] |
 150   [c16 d  es d] [c Bes As G] [F bes as g] [f es d c] |
 151   [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] |
 152   [As Bes c Bes] [As G F Es] [D g f es] [d c B A] |
 153 %% 25
 154   G4 r4 r16 [G A B] [c d es f] |
 155   [g f as g] [f es d c] [B8 c16 B] [c8 G] |
 156   [As c16 B] [c8 d] [G c16 B] [c8 d] |
 157   [F16 G] As4 [G16 F] Es4 r8 es |
 158   [d c g G]
 159 %% 30
 160   \multi 2 <
 161     { \stemup c2 ~ | c1 ~ | c1 }
 162     { \stemdown C2 ~ | C1 ~ | C1 }
 163   >
 164 }
 165
 166
 167 \score {
 168   \melodic {
 169     \type Grandstaff <
 170       \type Staff = treble <
 171         \global
 172         \dux
 173         \comes
 174       >
 175       \type Staff = bass <
 176         \global
 177         \bassdux
 178       >
 179     >
 180   }
 181
 182   \paper {
 183     gourlay_maxmeasures = 5.;
 184   }
 185
 186   \midi {
 187     \tempo 4 = 84;
 188   }
 189 }
 190
 191 % EOF