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