X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mutopia%2FJ.S.Bach%2Fwtk1-prelude2.ly.m4;h=8d8eb6f5d03c9fc788a40106d6a54019606bdcf5;hb=1cf3d59c1559fb9774c4c1c8cae155cfe54a927c;hp=98f6c8a309054170dfcf50904b77f931849de77a;hpb=1e95a0be01466d1c98644f7705c8e07e41cc645c;p=lilypond.git

diff --git a/mutopia/J.S.Bach/wtk1-prelude2.ly.m4 b/mutopia/J.S.Bach/wtk1-prelude2.ly.m4
index 98f6c8a309..8d8eb6f5d0 100644
--- a/mutopia/J.S.Bach/wtk1-prelude2.ly.m4
+++ b/mutopia/J.S.Bach/wtk1-prelude2.ly.m4
@@ -12,8 +12,7 @@ define(handymeasure, `intromeasure(translit($*,` ', `,'))')
 
 
 
-trebleIntro=\melodic {
-\octave c';
+trebleIntro=\melodic \transpose c'' {
 handymeasure(c' es d c)
 handymeasure(as f e c)
 handymeasure(b f es d)
@@ -40,7 +39,6 @@ handymeasure(as c B d)
 }
 
 bassIntro = \melodic {
-\octave c;
 handymeasure(c g f es)
 handymeasure(c as g f)
 handymeasure(c as g f)
@@ -71,7 +69,6 @@ handymeasure(G es d f)
 
 middlepiece = \melodic
 {
-	\octave c;
 	\stemdown
 	[G B d] 
 	\stemup	f [as f ef] [b f d' b'] [as f e f] |
@@ -79,10 +76,9 @@ middlepiece = \melodic
 	\stemup g [c' g fis g ] [es' c' g' es'] [c' as g as]| 
 	\stemdown [G A fis] 
 	\translator Staff=treble
-	\stemsboth \octave c';
-	c [es c B c] [fis  c a fis] [es c B c] |
+	\stemsboth \transpose c'' { c [es c B c] [fis  c a fis] [es c B c] }
 }
 
 
 
-}
+