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 "0.1.14";
  12
  13 global =
  14     \melodic {
  15          \meter 4/4;                % should be \meter C
  16     }
  17
  18
  19 % should do programmable input.
  20
  21 soprane =
  22     \melodic {
  23         \clef "violin";
  24         \octave c';
  25
  26         \multi 2 <
  27         % Real soprane
  28         {\stemup
  29         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  30         r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] |
  31         r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] |
  32         r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] |
  33         r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] |
  34         r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] |
  35         r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] |
  36         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |
  37         r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |}
  38         % Tenor
  39         {\stemdown
  40         r16 e8. ~ e4 r16 e8. ~ e4 |
  41         r16 d8. ~ d4 r16 d8. ~ d4 |
  42         r16 d8. ~ d4 r16 d8. ~ d4 |
  43         r16 e8. ~ e4 r16 e8. ~ e4 |
  44         r16 e8. ~ e4 r16 e8. ~ e4 |
  45         r16 d8. ~ d4 r16 d8. ~ d4 |
  46         r16 d8. ~ d4 r16 d8. ~ d4 |
  47         r16 c8. ~ c4 r16 c8. ~ c4 |
  48         r16 c8. ~ c4 r16 c8. ~ c4 |}>
  49 %% 10
  50         r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] |
  51         r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] |
  52         r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] |
  53         r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] |
  54         r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] |
  55         r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] |
  56         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  57         r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] |
  58         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  59         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  60 %% 20
  61         r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] |
  62         r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] |
  63         r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] |
  64         r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] |
  65         r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] |
  66         r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] |
  67         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  68         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  69         r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] |
  70         r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] |
  71 %% 30
  72         r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] |
  73         r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] |
  74         r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] |
  75
  76         r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] |
  77         r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] |
  78         <e1 g c'> ||
  79     }
  80
  81 bass =
  82     \melodic {
  83         \clef "bass";
  84         \octave c;
  85
  86         \stemdown
  87         c'2 c' |
  88         c' c' |
  89         b b |
  90         c' c' |
  91         c' c' |
  92         c' c' |
  93         b b |
  94         b b |
  95         a a |
  96 %% 10
  97         \multi 2 <
  98         % Alt
  99         {\stemup
 100         r16 a8. ~ a4 r16 a8. ~ a4 |
 101         r16 b8. ~ b4 r16 b8. ~ b4 |
 102         r16 bes8. ~ bes4 r16 bes8. ~ bes4 |
 103         r16 a8. ~ a4 r16 a8. ~ a4 |
 104         r16 aes8. ~ aes4 r16 aes8. ~ aes4 |
 105         r16 g8. ~ g4 r16 g8. ~ g4 |
 106         r16 f8. ~ f4 r16 f8. ~ f4 |
 107         r16 f8. ~ f4 r16 f8. ~ f4 |
 108         r16 d8. ~ d4 r16 d8. ~ d4 |
 109         r16 e8. ~ e4 r16 e8. ~ e4 |
 110 %% 20
 111         r16 g8. ~ g4 r16 g8. ~ g4 |
 112         r16 f8. ~ f4 r16 f8. ~ f4 |
 113         r16 c8. ~ c4 r16 c8. ~ c4 |
 114         r16 f8. ~ f4 r16 f8. ~ f4 |
 115         r16 f8. ~ f4 r16 f8. ~ f4 |
 116         r16 e8. ~ e4 r16 e8. ~ e4 |
 117         r16 d8. ~ d4 r16 d8. ~ d4 |
 118         r16 d8. ~ d4 r16 d8. ~ d4 |
 119         r16 ees8. ~ ees4 r16 ees8. ~ ees4 |
 120         r16 e!8. ~ e4 r16 e8. ~ e4 |
 121 %% 30
 122         r16 d8. ~ d4 r16 d8. ~ d4 |
 123         r16 d8. ~ d4 r16 d8. ~ d4 |
 124         r16 c8. ~ c4 r16 c8. ~ c4 |
 125
 126         r16 c8. ~ c4 ~ c2 |
 127         r16 b,8. ~ b,4 ~ b,2 |
 128         c1 ||}
 129
 130         % Bass
 131         {\stemdown
 132         d2 d |
 133         g g |
 134         g g |
 135         f f |
 136         f f |
 137         e e |
 138         e e |
 139         d d |
 140         g, g, |
 141         c c |
 142 %% 20
 143         c c |
 144         f, f, |
 145         fis, fis, |
 146         aes, aes, |
 147         g, g, |
 148         g, g, |
 149         g, g, |
 150         g, g, |
 151         g, g, |
 152         g, g, |
 153 %% 30
 154         g, g, |
 155         g, g, |
 156         c, c, |
 157
 158         c, c, |
 159         c, c, |
 160         c,1 }>
 161     }
 162
 163
 164 \score {
 165     \melodic \type Grand_staff <
 166                   <
 167                        \global
 168                        \soprane
 169                  >
 170                   <
 171                        \global
 172                        \bass
 173                  >
 174              >
 175
 176     \paper{
 177         gourlay_maxmeasures =5.;
 178     }
 179     \midi {
 180         \tempo 4 = 84;
 181     }
 182 }
 183
 184 % EOF