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

   1 %{
   2
   3  Six Petits Preludes,
   4  Collection Johann Peter Kellner
   5  ca 1703 - 1707
   6
   7  Kellner was a student of Bach's that copied some 90 works of his master.
   8
   9 %}
  10 \header{
  11   copyright =    "public domain";
  12   source = "Ed. Henry Lemoine Urtext";
  13   title =        "Pr\\\"aludum";
  14
  15   opus = "BWV 924";
  16   composer =     "Johann Sebastian Bach (1685-1750)";
  17   enteredby =    "jcn,hwn";
  18
  19   % mutopia headers.
  20   mutopiatitle = "Prelude";
  21   mutopiacomposer = "J.S.Bach";
  22   mutopiaopus = "BWV924";
  23   mutopiainstrument = "Piano";
  24   style = "baroque";
  25   copyright = "Public Domain";
  26   maintainer = "Jan Nieuwenhuizen";
  27   maintainer_email = "janneke@gnu.org";
  28   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!";
  29   maintainer = "janneke@gnu.org";
  30   lastupdated = "1999/Nov/14";
  31 }
  32 %{
  33
  34 TODO: this file needs additional layouting: the trills look
  35 differently in Lemoine, and the sharps should be below the trill.
  36
  37 Additionally, the performance of trills should be explained.
  38
  39 Lemoine puts fermatas on ending bar lines everywhere.
  40
  41 1.2.x versions of lily contain a version with dynamics and fingerings.
  42
  43 %}
  44
  45
  46
  47 \version "1.3.42";
  48
  49
  50 lowstaff = \translator "Staff" = "lower"
  51 upstaff = \translator "Staff" = "upper"
  52
  53 % upper = \context Staff \notes\relative c {
  54 upper = \context Staff=upper \notes\relative c {
  55         \context Voice=i
  56         \property Voice . textStyle = "italic"
  57
  58         r16 g'' c e r g, c e
  59         r g, c d r b d g |
  60         r16 a, d  g r a, d f
  61         r a, d e r c e a |
  62         r16 b, e a r b, e g
  63         r c, e f r g, d' f |
  64
  65         r g, d' e r g, c e
  66         r a, c d r e, b' d |
  67         r e, b' c r e, a c
  68         r f, a bes r c, g' bes |
  69         r c, g' a r c, f a
  70         r d, f b r e, g c |
  71         r d, g c r d, g b
  72         r c, g' b r c, fis a |
  73         r b, d a' r b, d g
  74         r a, c g' r a, c f! |
  75
  76         % ugh arpeggio
  77         <f4 d b4>
  78         r4
  79
  80         \stemboth
  81         \stemup
  82         r16 g,, b d
  83         [ f \upstaff \stemdown g16 b d ] |
  84         \stemup b
  85         \lowstaff \stemdown
  86         [ g b d ] f
  87         \upstaff
  88         [ g16 b d ] b
  89         [ g b d ]
  90         \stemup
  91
  92         % urg, below translator change affects previous beam too!?
  93         % howto separate translator command from previous beam end?
  94         \upstaff f g b f |
  95         \stemboth
  96         e c' g f  e c' g e
  97         d c' f, e  d b' f d |
  98         c b' e, d  c a' e c
  99         b a' d, c  b g' d b |
 100         a g' c, b  a fis' c a
 101         b f' d c  b f' d b |
 102         g e' c b  a e' c a
 103         fis d' b a  g d' b g |
 104         e c' a g  fis c' a fis
 105         d c' b a  b g d' f, |
 106         g e f d'  c b a g
 107         f' d es c  fis, es' d c |
 108         b d b g  as f g d
 109         es fis a c
 110         <
 111                 { \stemup r c8 b16 }
 112                 \context Voice=ii { \stemdown  d,8 f }
 113         >
 114         \stemboth |
 115         <c1 g e>
 116         \bar "|.";
 117 }
 118
 119 % lower = \context Staff \notes\relative c{
 120 lower = \context Staff=lower \notes\relative c{
 121         \context Voice=i
 122         \property Voice . textStyle = "roman"
 123         c4 e g^"\\textsharp"-\mordent g,4 |
 124         d'4-\mordent f a-\mordent^"\\textsharp" a,4 |
 125         e' e'-\mordent a, b-\upprall |
 126         c4 e, fis gis-\upprall |
 127         a4 c, d e-\upprall |
 128         f4 e d-\prall c |
 129         g'-\mordent^"\\textsharp" g, g'-\mordent g, |
 130         g'-\mordent g, g'-\mordent g, |
 131         g' r s s | s s s s \clef "bass"; |
 132         <
 133                 { \stemup g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 134                 \context Voice=ii { \stemdown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 135         >
 136         <c,1 c,>
 137         \bar "|.";
 138 }
 139
 140 global = \notes{
 141         \time 4/4;
 142 }
 143
 144 \score{
 145         % Moderato
 146         \context PianoStaff <
 147                 \context Staff = upper <
 148                         \global
 149                         \upper
 150                 >
 151                 \context Staff = lower <
 152                         \global
 153                         \clef "bass";
 154                         \lower
 155                 >
 156         >
 157         \paper { linewidth = 18.0 \cm;  }
 158         \midi{ \tempo 4 = 80; }
 159         \header {
 160                 opus = "BWV 924";
 161                 piece = "1";
 162         }
 163 }