* scm/define-grobs.scm (all-grob-descriptions): remove

[lilypond.git] / input / test / transposition.ly

diff --git a/input/test/transposition.ly b/input/test/transposition.ly
index a2d55259e6cf714713c12186518f1333dc68e5ad..79007d0df9569e44e69cd8196b9adb74a648c78d 100644 (file)
--- a/input/test/transposition.ly
+++ b/input/test/transposition.ly
@@ -1,10 +1,17 @@
-\version "1.7.5"
+
+\version "1.9.6"
+
+\header{ texidoc = "@cindex Transposition
+Transposition test file."
+}
+
+
 %{
 Hi all,
 
 I have extend Mats' patches to allow accidental transposition:
         \keysignature bes es fis
-               = \transpose c' d =>
+               = \transpose c' d =>>
         \keysignature gis
 
 As you can see in output =  the example file "test.ly" there are a few problems left:
@@ -21,13 +28,6 @@ Eric
   /Mats B, March 21, 2001
 %}
 
-\header{
-title =         "Test it"
-description =   "Transposition Test file"
-enteredby =     "Eric Bullinger"
-copyright =     "public domain"
-}
-
 
 
 
@@ -47,28 +47,29 @@ vTwo =  \notes \transpose c d { \vOne }
 vThree =  \notes \relative c''{
         \clef"violin"
 %        \keysignature fis cis
-       \property Staff.keySignature = #'((0 . 1)(3 . 1))
+       \property Staff.keySignature = #'((0 . 2)(3 . 2))
         \time 2/4 
         d4 d |       
 %        \keysignature bes es fis
-       \property Staff.keySignature = #'((3 . 1)(2 . -1)(6 . -1))
+       \property 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))
+       \property Staff.keySignature = #'((2 . -2)(5 . -2)(1 . 2)(4 . 2)(0 . 2)(3 . 2))
         cis4 ais4 |
 }
 
 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 }
 }
 
 
 
+