X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Ftransposition.ly;h=1f0a668e8437ddd49b0cb564f3adf80409b3e26a;hb=3684e949054183e4a31e17f5e7ab0bf30da0123e;hp=438c8dcdadff4cf90cf0e9ddbb085cb207efc550;hpb=68a168bff1fec7f8011b2afa82d4fc89182c4bf7;p=lilypond.git

diff --git a/input/test/transposition.ly b/input/test/transposition.ly
index 438c8dcdad..1f0a668e84 100644
--- a/input/test/transposition.ly
+++ b/input/test/transposition.ly
@@ -1,37 +1,16 @@
-\version "1.3.146"
-%{
-Hi all,
 
-I have extend Mats' patches to allow accidental transposition:
-        \keysignature bes es fis
-		= \transpose d =>
-        \keysignature gis
+\version "2.2.0"
 
-As you can see in output =  the example file "test.ly" there are a few problems left:
-- key undo (already in the Todo)
-- "wrong" transposition: e.g. \transpose d of fis-major = gis-major (better as-major?).
-	The solution gis=as etc. would concern both note and key transposistion
+\header{ texidoc = "@cindex Transposition
+Transposing has also an effect key signature, if it is given using
+@code{\key}. If @code{keySignature} is set explicitly instead, 
+the key signature is not transposed."
 
-Eric
+     }
 
-- Note that transpose eses of fis-major = as-major 
-- Note also that key signatures specified with \property keySignature 
-  are not transposed!
+% should the explicitly set key signature transpose also? -HJJ
 
-  /Mats B, March 21, 2001
-%}
-
-\header{
-title = 	 "Test it"
-description = 	 "Transposition Test file"
-enteredby = 	 "Eric Bullinger"
-copyright = 	 "public domain"
-}
-
-
-
-
-vOne =  \notes \relative c''{
+vOne = \notes \relative c''{
         \clef"violin"
         \key d \major
         \time 2/4 
@@ -42,33 +21,35 @@ vOne =  \notes \relative c''{
         c4 c |
 }
 
-vTwo =  \notes \transpose d' { \vOne }
+vTwo = \notes \transpose c d { \vOne }
 
-vThree =  \notes \relative c''{
+vThree = \notes \relative c''{
         \clef"violin"
-%        \keysignature fis cis
-	\property Staff.keySignature = #'((0 . 1)(3 . 1))
+%        keysignature fis cis
+	\set Staff.keySignature = #'((0 . 2)(3 . 2))
         \time 2/4 
         d4 d |       
-%        \keysignature bes es fis
-	\property Staff.keySignature = #'((3 . 1)(2 . -1)(6 . -1))
+%        keysignature bes es fis
+	\set Staff.keySignature = #'((3 . 2)(2 . -2)(6 . -2))
         fis4 fis |         
-%        \keysignature fis cis gis dis ais eis
-	\property Staff.keySignature = #'((2 . -1)(5 . -1)(1 . 1)(4 . 1)(0 . 1)(3 . 1))
+%        keysignature fis cis gis dis ais eis
+	\set Staff.keySignature = #'((2 . -2)(5 . -2)(1 . 2)(4 . 2)(0 . 2)(3 . 2))
         cis4 ais4 |
 }
 
-vFour =  \notes \transpose d' \vThree
+
+vFour = \notes \transpose c d \vThree
 
 \score {
-  \context StaffGroup <
-         \context Staff=vOne \vOne
-         \context Staff=vTwo \vTwo
-         \context Staff=vThree \vThree
-         \context Staff=vFour \vFour
-  >
-        \paper { linewidth= 130.\mm }
+  \context StaffGroup <<
+         \new Staff \vOne
+         \new Staff \vTwo
+         \new Staff \vThree
+         \new Staff \vFour
+  >>
+        \paper { linewidth= 130.\mm raggedright = ##t }
 }
 
 
 
+