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.9";
  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 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] |
  57         r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] |
  58         r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
  59         r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] |
  60 %% 20
  61         r8 ['bes16 c] [e 'bes c e] r8 ['bes16 c] [e 'bes c e] |
  62         r8 ['a16 c] [e 'a c e] r8 ['a16 c] [e 'a c e] |
  63         r8 ['a16 c] [ees 'a c ees] r8 ['a16 c] [ees 'a c ees] |
  64         r8 ['b16 c] [d 'b c d] r8 ['b16 c] [d 'b c d] |
  65         r8 ['g16 'b] [d 'g 'b d] r8 ['g16 'b] [d 'g 'b d] |
  66         r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] |
  67         r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] |
  68         r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
  69         r8 ['a16 c] [fis 'a c fis] r8 ['a16 c] [fis 'a c fis] |
  70         r8 ['g16 c] [g 'g c g] r8 ['g16 c] [g 'g c g] |
  71 %% 30
  72         r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] |
  73         r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] |
  74         r8 ['g16 'bes] [e 'g 'bes e] r8 ['g16 'bes] [e 'g 'bes e] |
  75
  76         r8 ['f16 '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 'b8. ~ 'b4 ~ 'b2 |
 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         'c1 }>
 161     }
 162
 163
 164 \score {
 165     \melodic \type Grandstaff <
 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