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

   1 \header{
   2 filename =       "prelude1.ly";
   3 title =  "Preludium";
   4 description =    "Das Wohltemperierte Clavier I, Prelude I (c-major)";
   5 opus =   "BWV 846";
   6 composer =       "Johann Sebastian Bach (1685-1750)";
   7 enteredby =      "Shay Rojansky";
   8 copyright =      "Public Domain";
   9 }
  10
  11 \version "1.2.0";
  12
  13 % should do programmable input.
  14 soprane =
  15     \notes \transpose c'' {
  16         \context Staff <
  17         % Real soprane
  18         \context Voice = uVoice {
  19         \time 4/4;
  20         \clef "violin";
  21
  22         \stemup
  23         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  24         r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] |
  25         r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] |
  26         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  27         r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] |
  28         r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] |
  29         r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] |
  30         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |
  31         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] }
  32         % Tenor
  33         \context Voice = dVoice {\stemdown
  34         r16 e8. ~ e4 r16 e8. ~ e4 |
  35         r16 d8. ~ d4 r16 d8. ~ d4 |
  36         r16 d8. ~ d4 r16 d8. ~ d4 |
  37         r16 e8. ~ e4 r16 e8. ~ e4 |
  38         r16 e8. ~ e4 r16 e8. ~ e4 |
  39         r16 d8. ~ d4 r16 d8. ~ d4 |
  40         r16 d8. ~ d4 r16 d8. ~ d4 |
  41         r16 c8. ~ c4 r16 c8. ~ c4 |
  42         r16 c8. ~ c4 r16 c8. ~ c4 |}>
  43 %% 10
  44         r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] |
  45         r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] |
  46         r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] |
  47         r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] |
  48         r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] |
  49         r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] |
  50         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  51         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  52         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  53         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  54 %% 20
  55         r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] |
  56         r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] |
  57         r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] |
  58         r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] |
  59         r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] |
  60         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  61         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  62         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  63         r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] |
  64         r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] |
  65 %% 30
  66         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  67         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  68         r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] |
  69
  70         r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] |
  71         r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] |
  72         <e1 g c'> \bar "|.";
  73     }
  74
  75 bass =
  76     \notes {
  77         \clef "bass";
  78
  79
  80         \stemdown
  81         c'2 c' |
  82         c' c' |
  83         b b |
  84         c' c' |
  85         c' c' |
  86         c' c' |
  87         b b |
  88         b b |
  89         a a |
  90 %% 10
  91         \context Staff <
  92         \context Voice =  Alt
  93         {\stemup
  94         r16 a8. ~ a4 r16 a8. ~ a4 |
  95         r16 b8. ~ b4 r16 b8. ~ b4 |
  96         r16 bes8. ~ bes4 r16 bes8. ~ bes4 |
  97         r16 a8. ~ a4 r16 a8. ~ a4 |
  98         r16 aes8. ~ aes4 r16 aes8. ~ aes4 |
  99         r16 g8. ~ g4 r16 g8. ~ g4 |
 100         r16 f8. ~ f4 r16 f8. ~ f4 |
 101         r16 f8. ~ f4 r16 f8. ~ f4 |
 102         r16 d8. ~ d4 r16 d8. ~ d4 |
 103         r16 e8. ~ e4 r16 e8. ~ e4 |
 104 %% 20
 105         r16 g8. ~ g4 r16 g8. ~ g4 |
 106         r16 f8. ~ f4 r16 f8. ~ f4 |
 107         r16 c8. ~ c4 r16 c8. ~ c4 |
 108         r16 f8. ~ f4 r16 f8. ~ f4 |
 109         r16 f8. ~ f4 r16 f8. ~ f4 |
 110         r16 e8. ~ e4 r16 e8. ~ e4 |
 111         r16 d8. ~ d4 r16 d8. ~ d4 |
 112         r16 d8. ~ d4 r16 d8. ~ d4 |
 113         r16 ees8. ~ ees4 r16 ees8. ~ ees4 |
 114         r16 e!8. ~ e4 r16 e8. ~ e4 |
 115 %% 30
 116         r16 d8. ~ d4 r16 d8. ~ d4 |
 117         r16 d8. ~ d4 r16 d8. ~ d4 |
 118         r16 c8. ~ c4 r16 c8. ~ c4 |
 119
 120         r16 c8. ~ c4 ~ c2 |
 121         r16 b,8. ~ b,4 ~ b,2 |
 122         c1 ||}
 123
 124         \context Voice = Bass
 125         {\stemdown
 126         d2 d |
 127         g g |
 128         g g |
 129         f f |
 130         f f |
 131         e e |
 132         e e |
 133         d d |
 134         g, g, |
 135         c c |
 136 %% 20
 137         c c |
 138         f, f, |
 139         fis, fis, |
 140         aes, aes, |
 141         g, g, |
 142         g, g, |
 143         g, g, |
 144         g, g, |
 145         g, g, |
 146         g, g, |
 147 %% 30
 148         g, g, |
 149         g, g, |
 150         c, c, |
 151
 152         c, c, |
 153         c, c, |
 154         c,1 \bar "|."; }>
 155     }
 156
 157
 158 \score {
 159     \notes \context PianoStaff <
 160         \soprane
 161         \bass
 162     >
 163     \paper{
 164         gourlay_maxmeasures =5.;
 165     }
 166     \midi {
 167         \tempo 4 = 84;
 168     }
 169 }
 170
 171 % EOF
 172