input/test/transposition.ly

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