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

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