- Pitch to_c (-1,
- (7 - gh_scm2int (ly_caar (pitchlist))) % 7,
- -gh_scm2int (ly_cdar (pitchlist)));
-
- my_do = my_do.transposed (to_c);
- to_c = my_do.transposed (Pitch(0,0,- my_do.get_alteration ()));
-
- SCM c_pitchlist = ly_transpose_key_alist (pitchlist, to_c.smobbed_copy());
+ SCM c_pitchlist
+ = ly_transpose_key_alist (pitchlist,
+ interval (key_do, c_do).smobbed_copy ());