-\version "1.7.5"
-%{
-Hi all,
-I have extend Mats' patches to allow accidental transposition:
- \keysignature bes es fis
- = \transpose c' d =>
- \keysignature gis
+\version "2.1.30"
-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 c' 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
c4 c |
}
-vTwo = \notes \transpose c 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 c 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 }
}
+