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.4";
  48
  49 % upper = \context Staff \notes\relative c {
  50 upper = \context Staff=upper \notes\relative c {
  51         \context Voice=i
  52         \property Voice . textStyle = "italic"
  53
  54         r16 g'' c e r g, c e
  55         r g, c d r b d g |
  56         r16 a, d  g r a, d f
  57         r a, d e r c e a |
  58         r16 b, e a r b, e g
  59         r c, e f r g, d' f |
  60
  61         r g, d' e r g, c e
  62         r a, c d r e, b' d |
  63         r e, b' c r e, a c
  64         r f, a bes r c, g' bes |
  65         r c, g' a r c, f a
  66         r d, f b r e, g c |
  67         r d, g c r d, g b
  68         r c, g' b r c, fis a |
  69         r b, d a' r b, d g
  70         r a, c g' r a, c f! |
  71         % ugh arpeggio
  72         <
  73                 { \stemup f4 r }
  74                 \context Voice=ii { \stemdown <g,4 d'> r }
  75         >
  76         \stemboth
  77         \translator Staff=lower\stemup
  78         r16 g,, b d
  79         [ f \translator Staff=upper\stemdown g16 b d ] |
  80         \stemup b
  81         \translator Staff=lower\stemdown
  82         [ g b d ] f
  83         \translator Staff=upper\stemup
  84         [ g16 b d ] b
  85         \translator Staff=lower\stemup
  86         \clef "violin";
  87         [ g b d ]
  88         \stemup
  89         % urg, below translator change affects previous beam too!?
  90         % howto separate translator command from previous beam end?
  91         \translator Staff=upper f g b f |
  92         \stemboth
  93         e c' g f  e c' g e
  94         d c' f, e  d b' f d |
  95         c b' e, d  c a' e c
  96         b a' d, c  b g' d b |
  97         a g' c, b  a fis' c a
  98         b f' d c  b f' d b |
  99         g e' c b  a e' c a
 100         fis d' b a  g d' b g |
 101         e c' a g  fis c' a fis
 102         d c' b a  b g d' f, |
 103         g e f d'  c b a g
 104         f' d es c  fis, es' d c |
 105         b d b g  as f g d
 106         es fis a c
 107         <
 108                 { \stemup r c8 b16 }
 109                 \context Voice=ii { \stemdown  d,8 f }
 110         >
 111         \stemboth |
 112         <c1 g e>
 113         \bar "|.";
 114 }
 115
 116 % lower = \context Staff \notes\relative c{
 117 lower = \context Staff=lower \notes\relative c{
 118         \context Voice=i
 119         \property Voice . textStyle = "roman"
 120         c4 e g^"\\textsharp"-\mordent g,4 |
 121         d'4-\mordent f a-\mordent^"\\textsharp" a,4 |
 122         e' e'-\mordent a, b-\upprall |
 123         c4 e, fis gis-\downprall |
 124         a4 c, d e-\upprall |
 125         f4 e d-\prall c |
 126         g'-\mordent^"\\textsharp" g, g'-\mordent g, |
 127         g'-\mordent g, g'-\mordent g, |
 128         g' r s s | s s s s \clef "bass"; |
 129         <
 130                 { \stemup g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 131                 \context Voice=ii { \stemdown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 132         >
 133         <c,1 c,>
 134         \bar "|.";
 135 }
 136
 137 global = \notes{
 138         \time 4/4;
 139 }
 140
 141 \score{
 142         % Moderato
 143         \context PianoStaff <
 144                 \context Staff = upper <
 145                         \global
 146                         \upper
 147                 >
 148                 \context Staff = lower <
 149                         \global
 150                         \clef "bass";
 151                         \lower
 152                 >
 153         >
 154         \paper { linewidth = 18.0 \cm;  }
 155         \midi{ \tempo 4 = 80; }
 156         \header {
 157                 opus = "BWV 924";
 158                 piece = "1";
 159         }
 160 }