input/test/transposition.ly

   1 %{
   2 Hi all,
   3
   4 I have extend Mats' patches to allow accidental transposition:
   5         \keysignature bes es fis;
   6                 = \transpose d =>
   7         \keysignature gis;
   8
   9 As you can see in output =  the example file "test.ly" there are a few problems left:
  10 - key undo (already in the Todo)
  11 - "wrong" transposition: e.g. \transpose d of fis-major = gis-major (better as-major?).
  12         The solution gis=as etc. would concern both note and key transposistion
  13
  14 Eric
  15
  16 - Note that transpose eses of fis-major = as-major
  17 - Note also that key signatures specified with \property keySignature
  18   are not transposed!
  19
  20   /Mats B, March 21, 2001
  21 %}
  22
  23 \header{
  24 title =          "Test it";
  25 description =    "Transposition Test file";
  26 enteredby =      "Eric Bullinger";
  27 copyright =      "public domain";
  28 }
  29
  30
  31
  32
  33 vOne =  \notes \relative c''{
  34         \clef"violin";
  35         \key d \major;
  36         \time 2/4 ;
  37         d4 d |
  38         \key fis \major;
  39         fis4 fis |
  40         \key es \major;
  41         c4 c |
  42 }
  43
  44 vTwo =  \notes \transpose d' { \vOne }
  45
  46 vThree =  \notes \relative c''{
  47         \clef"violin";
  48 %        \keysignature fis cis;
  49         \property Staff.keySignature = #'((0 . 1)(3 . 1))
  50         \time 2/4 ;
  51         d4 d |
  52 %        \keysignature bes es fis;
  53         \property Staff.keySignature = #'((3 . 1)(2 . -1)(6 . -1))
  54         fis4 fis |
  55 %        \keysignature fis cis gis dis ais eis;
  56         \property Staff.keySignature = #'((2 . -1)(5 . -1)(1 . 1)(4 . 1)(0 . 1)(3 . 1))
  57         cis4 ais4 |
  58 }
  59
  60 vFour =  \notes \transpose d' \vThree
  61
  62 \score {
  63   \context StaffGroup <
  64          \context Staff=vOne \vOne
  65          \context Staff=vTwo \vTwo
  66          \context Staff=vThree \vThree
  67          \context Staff=vFour \vFour
  68   >
  69         \paper { linewidth= 130.\mm; }
  70 }
  71
  72
  73