release: 1.3.94

[lilypond.git] / mutopia / J.S.Bach / Petites-Preludes / preludes-1.ly

diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly
index 60dec520c829426722dbf763f30652b85fc900a0..30c0047213e9d4ee66ac93f35ceafcb7a7774e1d 100644 (file)
--- a/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly
+++ b/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly
@@ -44,7 +44,11 @@ Lemoine puts fermatas on ending bar lines everywhere.
 
 
 
-\version "1.3.4";
+\version "1.3.93";
+
+
+lowstaff = \translator "Staff" = "lower"
+upstaff = \translator "Staff" = "upper"
 
 % upper = \context Staff \notes\relative c {
 upper = \context Staff=upper \notes\relative c {
@@ -68,28 +72,27 @@ upper = \context Staff=upper \notes\relative c {
        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
-       <
-               { \stemup f4 r }
-               \context Voice=ii { \stemdown <g,4 d'> r }
-       >
-       \stemboth 
-       \translator Staff=lower\stemup
+       <f4 d b4>
+       r4
+       
+       \stemBoth 
+       \stemUp
        r16 g,, b d  
-       [ f \translator Staff=upper\stemdown g16 b d ] | 
-       \stemup b
-       \translator Staff=lower\stemdown
+       [ f \upstaff \stemDown g16 b d ] | 
+       \stemUp b
+       \lowstaff \stemDown
        [ g b d ] f
-       \translator Staff=upper\stemup
+       \upstaff 
        [ g16 b d ] b
-       \translator Staff=lower\stemup
-       \clef "violin"; 
        [ g b d ]
-       \stemup
+       \stemUp
+
        % urg, below translator change affects previous beam too!?
        % howto separate translator command from previous beam end?
-       \translator Staff=upper f g b f |
-       \stemboth
+       \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 
@@ -105,10 +108,10 @@ upper = \context Staff=upper \notes\relative c {
        b d b g  as f g d 
        es fis a c 
        < 
-               { \stemup r c8 b16 }
-               \context Voice=ii { \stemdown  d,8 f }
+               { \stemUp r c8 b16 }
+               \context Voice=ii { \stemDown  d,8 f }
        >
-       \stemboth |
+       \stemBoth |
        <c1 g e>
        \bar "|.";
 }
@@ -120,15 +123,15 @@ lower = \context Staff=lower \notes\relative c{
        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-\downprall |
+       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, |
        g' r s s | s s s s \clef "bass"; |
        <
-               { \stemup g1 ~ g ~ g ~ g ~ g ~ g ~ g }
-               \context Voice=ii { \stemdown 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 "|.";