\header{
filename = "preludes-1.ly";
-title = "DOUZE P\'ETITES PRELUDES";
-% tempo = "Moderato"
+% 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";
}
-\include "paper20.ly"
-
one = \melodic{
\octave c'';
\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] |
+ 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] |
% ugh, arpeggio
<
- { \voiceone; 'f4 r s }
- { \voicetwo; <''g4 'd> r s }
+ { \voiceone f,4 r s }
+ { \voicetwo <g,,4 d,> r s }
>
- \onevoice;
+ \onevoice
% ugh beam across staffs, slur starts at lower staff
- r16 [''g-1( ''b 'd] |
- \voiceone;
- )''b s4 ['g16-1( 'b-2 d] )'b s s s [f-2 g-3 b-5 f-2] |
- \onevoice;
+ 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]
+ [)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]
<
- { \voiceone; r [c8 'b16] }
- { \voicetwo; ['d8 'f-2] }
+ { \voiceone r [c8 b,16] }
+ { \voicetwo [d,8 f,-2] }
>
- \onevoice; |
- <c1\mf 'g 'e>
+ \onevoice |
+ <c1\mf g, e,>
\bar "|.";
}
two = \melodic{
\octave c;
\textstyle "roman";
- c4-5 e-3 [g32-1 fis-2 g8.-1] 'g4 |
- d-5 f-3 [a32-1 gis a8.] 'a4 |
- % ugh grouping32: 4..4
- e-5 e'-1 a-4 [a32-3 b c' b] [c' b a b] |
- c'4 e-4 fis [a32-1 gis fis gis] [a gis fis gis] |
- a4 c-4 d [d32 e f e] [f e d e] |
- % ugh tril sign
- % f4-1 e d-3\tr c |
- f4-1 e d-3 c |
- % g( )'g g\pr-"(#)"( )'g |
- g ~ 'g g-"(\\textsharp)" ~ 'g |
- % g\pr-"(\\textsharp)" ~ 'g g\pr-"(\\textsharp)" ~ 'g |
- g-"(\\textsharp)" ~ 'g g-"(\\textsharp)" ~ 'g |
+ 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 |
+ c'4 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, |
+ g-\mordent g, g-\mordent g, |
% ugh, f should be at upper staff
- g 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]
+ 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]
+ % huh, can't violin anymore (see BUGS)
+ s [g-5( b-4 d'-2] )f'-1 s s s s [g'-4 b'-2 d''-1]
s s s s \clef bass; |
<
- { \voiceone; g1 ~ g ~ g ~ g ~ g ~ g ~ g }
- { \voicetwo; 'g1 ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g ~ 'g }
+ { \voiceone g1 ~ g ~ g ~ g ~ g ~ g ~ g }
+ { \voicetwo g,1 ~ g, ~ g, ~ g, ~ g, ~ g, ~ g, }
>
- <c1 'c>
+ <c1 c,>
\bar "|.";
}
\two
>
-grand_staff = \type Grandstaff <
+grand_staff = \type Grand_staff <
\treble_staff
\bass_staff
>
a4 = \paper{
- \paper_twenty
- linewidth= 195.\mm;
+ linewidth= 193.\mm;
}
\score{