+%{
+
+ Six Petits Preludes,
+ Collection Johann Peter Kellner
+ ca 1703 - 1707
+
+ Kellner was a student of Bach's that copied some 90 works of his master.
+
+%}
\header{
-filename = "preludes-1.ly";
-% mmm
-% title = "DOUZE PETITES PR\\'ELUDES";
-opus = "BWV 924";
-% piece = "\\numfont 1";
-piece = "1";
-% blz 1
-% Clavierb"uchlein f"ur W. Fr. Bach
-% Clav. W. Fr. Bach: 2-Praeambulum I
-% ca 1720
-composer = "Johann Sebastian Bach (1685-1750)";
-enteredby = "jcn";
-copyright = "public domain";
+ copyright = "public domain";
+ source = "Ed. Henry Lemoine Urtext";
+ title = "Pr\\\"aludum";
+
+ opus = "BWV 924";
+ composer = "Johann Sebastian Bach (1685-1750)";
+ enteredby = "jcn,hwn";
+
+ % mutopia headers.
+ mutopiatitle = "Prelude";
+ mutopiacomposer = "J.S.Bach";
+ mutopiaopus = "BWV924";
+ mutopiainstrument = "Piano";
+ style = "baroque";
+ copyright = "Public Domain";
+ maintainer = "Jan Nieuwenhuizen";
+ maintainer_email = "janneke@gnu.org";
+ 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!";
+ maintainer = "janneke@gnu.org";
+ lastupdated = "1999/Nov/14";
}
+%{
+
+TODO: this file needs additional layouting: the trills look
+differently in Lemoine, and the sharps should be below the trill.
+
+Additionally, the performance of trills should be explained.
+
+Lemoine puts fermatas on ending bar lines everywhere.
+
+1.2.x versions of lily contain a version with dynamics and fingerings.
+
+%}
+
+
+
+\version "1.3.93";
-\version "1.0.4";
-
-one = \notes\relative c {
- \property Voice . textstyle = "italic"
- r16\p_"legato"\< [g''-1( c-3 )e-5] r [g,-1( c )e]
- r [g,( c )d] r [b-1( d-2 \!)g-5] |
- r\mf [a,( d-2 ) g-5] r [a,(\< d )f-4]
- r [a,( d )e-3] r [c-1( e-2 \!)a-5] |
- r\f [b, e a-5] r [b, e-3 g-5]
- r [c,-1 e-3 f-4] r [g, d'-3 f-5] |
- r [g,-"poco a poco dim." d'-4 e] r [g, c-2 e]
- r [a,-1 c-3 d-4] r [e, b'-3 d-5] |
- r [e, b' c-4] r [e, a-2 c]
- r [f,-1 a-3 bes-4] r [c, g'-3 bes-5] |
- r [c, g' a-4] r [c, f-2 a]
- r [d, f-2 b-5] r [e, g-2 c-5] |
- r\p [d, g c-5] r [d, g b-4]
- r [c, g'-3 b-5] r [c, fis-2 a-4] |
- r [b, d a'-5] r [b, d g-4]
- r [a, c g'-5] r [a, c f!-4] |
+
+lowstaff = \translator "Staff" = "lower"
+upstaff = \translator "Staff" = "upper"
+
+% upper = \context Staff \notes\relative c {
+upper = \context Staff=upper \notes\relative c {
+ \context Voice=i
+ \property Voice . textStyle = "italic"
+
+ r16 g'' c e r g, c e
+ r g, c d r b d g |
+ r16 a, d g r a, d f
+ r a, d e r c e a |
+ r16 b, e a r b, e g
+ r c, e f r g, d' f |
+
+ r g, d' e r g, c e
+ r a, c d r e, b' d |
+ r e, b' c r e, a c
+ r f, a bes r c, g' bes |
+ r c, g' a r c, f a
+ r d, f b r e, g c |
+ r d, g c r d, g b
+ r c, g' b r c, fis a |
+ r b, d a' r b, d g
+ r a, c g' r a, c f! |
+
% ugh arpeggio
- <
- { \voiceone f4 r s }
- { \voicetwo <g,4 d'> r s }
- >
- \onevoice
- % ugh beam across staffs slur starts at lower staff
- r16 [g,-1( b d] |
- \voiceone
- )b s4 [g'16-1( b-2 d] )b s s s [f'-2 g-3 b-5 f-2] |
- \onevoice
- [e-1\f c'-5( g-3 f-2] [e-1 c'-5 g-3 e-2]
- [)d c'-5( f,-3 e-2] [d-1 b'-5 f-3 d-2] |
- [)c b'-5( e,-3 d-2] [c-1 a'-5 e-3 c-2]
- [)b-1 a'-5( d,-3 c-2] [b-1 g'-5 d-3 b-2] |
- [)a g'-5 c,-4 b] [a-"poco a poco dim." fis'-5 c-2 a-1]
- [b-2 f' d-4 c] [b f' d-4 b-2] |
- [g e' c-3 b] [a e'-5 c-3 a-1]
- [fis-2 d' b-3 a] [g-1 d'-5 b-4 g-2] |
- [e c'-5 a-4 g-3] [fis-2 c'-5 a-4 fis-2]
- [d c'-5 b-4 a] [b-4 g-2 d'-5 f,-1] |
- [g-4 e-2 f-1 d'-5] [c-4 b a g]
- [f'-5 d-3 es-4 c-2] [fis,-1 es'-4 d-3 c-2] |
- [b-1 d-5 b-3 g-1] [as-4-"cresc. e rall." f-2 g-3 d-1]
- [es-2 fis-3 a-4 c-5]
+ <f4 d b4>
+ r4
+
+ \stemBoth
+ \stemUp
+ r16 g,, b d
+ [ f \upstaff \stemDown g16 b d ] |
+ \stemUp b
+ \lowstaff \stemDown
+ [ g b d ] f
+ \upstaff
+ [ g16 b d ] b
+ [ g b d ]
+ \stemUp
+
+ % urg, below translator change affects previous beam too!?
+ % howto separate translator command from previous beam end?
+ \upstaff f g b f |
+ \stemBoth
+ e c' g f e c' g e
+ d c' f, e d b' f d |
+ c b' e, d c a' e c
+ b a' d, c b g' d b |
+ a g' c, b a fis' c a
+ b f' d c b f' d b |
+ g e' c b a e' c a
+ fis d' b a g d' b g |
+ e c' a g fis c' a fis
+ d c' b a b g d' f, |
+ g e f d' c b a g
+ f' d es c fis, es' d c |
+ b d b g as f g d
+ es fis a c
<
- { \voiceone r [c8 b16] }
- { \voicetwo [d,8 f-2] }
+ { \stemUp r c8 b16 }
+ \context Voice=ii { \stemDown d,8 f }
>
- \onevoice |
- <c1\mf g e>
+ \stemBoth |
+ <c1 g e>
\bar "|.";
}
-two = \notes\relative c{
- \property Voice . textstyle = "roman"
- c4-5 e-3 g-\mordent^"(\\textsharp)" g,4 |
- d'-\mordent-5 f-3 a-\mordent^"(\\textsharp)" a,4 |
- e'-5 e'-\mordent-1 a,-4 b-\upprall |
- c4 e,-4 fis gis-\downprall |
- a4 c,-4 d e-\upprall |
- f4-1 e d-3-\prall c |
- g'-\mordent^"(\\textsharp)" g, g'-\mordent g, |
+% lower = \context Staff \notes\relative c{
+lower = \context Staff=lower \notes\relative c{
+ \context Voice=i
+ \property Voice . textStyle = "roman"
+ c4 e g^"\\textsharp"-\mordent g,4 |
+ d'4-\mordent f a-\mordent^"\\textsharp" a,4 |
+ e' e'-\mordent a, b-\upprall |
+ c4 e, fis gis-\upprall |
+ a4 c, d e-\upprall |
+ f4 e d-\prall c |
+ g'-\mordent^"\\textsharp" g, g'-\mordent g, |
g'-\mordent g, g'-\mordent g, |
- % ugh f should be at upper staff
- g'-\mordent r r16 [g,-5( b-4 d] )f-1 s s s |
- s [g-5( b-4 d-2] )f-1 s s s s \clef "violin"; [g-4 b-2 d-1]
- s s s s \clef bass; |
+ g' r s s | s s s s \clef "bass"; |
<
- { \voiceone g,,1 ~ g ~ g ~ g ~ g ~ g ~ g }
- { \voicetwo g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
+ { \stemUp g1 ~ g ~ g ~ g ~ g ~ g ~ g }
+ \context Voice=ii { \stemDown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
>
<c,1 c,>
\bar "|.";
}
-global = \notes{
+global = \notes{
\time 4/4;
}
-treble_staff = \type Staff = treble <
- \global
- \one
->
-
-bass_staff = \type Staff = bass <
-% bass = Staff <
- \clef "bass";
- \global
- \two
->
-
-grand_staff = \type GrandStaff <
- \treble_staff
- \bass_staff
->
-
\score{
- % Moderato
- \grand_staff
- \include "preludes-paper.ly";
+ % Moderato
+ \context PianoStaff <
+ \context Staff = upper <
+ \global
+ \upper
+ >
+ \context Staff = lower <
+ \global
+ \clef "bass";
+ \lower
+ >
+ >
+ \paper { linewidth = 18.0 \cm; }
\midi{ \tempo 4 = 80; }
+ \header {
+ opus = "BWV 924";
+ piece = "1";
+ }
}