]> git.donarmstrong.com Git - lilypond.git/blobdiff - mutopia/J.S.Bach/preludes-5.ly
release: 0.1.55
[lilypond.git] / mutopia / J.S.Bach / preludes-5.ly
index aee8b4c4a56c68cac716758ddf739b033b596ba9..4753fdc05c899daa8906ea2fd48a77296d6b2348 100644 (file)
@@ -8,61 +8,54 @@ copyright =    "public domain";
 
 \include "paper20.ly"
 
-rh = \melodic{
+one = \melodic{
        \octave c';
        \textstyle "italic";
        [d8-1\p a-5-"legato" f-3 d-1 a-5 f-3] |
        [d-1 a-5 f-3 d-1 a-5 f-3] |
-       [d-1\< b-4 g-2 d-1 b-4 \!g-2] |
-       [d-1 b-4 g-2 d-1 b-5 g-3] |
+       [d-1\< bes-4 g-2 d-1 bes-4 \!g-2] |
+       [d-1 bes-4 g-2 d-1 bes-5 g-3] |
        [cis-1\mf g-4 e-2 cis-1 g-4 e-2] |
-       [cis-1 b-5 g-4 e-2 a-5 g-4] |
+       [cis-1 bes-5 g-4 e-2 a-5 g-4] |
        [f-3\< d-1 f-2 a-4 f-1 a-2] |
        [d'-5 a-1 d'-2 f'-4 d'-1 \!f'-2] |
        [b'\> f'-3 e' d' c'-3 b] |
        [a gis-3 fis e d'-5 \!b-2] |
-       \multi 2 
+       < 
                {
-                       \stemup
-%                      c4\mr^"(\\textsharp)"\p r r |
-%                      c4\mr^"(\\textsharp)" r r
-                       c4^"(\\textsharp)"\p r r |
-                       c4^"(\\textsharp)" r r
-               }
-               {
-                       \stemdown
-                       a4 r r |
-                       a4 r r
+                       \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 }
        > |
+       \onevoice;
        [a'8\mf( es'-3\> d' c' bes!-3 a] |
        [g fis-3 e!-2 d-1 c'-4 \!a] |
-       [)bes32(\p a bes16] [d'8-5 bes-3 g-1] )g'4 |
-%      r8 [d'-5( c bes a\pr g] |
-       r8 [d'-5( c bes a g] |
+       [)bes8-\mordent\p( d'8-5 bes-3 g-1] )g'4 |
+       r8 [d'-5( c' bes a-\prall g] |
        [)a-2 c'-4( a f] ) f'4 |
-%      r8 [c'-5 bes a g\tr f] |
-       r8 [c'-5 bes a g f] |
-       [g-2 bes-4 a g fis-1 e-2] |
+       r8 [c'-5 bes a g-\prall f] |
+       [g-2 bes-4 a g f-1 e-2] |
        [f-3 d-1 f-2 a-3 d'-5 g-2] |
-       \multi 2 < 
-               {
-                       \stemup
-                       [cis'32-4 b cis'16 e'8-5-"poco cresc." cis-3 a e' cis]
-               }
-               {
-                       \stemdown
-                       a4
+       < 
+               { 
+                       \voiceone;
+                       % ... textnatural
+                       [cis'8-\prall e'8-5-"poco cresc." cis'-3 a e' cis']
                }
+               { \voicetwo; a4 }
        >
-       \stemboth
+       \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] |
        [f-"dim." d'-5 bes f d' bes] |
        [f d'-5 bes f d' bes] |
        [fis-2-"dim." c'-5 a-3 fis-2 c'-5 a-3] |
-       [fis-2 c'-5 a-3 fis-2 c-5 a-3] |
+       [fis-2 c'-5 a-3 fis-2 c'-5 a-3] |
        [bes-4 g-1 fis-2 g-3 d-1 g-2] |
        [bes-4 g-2 d-1 bes-5 g-3 d-1] |
        [e-2\p g-4 fis-3 g-1 bes-4 g-2] |
@@ -73,50 +66,42 @@ rh = \melodic{
        [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] s4 s |
+       [f16-4\mf d-2 c-1 'bes-3] \stemup 'a-2 s16 s8 s4 |
 % ugh
 %      s1 |
        s4 s4 s4 |
-       s4 s16 [d16-1-"m.d." f-2 a-4] [d-2-"m.g." f a] \stemup d'-1 |
-       [f' a'-4 f' d'] [f'-4 d' b d'-5] [gis-2 b a g] |
+       s4 s16 [d16-1-"m.d." f-2 a-4] \stemdown [d-2-"m.g." f a] \stemup d'-1 |
+       \stemboth
+       [f' a'-4 f' d'] [f'-4 d' b d'-5] [gis-2 b a gis] |
        <g'!4.-5\f e' a> a'8-5 
-       \multi 2 <
+       <
                {
-                       \stemup
+                       \voiceone;
                        f'4-4\> ~ | \![f'8 e'] [e'32-4 f' e'8. ~] [e'8 d'-3]
                }
-               {       
-                       \stemdown
-                       <d'4 a> r4 cis'-2
-               }
+               { \voicetwo; <d'4 a> r4 cis'-2 }
        > |
-       \stemboth;
+       \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] |
-       \multi 2 <
-               {
-                       \stemup
-                       <fis2-.-5\p 'a>
-               }
-               {       
-                       \stemdown
-                       [d32( cis d8. ~] ) d2
-               }
+       <
+               { \voiceone; <fis2-.-5\p 'a> }
+               { \voicetwo; [d32( cis d8. ~] ) d2 }
        > |
        \bar "|.";
 }
 
 
-lh = \melodic{
+two = \melodic{
        \clef "bass";
        \octave c;
-       [d32( cis )d8.] r4 r |
+%      [d32( cis )d8.] r4 r |
+       d4-\mordent r r |
        'd4 r r |
-%      d\mr r r |
-       d r r |
+       d-\mordent r r |
        'd4 r r |
-%      d\mr r r |
+       d-\mordent r r |
        d r r |
        'd4 r r |
        [d8-2 'a-5 d-2 f-1 d-4 f-2] |
@@ -124,32 +109,33 @@ lh = \melodic{
        gis4-3 r r |
        e-4( )gis-2 e |
        [a8-4 e'-1 c'-2 a-4 e'-1 c'-2 ] |
+       [g!-5 es'-1 c'-1 g-5 es'-1 c'-1 ] |
        fis4-5 r r 
        d-4( ) fis d-5 |
-%      g\mr-"(\textsharp)" r r f!8 |
-       g-"(\textsharp)" r r8 f! |
-       [e32 f e8.] r4 r |
-%      f\pr r r8 e |
-       f r r8 e |
+       \textstyle "roman";
+       g4-\mordent^"(\\textsharp)" r r8 f!8 |
+       \textstyle "italic";
+       e4-\prall r r |
+       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! 'b-4 |
-       'a( )a a |
-       'a( )a a |
-       'a( )a a |
-       'a( )a a |
-       'b r r |
-       'b-5( )b 'b |
+       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( )g 'g |
        'g r r |
-       'g( )g g |
+       'g( )g 'g |
        'a r r |
-       'a( )a a |
+       'a( )a 'a |
        'a r r |
-       'a( )a a |
+       'a( )a 'a |
        'cis r r |
        'cis( )cis 'cis |
        'd-4 s16
@@ -165,17 +151,18 @@ lh = \melodic{
        \stemdown
 %      [d-4-"m.g." f-"cresc."] a s s8 s4\dep |
        [d-4-"m.g." f-"cresc."] a s s8 s4-"*" |
+       \stemboth
 % ugh, whole rest has duration of one bar
 %      r1 |
        r4 r r |
 %{
        ugh, 'forget' the 8 below:
-       [cis-3( e cis 'a] [d16-1 c 'b 'a] |
+       [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 'b 'a] |
+       [cis8-3( e cis 'a] [d16-1 c 'bes 'a] |
        [)'g8 g a-2( g-3 a-1 'a] |
        )d4-3 d'-1 d |
        d r r |
@@ -184,29 +171,41 @@ Aborted (core dumped)
        \bar "|.";
 }
 
-global  = \melodic{
+global = \melodic{
        \meter 3/4;
        \key bes;
 }
 
+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
+>
+
+widea4 = \paper {
+       \paper_twenty
+%      arithmetic_basicspace = 2.;
+%      arithmetic_multiplier = 6.\pt;
+       arithmetic_basicspace = 2.;
+       arithmetic_multiplier = 8.\pt;
+       linewidth= 195.\mm;
+}
+
 \score{
-       % Moderato
-       % it would be nice to shut-off fingering...
-       \melodic \type Grandstaff < 
-               <
-                       \global 
-                       \rh
-               >
-               <
-                       \global 
-                       \lh
-               >
-       >
-       \paper{
-               \paper_twenty
-               linewidth= 195.\mm;
-       }
-       \midi{
-               \tempo 4 = 90;
-       }
+        % Moderato
+       \grand_staff
+       \paper{ \widea4 }
+       \midi{ \tempo 4 = 90; }
 }
+