mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly

   1 %{
   2
   3  Six Petits Preludes,
   4  Collection Johann Peter Kellner
   5  ca 1703 - 1707
   6
   7
   8
   9
  10  Kellner was a student of Bach's that copied some 90 works of his master.
  11
  12
  13 %}
  14 \header{
  15   copyright =    "public domain";
  16   source = "Ed. Henry Lemoine Urtext";
  17   title =        "Pr\\\"aludum in C moll";
  18   subtitle = "f\\\"ur Laute";
  19   composer =     "Johann Sebastian Bach (1685-1750)";
  20   enteredby =    "jcn,hwn";
  21   copyright =    "public domain";
  22
  23   % mutopia headers.
  24   mutopiatitle = "Prelude";
  25   mutopiacomposer = "J.S.Bach";
  26   mutopiaopus = "BWV999";
  27   mutopiainstrument = "Piano";
  28   style = "baroque";
  29   copyright = "Public Domain";
  30
  31   maintainer = "Jan Nieuwenhuizen";
  32   maintainer_email = "janneke@gnu.org";
  33   tagline =    "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
  34   maintainer = "janneke@gnu.org";
  35   lastupdated = "1999/Nov/14";
  36 }
  37
  38 %{
  39
  40 TODO: this file needs additional layouting: the upper voice should
  41 switch staffs to avoid leger lines.
  42
  43 Not all editions agree on the last note: ed. Lemoine has a quarter
  44 note, some have dotted half notes.
  45
  46
  47 %}
  48 \version "1.3.59";
  49
  50
  51 upper =  \notes \transpose c'' {
  52         r16 [c es g] [es c es c] r c r c |
  53         r16 [c es g] [es c es c] r c r c |
  54         r16 [c f as] [f c f c] r c r c |
  55         r16 [c f as] [f c f c] r c r c |
  56         r16 [b, d f] [d b, d b,] r b, r b, |
  57         r16 [b, d f] [d b, d b,] r b, r b, |
  58         r16 [g, c es] [c g, c g,] r g, r g, |
  59         r16 [g, c es] [c g, c g,] r g, r g, |
  60         r16 [g, c es] [c g, c g,] r g, r g, |
  61         r16 [g, c es] [c g, c g,] r g, r g, |
  62         r16 [a, c es] [c a, c a,] r a, r a, |
  63         r16 [a, c es] [c a, c a,] r a, r a, |
  64         r16 [a, bes, d] [bes, a, bes, a,] r a, r a, |
  65         r16 [g, bes, d] [bes, g, bes, g,] r g, r g, |
  66         r16 [bes, d g] [d bes, d bes,] r bes, r bes, |
  67         r16 [a, es g] [es a, es a,] r a, r a, |
  68         r16 [a, c fis] [c a, c a,] r a, r a, |
  69         r16 [a, c fis] [c a, c a,] r a, r a, |
  70         r16 [bes, d g] [d bes, d bes,] r bes, r bes, |
  71
  72         r16 [c fis a] [fis c fis c] r c r c |
  73         r16 [d g bes] [g d g d] r d r d |
  74         r16 [d fis c'] [fis d fis d] r d r d |
  75
  76         r16 [cis g bes] [g cis g cis] r cis r cis |
  77         r16 [c! es a] [es c es c] r c r c |
  78         r16 [bes, e g] [e bes, e bes,] r bes, r bes, |
  79         r16 [a, c g] [c a, c a,] r a, r a, |
  80
  81         r16 [a, c fis] [c a, c a,] r a, r a, |
  82         r16 [g, bes, e] [bes, g, bes, g,] r g, r g, |
  83         r16 [fis, a, es] [a, fis, a, fis,] r fis, r fis, |
  84         r16 [g, bes, d] [bes, g, bes, g,] r g, r g, |
  85         r16 [g, a, c] [a, g, a, g,] r g, r g, |
  86         r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, |
  87         r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, |
  88         r16 [g, a, c] [b, g, b, g,] r g, r g,
  89         r16 [a, c fis] [c a, c a,] r a, r a, |
  90         r16 [c fis a] [fis c fis c] r c r c |
  91         r16 [b, d g] [d b, d b,] r b, r b, |
  92         r16 [b, d f] [d b, d b,] r b, r b, |
  93         r16 [g, c es] [c g, c g,] r g, r g, |
  94         r16 [fis, c es] [c fis, c fis,] r fis, r fis, |
  95         r16 [fis, c es] [c fis, c fis,] r fis, r fis, |
  96         r16 [g, b, d] [b, g, b, d] [es c a, fis] |
  97
  98
  99         <g4 d b>
 100         \bar "|.";
 101 }
 102
 103 lower =  \notes{
 104         c4 r [g8 es] |
 105         c4 r [g8 es] |
 106         c4 r [as8 f] |
 107
 108         c4 r [as8 f] |
 109         c4 r [as8 f] |
 110         c4 r [as8 f] |
 111
 112         c4 r [es8 c] |
 113         bes,!4 r [es8 c] |
 114         as,!4 r [es8 c] |
 115
 116         g,4 r [es8 c] |
 117         fis,4 r [es8 c] |
 118         fis,4 r [fis8 d] |
 119
 120         g,4 r [d8 bes,] |
 121         g,4 r [bes,8 g,] |
 122         es,4 r [g8 es] |
 123
 124         c4 r [c8 a,] |
 125         d,4 r [d8 a,] |
 126         d,4 r [d8 a,] |
 127         d,4 r [d8 bes,] |
 128
 129
 130         d,4 r [es8 c] |
 131         d,4 r [g8 d] |
 132         d,4 r [a8 fis] |
 133
 134         d,4 r [g8 es] |
 135         d,4 r [fis8 d] |
 136         d,4 r [e8 cis] |
 137         d,4 r [es8 c] |
 138
 139         d,4 r [d8 a,] |
 140         d,4 r [cis8 bes,] |
 141         d,4 r [c!8 a,] |
 142
 143         d,4 r [bes,8 g,] |
 144         d,4 r [es8 c] |
 145         d,4 r [d8 a,] |
 146
 147         g,4 r [es8 c] |
 148         g,4 r [d8 b,] |
 149         g,4 r [es8 c] |
 150
 151         g,4 r [es8 c] |
 152         g,4 r [g8 d] |
 153         g,4 r [as8 f] |
 154         g,4 r [es8 c] |
 155
 156         g,4 r [es8 c] |
 157         g,4 r [es8 c] |
 158         g,4 r r |
 159         g,4_\fermata
 160         \bar "|.";
 161 }
 162
 163 global  = \notes{
 164         \time 3/4;
 165         \key es \major;
 166 }
 167
 168 \score{
 169         \context PianoStaff <
 170                 \context Staff = up <
 171                         \global
 172                         \upper
 173                 >
 174                 \context Staff = down <
 175                         \global
 176                         \clef "bass";
 177                         \lower
 178                 >
 179         >
 180         \paper{
 181                 \translator { \PianoStaffContext
 182                         minVerticalAlign = 2.2 * \staffheight;
 183                         maxVerticalAlign = 2.2 * \staffheight ;
 184                 }
 185                 \translator {\OrchestralScoreContext }
 186         }
 187         \midi{ \tempo 4 = 100; }
 188         \header{
 189                 opus =  "BWV 999";
 190         }
 191 }