Pitch *quote_pitch = unsmob_pitch (scm_cdar (entry));
/*
- The pitch that sounds when written central C is played.
+ The pitch that sounds like central C
*/
Pitch *me_pitch = unsmob_pitch (get_music ()->get_property ("quoted-transposition"));
if (!me_pitch)
if (me_pitch)
mp = *me_pitch;
- Pitch diff = pitch_interval (mp, qp);
-
+ Pitch diff = pitch_interval (qp, mp);
+ ev = ev->clone ();
+
SCM props = transpose_mutable (ev->get_property_alist (true), diff);
ev = new Stream_event (ev->get_property ("class"), props);
transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);