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:
  14    * stem direction
  15    * multivoice,
  16    * forced accidentals
  17    * cross-staff beaming
  18    * auto beaming
  19 %}
  20
  21 \version "1.0.14";
  22
  23 \include "nederlands.ly"                 % for correct parsing of note names
  24
  25 global = \notes {
  26   \key c \minor;
  27   \time 4/4;
  28   \property Staff.timeSignatureStyle = "C"
  29   \skip 1*31;
  30   \bar "|."; |
  31 }
  32
  33 dux = \type Voice=two \notes \relative c''{
  34   \voicetwo
  35   \clef violin;
  36
  37   \property Voice.ydirection = "-1"
  38
  39   r8 c16 b c8 g as c16 b c8 d |
  40   g, c16 b c8 d f,16 g as4 g16 f |
  41   es c' b a g f! es d c8 es' d c |
  42   bes a bes c fis, g a fis |
  43 %%5
  44   g4 r16 c, d es f g as8~ as16 d, es f |
  45   g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! |
  46           % forced accident!
  47   c4 r4 r8 f es d |
  48   r8 as g f g f16 es f8 d |
  49   g4 r8 b c c16 b c8 g |
  50 %%10
  51   as4 r8 a bes bes16 a bes8 f |
  52   g4 r8 g as as g f |
  53   r8
  54   \translator Staff = bass \stemup
  55   as, bes c r8 as16 g as8 f8 |
  56   bes8 c bes as bes g f es |
  57   f des' c bes c as g f |
  58 %%15
  59   g8
  60   g'16 fis g8 c,
  61   es \translator Staff = treble \stemdown g16 fis! g8 a |
  62   d, g16 fis g8 a! c,16 d es4 d16 c |  % forced accident!
  63   bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g |
  64   a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, |
  65   as f'16 es f8 a,8 bes g'16 f g8 b, |
  66 %%20
  67   c16 f \translator Staff = bass \stemup es d c bes! as g
  68   f8 \translator Staff = treble \stemdown as' g f |
  69   es d es f b, c d b |
  70   c4 r8 e8 f f16 e f8 c |
  71   d4 r8 d8 es8 es16 d es8 bes |
  72   c2 ~ c8 d16 es f es f d |
  73 %%25
  74   b8 r8 r b c r r es |
  75   d r r f ~ f r r f |
  76   es as g f es d es f |
  77   b, c d b b c r c |
  78   f16 d es c ~ c8 b c4 r8 e |
  79 %%30
  80   f4 r8 f f es16 d es8 <f as> |
  81   <b, d> r <b d> r <g2 c> |
  82 }
  83
  84
  85 comes = \type Voice=one \notes \relative c'' {
  86   \voiceone
  87   R1 |
  88   R1 |
  89   r8 g'16 fis g8 c, es g16 fis g8 a |
  90   d,8 g16 fis g8 a c,16 d es4 d16 c |
  91 %%5
  92   bes8 es16 d es8 g,8 as f'16 es f8 a,
  93   bes8 g'16 f g8 b, c8 d16 es f4 ~ |
  94   f8 es16 d c16 bes ! as g f8 as' g f
  95   es d es f b, c d b |
  96   c g'16 fis g8 d es4 r8 e8 |
  97 %%10
  98   f f16 e f8 c8 d4 r8 d |
  99   es8 es16 d es8 bes c es16 d es8 f |
 100   bes, es16 d es8 f as,16 bes c4 bes16 as |
 101   \stemboth g16 es f g as bes c d es d c d es f g a |
 102   bes f, g as bes c d e f es d es f g a b |
 103 %%15
 104   \stemup c8 b16 a g f! es d c8 es d c |
 105   bes a bes c fis,! g a fis |    % forced accident
 106   g8 d'16 c d8 r8 r8 e16 d e8 r8 |
 107   r fis16 e fis8 r r g,16 f g8 r8 |
 108   r8 a16 g a8 r r b16 a b8 r |
 109 %%20
 110   r8 c16 b c8 g as c16 b c8 d |
 111   g, c16 b c8 d f,16 g as4 g16 f |
 112   es8 c'16 b c8 g as4 r8 a |
 113   bes8 bes16 a bes8 f8 g4 r8 g ~ |
 114   g as16 bes c b c as f2 ~ |
 115 %%25
 116   f8 d'16 c d8 f, es es'16 d es8 g, |
 117   f f'16 es f8 as, g16 f' es d c b a g |
 118   c8 f es d r as g f |
 119   g f16 es f8 d as' g r a |
 120   b c f,16 es d c c8 c'16 b c8 g |
 121 %%30
 122   as c16 b c8 <d b ! as !> g,8 c16 b c8 d |
 123   f,16 g as4 g16 f e2 |
 124 }
 125
 126
 127 bassdux = \type Voice=three \notes \relative c' {
 128   \clef bass;
 129   R1 |
 130   R |
 131   R |
 132   R |
 133 %%5
 134   R |
 135   R1 |
 136   r8 c16 b c8 g as c16 b c8 d |
 137   g, c16 b c8 d f,16 g as4 g16 f |
 138   es c' b a g f es d c d es d c bes! as! g |
 139           % -> \classic_accidentals
 140 %%10
 141   f bes' as g f es d c bes c d c bes as g f |
 142   es as' g f es des c bes as8 c' bes as |
 143   g8 f g as d, es f d |
 144   es as g f g es d c |
 145   d bes' as g as f es d! |
 146 %%15
 147   es8 r8 r4 r8 c bes a |
 148   r es' d c d c16 bes c8 d |
 149   g,8 bes'16 a bes8 d, es c'16 bes c8 e, |
 150   f d'16 c d8 fis, g4 r16 g, a b |
 151   c16 d es8~ es16 a, bes c d es f8~ f16 b, c d |
 152 %%20
 153 % es8 r r e f f, es! d |     % -> \classic_accidentals
 154   es8 r r e \stemdown f f, es! d \stemboth |
 155   r as' g f g f16 es f8 g |
 156   c16 d es d c bes as g f bes' as g f es d c |
 157   bes c d c bes as g f es as' g f es d c bes |
 158   as bes c bes as g f es d g' f es d c b a |
 159 %%25
 160   g4 r4 r16 g a b c d es f |
 161   g f as g f es d c b8 c16 b c8 g |
 162   as c16 b c8 d g, c16 b c8 d |
 163   f,16 g as4 g16 f es4 r8 es' |
 164   d c g' g,
 165 %%30
 166   \type Staff=bass <
 167   {\voicethree c2 ~ | c1 ~ | c1 }
 168   {\voicefour c,2 ~ | c1 ~ | c1 }
 169   >
 170 }
 171
 172 \score {
 173
 174     \type GrandStaff <
 175         \type Staff = treble <
 176             \global
 177             \dux
 178             \comes
 179           >
 180         \type Staff = bass <
 181             \global
 182             \bassdux
 183         >
 184     >
 185
 186     \paper {
 187         gourlay_maxmeasures = 4.;
 188         indent = 8.\mm;
 189         textheight = 295.\mm;
 190
 191         \translator{ \OrchestralScoreContext }
 192         \translator{
 193             \GrandStaffContext
 194             minVerticalAlign = 3.0*\staffheight;
 195             maxVerticalAlign = 3.0*\staffheight;
 196         }
 197         \translator {
 198             \VoiceContext
 199             \consists Auto_beam_engraver;
 200             beamAuto = 1.;
 201             % eights end at 1/2, 16 at 1/4
 202             beamAutoEnd = "1/2";
 203         }
 204     }
 205     \header{
 206         opus = "BWV 847";
 207     }
 208
 209     \midi {
 210         \tempo 4 =84;
 211     }
 212 }
 213