From 9b313bed3ad2aa632297b076e718b189c4551616 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 24 Dec 2006 16:12:47 +0100 Subject: [PATCH] transpose a clone of the quoted event --- lily/quote-iterator.cc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc index 272f0808ad..c55aae3428 100644 --- a/lily/quote-iterator.cc +++ b/lily/quote-iterator.cc @@ -219,7 +219,7 @@ Quote_iterator::process (Moment m) 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) @@ -243,8 +243,9 @@ Quote_iterator::process (Moment m) 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_); -- 2.39.5