partial: 1.0.1.jcn

[lilypond.git] / mutopia / J.S.Bach / preludes-5.ly

diff --git a/mutopia/J.S.Bach/preludes-5.ly b/mutopia/J.S.Bach/preludes-5.ly
index 35efe1587cec93a8126a181e13ee1edc20cce12c..2584662853c13b6a01917d8688f6a7de61f422a2 100644 (file)
--- a/mutopia/J.S.Bach/preludes-5.ly
+++ b/mutopia/J.S.Bach/preludes-5.ly
@@ -1,6 +1,9 @@
 \header{
 filename =      "preludes-5.ly";
 title =         "5";
+% piece = "\\numfont 5";
+piece = "5";
+opus = "BWV 926";
 % blz 2
 % Clavierb"uchlein f"ur W. Fr. Bach
 % Clav. W. Fr. Bach: 4-Praeludium 2
@@ -10,8 +13,6 @@ enteredby =    "jcn";
 copyright =     "public domain";
 }
 
-\include "paper20.ly"
-
 one = \melodic{
        \octave c';
        \textstyle "italic";
@@ -27,15 +28,15 @@ one = \melodic{
        [a gis-3 fis e d'-5 \!b-2] |
        < 
                {
-                       \voiceone;
+                       \voiceone 
                        \textstyle "roman";
                        c'4-\mordent^"(\\textsharp)"\p r r |
                        c'4-\mordent^"(\\textsharp)" r r
                        \textstyle "italic";
                }
-               { \voicetwo; a4 r r | a4 r r }
+               { \voicetwo  a4 r r | a4 r r }
        > |
-       \onevoice;
+       \onevoice 
        [a'8\mf( es'-3\> d' c' bes!-3 a] |
        [g fis-3 e!-2 d-1 c'-4 \!a] |
        [)bes8-\mordent\p( d'8-5 bes-3 g-1] )g'4 |
@@ -46,13 +47,13 @@ one = \melodic{
        [f-3 d-1 f-2 a-3 d'-5 g-2] |
        < 
                { 
-                       \voiceone;
+                       \voiceone 
                        % ... textnatural
                        [cis'8-\prall e'8-5-"poco cresc." cis'-3 a e' cis']
                }
-               { \voicetwo; a4 }
+               { \voicetwo  a4 }
        >
-       \onevoice;
+       \onevoice 
        [a8 e'-5 cis' a bes!-3 a] |
        [g e'-5 cis'-3 g e'-5 cis'-3] |
        [g-1 e'-5 cis' g a-3 g] |
@@ -68,9 +69,9 @@ one = \melodic{
        [cis-1 bes-4 g-2 cis-1 a-5 g-4] |
        [f-3 a f d a-5 f] |
        [d-1 a-5 f-3 d-1 cis-2 d-1] |
-       [e-3\< g-5 e-3 'bes-1 g-5 e-3] |
-       ['bes-1 g-5 e-3 \!cis-2 'a-1 g-5] |
-       [f16-4\mf d-2 c-1 'bes-3] \stemup 'a-2 s16 s8 s4 |
+       [e-3\< g-5 e-3 bes,-1 g-5 e-3] |
+       [bes,-1 g-5 e-3 \!cis-2 a,-1 g-5] |
+       [f16-4\mf d-2 c-1 bes,-3] \stemup a,-2 s16 s8 s4 |
 % ugh
 %      s1 |
        s4 s4 s4 |
@@ -80,18 +81,18 @@ one = \melodic{
        <g'!4.-5\f e' a> a'8-5 
        <
                {
-                       \voiceone;
+                       \voiceone 
                        f'4-4\> ~ | \![f'8 e'] [e'32-4 f' e'8. ~] [e'8 d'-3]
                }
-               { \voicetwo; <d'4 a> r4 cis'-2 }
+               { \voicetwo  <d'4 a> r4 cis'-2 }
        > |
-       \onevoice;
+       \onevoice 
        [d'8-4 c'!-3 a-1 d'-4 bes-2 g-1] |
        [c'-5 a-3 fis-2 bes-4 g e ] |
        [a-5 fis-"dim. e rall." d g-5 e cis-2] |
        <
-               { \voiceone; <fis2-.-5\p 'a> }
-               { \voicetwo; [d32( cis d8. ~] ) d2 }
+               { \voiceone  <fis2-.-5\p a,> }
+               { \voicetwo  [d32( cis d8. ~] ) d2 }
        > |
        \bar "|.";
 }
@@ -102,13 +103,13 @@ two = \melodic{
        \octave c;
 %      [d32( cis )d8.] r4 r |
        d4-\mordent r r |
-       'd4 r r |
+       d,4 r r |
        d-\mordent r r |
-       'd4 r r |
+       d,4 r r |
        d-\mordent r r |
 %      d r r |
-       'd4 r r |
-       [d8-2 'a-5 d-2 f-1 d-4 f-2] |
+       d,4 r r |
+       [d8-2 a,-5 d-2 f-1 d-4 f-2] |
        [a-1 f-4 a-2 d'-1 a-2 d'-1] |
        gis4-3 r r |
        e-4( )gis-2 e |
@@ -123,32 +124,32 @@ two = \melodic{
        f4-\mordent r r8 e |
        d4 r8 [f-1 e d] |
        [e-2 d-3 cis-4 e-1 d-2 cis-3] |
-       d4-2( )c! 'bes-4 |
-       'a( )a 'a |
-       'a( )a 'a |
-       'a( )a 'a |
-       'a( )a 'a |
-       'bes r r |
-       'bes-5( )bes 'bes |
-       'a r r |
-       'a-2( )d-1 'd |
-       'g r r |
-       'g( )g 'g |
-       'g r r |
-       'g( )g 'g |
-       'a r r |
-       'a( )a 'a |
-       'a r r |
-       'a( )a 'a |
-       'cis r r |
-       'cis( )cis 'cis |
-       'd-4 s16
+       d4-2( )c! bes,-4 |
+       a,( )a a, |
+       a,( )a a, |
+       a,( )a a, |
+       a,( )a a, |
+       bes, r r |
+       bes,-5( )bes bes, |
+       a, r r |
+       a,-2( )d-1 d, |
+       g, r r |
+       g,( )g g, |
+       g, r r |
+       g,( )g g, |
+       a, r r |
+       a,( )a a, |
+       a, r r |
+       a,( )a a, |
+       cis, r r |
+       cis,( )cis cis, |
+       d,-4 s16
        \stemdown
        [g16-1-"m.g." f e] [f-2 a d-3 f] | 
-       'a
+       a,
        \stemup
-       [d-5-"m.d." c 'bes] 'a 
-       \stemdown ['g-2 'f-"m.g." 'e] ['d 'f-4 'a-2 d-1] |
+       [d-5-"m.d." c bes,] a, 
+       \stemdown [g,-2 f,-"m.g." e,] [d, f,-4 a,-2 d-1] |
        \stemup
 %      [f-2\ped a]
        [f-2-"Ped." a]
@@ -160,18 +161,18 @@ two = \melodic{
 %      r1 |
        r4 r r |
 %{
-       ugh, 'forget' the 8 below:
-       [cis-3( e cis 'a] [d16-1 c 'bes 'a] |
+       ugh, forget,' the 8 below:
+       [cis-3( e cis a,] [d16-1 c bes, a,] |
        and lily dumps koor
 lilypond: ../flower/include/varray.hh:116: struct Rhythmic_grouping *& Array<Rhythmic_grouping *>::elem(int) const: Assertion `i >=0&&i<size_' failed.
 Aborted (core dumped)
 %}
-       [cis8-3( e cis 'a] [d16-1 c 'bes 'a] |
-       [)'g8 g a-2( g-3 a-1 'a] |
+       [cis8-3( e cis a,] [d16-1 c bes, a,] |
+       [)g,8 g a-2( g-3 a-1 a,] |
        )d4-3 d'-1 d |
        d r r |
-       'd( )d 'd |
-       'd2. |
+       d,( )d d, |
+       d,2. |
        \bar "|.";
 }
 
@@ -203,7 +204,7 @@ widea4 = \paper {
 %      arithmetic_multiplier = 6.\pt;
        arithmetic_basicspace = 2.;
        arithmetic_multiplier = 8.\pt;
-       linewidth= 195.\mm;
+       linewidth= 193.\mm;
 }
 
 \score{