]> 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 b0812f72b1813e60f774eb6d435d5c40c986e19e..4753fdc05c899daa8906ea2fd48a77296d6b2348 100644 (file)
@@ -8,62 +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
-%                      c'4\mr^"(\\textsharp)"\p r r |
-%                      c'4\mr^"(\\textsharp)" r r
-                       c'4^"(\\textsharp)"\p r r |
-                       c'4^"(\\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 }
        > |
-       \stemboth;
+       \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] |
+       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] |
@@ -74,51 +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] /stemup 'a-2 s16 s8 s4 |
+       [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] \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 g] |
+       [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] |
@@ -129,11 +112,11 @@ lh = \melodic{
        [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! 'bes-4 |
@@ -174,12 +157,12 @@ lh = \melodic{
        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 |
@@ -188,33 +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;
-%              arithmetic_basicspace = 2.;
-%              arithmetic_multiplier = 6.\pt;
-               arithmetic_basicspace = 2.;
-               arithmetic_multiplier = 8.\pt;
-       }
-       \midi{
-               \tempo 4 = 90;
-       }
+        % Moderato
+       \grand_staff
+       \paper{ \widea4 }
+       \midi{ \tempo 4 = 90; }
 }
+