-%{
-Hi all,
-I have extend Mats' patches to allow accidental transposition:
- \accidentals bes es fis;
- = \transpose d =>
- \accidentals gis;
+\version "1.9.6"
-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
-
-Eric
-%}
-
-\header{
-title = "Test it";
-description = "Transposition Test file";
-enteredby = "Eric Bullinger";
-copyright = "public domain";
+\header{ texidoc = "@cindex Transposition
+Transposition test file."
}
-\version "1.0.0";
-vOne = \melodic \relative c''{
- \clef"violin";
- \key d;
- \time 2/4 ;
+vOne = \notes \relative c''{
+ \clef"violin"
+ \key d \major
+ \time 2/4
d4 d |
- \key fis;
+ \key fis \major
fis4 fis |
- \key es;
+ \key es \major
c4 c |
}
-vTwo = \melodic \relative c''\transpose d' { \vOne }
+vTwo = \notes \transpose c d { \vOne }
-vThree = \melodic \relative c''{
- \clef"violin";
- \accidentals fis cis;
- \time 2/4 ;
+vThree = \notes \relative c''{
+ \clef"violin"
+% keysignature fis cis
+ \property Staff.keySignature = #'((0 . 2)(3 . 2))
+ \time 2/4
d4 d |
- \accidentals bes es fis;
+% keysignature bes es fis
+ \property Staff.keySignature = #'((3 . 2)(2 . -2)(6 . -2))
fis4 fis |
- \accidentals fis cis gis dis ais eis;
+% keysignature fis cis gis dis ais eis
+ \property Staff.keySignature = #'((2 . -2)(5 . -2)(1 . 2)(4 . 2)(0 . 2)(3 . 2))
cis4 ais4 |
}
-vFour = \melodic \relative c''\transpose d' \vThree
+
+vFour = \notes \transpose c d \vThree
\score {
- \type StaffGroup <
- \vOne
- \vTwo
- \vThree
- \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 }
}
+