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