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.14";
  17
  18 \include "nederlands.ly"                 % for correct parsing of note names
  19
  20 global = \notes {
  21   \key c \minor;
  22   \time 4/4;
  23   \property Staff.timeSignatureStyle = "C"
  24   \skip 1*31;
  25   \bar "|."; |
  26 }
  27
  28 dux = \notes \relative c''{
  29   \voicetwo
  30   \clef violin;
  31
  32   \property Voice.ydirection = "-1"
  33
  34   r8 [c16 b] [c8 g] [as c16 b] [c8 d ] |
  35   [g, c16 b] [c8 d ] [f,16 g] as4 [g16 f] |
  36   [es c'  b a] [g f! es d] [c8 es'  d  c ] |
  37   [bes a bes c ] [fis, g a fis] |
  38 %%5
  39   g4 r16 [c, d es] [f g as8~] [as16 d, es f] |
  40   [g a bes8] ~ [bes16 es, f g] [as g f es] [d8 c'16 b!] |
  41                                                     % forced accident!
  42   c4 r4 r8 [f  es  d ] |
  43   r8 [as g f] [g f16 es] [f8 d] |
  44   g4 r8 b [c  c16 b] [c8 g] |
  45 %%10
  46   as4 r8 a [bes bes16 a] [bes8 f] |
  47   g4 r8 g [as as g f] |
  48   \translator Staff = bass \stemup
  49    r8 [as, bes c ] r8 [as16 g] [as8 f8] |
  50   [bes8 c  bes as] [bes g f es] |
  51   [f des'  c  bes] [c  as g f] |
  52 %%15
  53   g8
  54    \translator Staff = treble \stemdown
  55    [g'16 fis] [g8 c,] [es g16 fis!] [g8 a] |
  56   [d, g16 fis] [g8 a!] [c,16 d] es4 [d16 c] |         % forced accident!
  57   bes8 r8 r16 [d e fis] [g a bes8] ~ [bes16 e, f g] |
  58   [a bes c8] ~ [c16 fis,16 g a] [bes8 es,!16 d] [es8 g, ] |
  59   [as  f'16 es] [f8 a,8] [bes  g'16 f] [g8 b, ] |
  60 %%20
  61   [c16 f es d] [c bes! as g] [f8 as' g f] |
  62   [es d es f] [b, c d b] |
  63   c4 r8 e8 [f f16 e] [f8 c] |
  64   d4 r8 d8 [es8 es16 d] [es8 bes] |
  65   c2 ~ [c8 d16 es] [f es f d] |
  66 %%25
  67   b8 r8 r b c r r es |
  68   d r r f ~ f r r f |
  69   [es as g f] [es d es f] |
  70   [b, c d b] [b c] r c |
  71   [f16 d es c] ~ [c8 b] c4 r8 e |
  72 %%30
  73   f4 r8 f [f es16 d] [es8 <f as>] |
  74   <b, d> r <b d> r <g2 c> |
  75 }
  76
  77
  78 comes = \notes \relative c''  {
  79   \voiceone
  80   r1 |
  81   r1 |
  82   r8 [g'16 fis] [g8 c,] [es g16 fis] [g8 a] |
  83   [d,8 g16 fis] [g8 a] [c,16 d] es4 [d16 c] |
  84 %%5
  85   [bes8 es16 d] [es8 g,8] [as  f'16 es] [f8 a, ]
  86   [bes8 g'16 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 g'16 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   [bes,  es16 d] [es8 f] [as,16 bes ] c4 [bes16 as ] |
  94   \stemboth [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 [c8 b16 a] [g f! es d] [c8 es d c] |
  98   [bes a bes c] [fis,! g a fis] |                    % forced accident
  99   [g8 d'16 c] d8 r8 r8 [e16 d] e8 r8 |
 100   r [fis16 e] fis8 r r [g,16 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] [f,16 g] as4 [g16 f] |
 105   [es8 c'16 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 d'16 c] [d8 f,] [es es'16 d] [es8 g,] |
 110   [f f'16 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] [f,16 es d c] c8 [c'16 b] [c8 g] |
 114 %%30
 115   [as c16 b] [c8 <d b ! as !>] [g,8 c16 b] [c8 d] |
 116   [f,16 g] as4 [g16 f] e2 |
 117 }
 118
 119
 120 bassdux = \notes \relative c' {
 121   \clef bass;
 122
 123   r1 |
 124   r |
 125   r |
 126   r |
 127 %%5
 128   r |
 129   r1 |
 130   r8 [c16 b] [c8 g] [as c16 b] [c8 d] |
 131   [g, c16 b] [c8 d] [f,16 g] as4 [g16 f] |
 132  [es c'  b a] [g f es d] [c d es d] [c bes! as! g] |
 133                                                     % -> \classic_accidentals
 134 %%10
 135   [f bes' as g] [f es d c] [bes c d c] [bes as g f] |
 136   [es as' g f] [es des c bes] [as8 c'  bes as] |
 137   [g8 f g as] [d, es f d] |
 138   [es as g f] [g es d c] |
 139   [d bes' as g] [as f es d!] |
 140 %%15
 141   es8 r8 r4 r8 [c bes a] |
 142   r [es' d c] [d c16 bes] [c8 d] |
 143   [g,8 bes'16 a] [bes8 d,] [es c'16 bes] [c8 e,] |
 144   [f d'16 c ] [d8 fis,] g4 r16 [g, a b] |
 145   [c16 d es8~] [es16 a, bes c] [d es f8~] [f16 b,  c d] |
 146 %%20
 147   es8 r r e [f f, es! d] |                           % -> \classic_accidentals
 148   r [as' g f] [g f16 es] [f8 g] |
 149   [c16 d  es d] [c bes as g] [f bes' as g] [f es d c] |
 150   [bes c d c] [bes as g f] [es as' g f] [es d c bes] |
 151   [as bes c bes] [as g f es] [d g' f es] [d c b a] |
 152 %%25
 153   g4 r4 r16 [g a b] [c d es f] |
 154   [g f as g] [f es d c] [b8 c16 b] [c8 g] |
 155   [as c16 b] [c8 d] [g, c16 b] [c8 d] |
 156   [f,16 g] as4 [g16 f] es4 r8 es' |
 157   [d c g' g,]
 158 %%30
 159   %urg
 160   %using only \type Staff or \voiceone/two don't work anymore?
 161   %moreover, the ties are not fooled by this anymore
 162   \type Staff <
 163     {\voiceone c2 ~ | c1 ~ | c1 }
 164     {\voicetwo c,2 ~ | c1 ~ | c1 }
 165   >
 166 }
 167
 168
 169 \score {
 170
 171     \type GrandStaff <
 172       \type Staff = treble <
 173         \global
 174         \dux
 175         \comes
 176       >
 177       \type Staff = bass <
 178         \global
 179         \bassdux
 180       >
 181     >
 182
 183   \paper {
 184     gourlay_maxmeasures = 4.;
 185     indent = 8.\mm;
 186     textheight = 295.\mm;
 187
 188     %hmm
 189 %    \translator { \BarNumberingScoreContext }
 190     \translator { \BarNumberingStaffContext }
 191
 192     % Breitkopf; unlike B\"arenreiter rule
 193     % really looks a lot better?
 194     % should have an array of min/ideal lengths (scheme)
 195     % and check B\"arenreiter rules again -- make testcase
 196
 197     % beam_multiple_break = 2.0;
 198     % beam_minimum_stem1 = 1.5 * \interline;
 199     % beam_ideal_stem1 = 2.0 * \interline;
 200     % beam_minimum_stem2 = 1.25 * \interline;
 201     % beam_ideal_stem2 = 1.75 * \interline;
 202   }
 203   \header{
 204           opus = "BWV 847";
 205   }
 206
 207   \midi {
 208     \tempo 4 =84;
 209   }
 210 }
 211
 212 % EOF