From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 23 Dec 2006 22:16:04 +0000 (+0100)
Subject: thinko for trill-spanner
X-Git-Tag: release/2.11.5-1~33^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ae99aa08986aad83845b2dee6fa6cddeb2526433;p=lilypond.git

thinko for trill-spanner
---

diff --git a/lily/pitched-trill-engraver.cc b/lily/pitched-trill-engraver.cc
index 33bb1a8084..d29f6f42ca 100644
--- a/lily/pitched-trill-engraver.cc
+++ b/lily/pitched-trill-engraver.cc
@@ -110,7 +110,8 @@ Pitched_trill_engraver::make_trill (Stream_event *ev)
       trill_accidental_ = make_item ("TrillPitchAccidental", ev->self_scm ());
 
       // fixme: naming -> alterations
-      trill_accidental_->set_property ("accidentals", scm_list_1 (scm_from_int (p->rounded_quartertone_pitch ())));
+      trill_accidental_->set_property ("accidentals", scm_list_1 (scm_from_int (Rational (4) 
+										* p->get_alteration ())));
       Side_position_interface::add_support (trill_accidental_, trill_head_);
       
       trill_head_->set_object ("accidental-grob", trill_accidental_->self_scm ());