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

   1 \header{
   2 title =          "Preludium";
   3 opus =   "BWV 846";
   4 composer =       "Johann Sebastian Bach (1685-1750)";
   5 enteredby =      "Shay Rojansky";
   6
   7
   8   % mutopia headers.
   9   mutopiatitle = "Das Wohltemperierte Clavier I, Prelude 1 (c-major)";
  10   mutopiacomposer = "J.S.Bach";
  11   mutopiaopus = "BWV846";
  12   style = "baroque";
  13   copyright =    "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
  14   maintainer = "hanwen@cs.uu.nl";
  15   lastupdated = "1999/Oct/14";
  16 }
  17
  18 \version "1.3.117";
  19
  20 % should do programmable input.
  21 soprane =
  22     \notes \transpose c'' {
  23         \context Staff <
  24         % Real soprane
  25         \context Voice = uVoice {
  26         \time 4/4;
  27         \clef "violin";
  28
  29         \stemUp
  30         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  31         r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] |
  32         r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] |
  33         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  34         r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] |
  35         r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] |
  36         r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] |
  37         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |
  38         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] }
  39         % Tenor
  40         \context Voice = dVoice {\stemDown
  41         r16 e8. ~ e4 r16 e8. ~ e4 |
  42         r16 d8. ~ d4 r16 d8. ~ d4 |
  43         r16 d8. ~ d4 r16 d8. ~ d4 |
  44         r16 e8. ~ e4 r16 e8. ~ e4 |
  45         r16 e8. ~ e4 r16 e8. ~ e4 |
  46         r16 d8. ~ d4 r16 d8. ~ d4 |
  47         r16 d8. ~ d4 r16 d8. ~ d4 |
  48         r16 c8. ~ c4 r16 c8. ~ c4 |
  49         r16 c8. ~ c4 r16 c8. ~ c4 |}>
  50 %% 10
  51         r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] |
  52         r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] |
  53         r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] |
  54         r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] |
  55         r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] |
  56         r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] |
  57         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  58         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  59         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  60         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  61 %% 20
  62         r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] |
  63         r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] |
  64         r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] |
  65         r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] |
  66         r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] |
  67         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  68         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  69         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  70         r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] |
  71         r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] |
  72 %% 30
  73         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  74         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  75         r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] |
  76
  77         r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] |
  78         r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] |
  79         <e1 g c'> \bar "|.";
  80     }
  81
  82 bass =
  83     \notes {
  84         \clef "bass";
  85
  86
  87         \stemDown
  88         c'2 c' |
  89         c' c' |
  90         b b |
  91         c' c' |
  92         c' c' |
  93         c' c' |
  94         b b |
  95         b b |
  96         a a |
  97 %% 10
  98         \context Staff <
  99         \context Voice =  Alt
 100         {\stemUp
 101         r16 a8. ~ a4 r16 a8. ~ a4 |
 102         r16 b8. ~ b4 r16 b8. ~ b4 |
 103         r16 bes8. ~ bes4 r16 bes8. ~ bes4 |
 104         r16 a8. ~ a4 r16 a8. ~ a4 |
 105         r16 aes8. ~ aes4 r16 aes8. ~ aes4 |
 106         r16 g8. ~ g4 r16 g8. ~ g4 |
 107         r16 f8. ~ f4 r16 f8. ~ f4 |
 108         r16 f8. ~ f4 r16 f8. ~ f4 |
 109         r16 d8. ~ d4 r16 d8. ~ d4 |
 110         r16 e8. ~ e4 r16 e8. ~ e4 |
 111 %% 20
 112         r16 g8. ~ g4 r16 g8. ~ g4 |
 113         r16 f8. ~ f4 r16 f8. ~ f4 |
 114         r16 c8. ~ c4 r16 c8. ~ c4 |
 115         r16 f8. ~ f4 r16 f8. ~ f4 |
 116         r16 f8. ~ f4 r16 f8. ~ f4 |
 117         r16 e8. ~ e4 r16 e8. ~ e4 |
 118         r16 d8. ~ d4 r16 d8. ~ d4 |
 119         r16 d8. ~ d4 r16 d8. ~ d4 |
 120         r16 ees8. ~ ees4 r16 ees8. ~ ees4 |
 121         r16 e!8. ~ e4 r16 e8. ~ e4 |
 122 %% 30
 123         r16 d8. ~ d4 r16 d8. ~ d4 |
 124         r16 d8. ~ d4 r16 d8. ~ d4 |
 125         r16 c8. ~ c4 r16 c8. ~ c4 |
 126
 127         r16 c8. ~ c4 ~ c2 |
 128         r16 b,8. ~ b,4 ~ b,2 |
 129         c1 ||}
 130
 131         \context Voice = Bass
 132         {\stemDown
 133         d2 d |
 134         g g |
 135         g g |
 136         f f |
 137         f f |
 138         e e |
 139         e e |
 140         d d |
 141         g, g, |
 142         c c |
 143 %% 20
 144         c c |
 145         f, f, |
 146         fis, fis, |
 147         aes, aes, |
 148         g, g, |
 149         g, g, |
 150         g, g, |
 151         g, g, |
 152         g, g, |
 153         g, g, |
 154 %% 30
 155         g, g, |
 156         g, g, |
 157         c, c, |
 158
 159         c, c, |
 160         c, c, |
 161         c,1 \bar "|."; }>
 162     }
 163
 164
 165 \score {
 166     \notes \context PianoStaff <
 167         \soprane
 168         \bass
 169     >
 170     \midi {
 171         \tempo 4 = 80;
 172     }
 173 }
 174
 175 % EOF
 176