From 3300d048a6b5f6a882c751822f7e08ffc6a78ab7 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 26 Jul 2006 12:56:35 +0000 Subject: [PATCH] (process_music): delta-pitch -> delta-step. (process_music): oops. --- ChangeLog | 1 + lily/fall-engraver.cc | 4 ++-- scm/output-lib.scm | 6 +++--- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5698c2ba25..b4d20731a2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2006-07-26 Han-Wen Nienhuys * lily/fall-engraver.cc (process_music): delta-pitch -> delta-step. + (process_music): oops. * lily/instrument-name-engraver.cc (start_spanner): new function. Create spanner when property changes. diff --git a/lily/fall-engraver.cc b/lily/fall-engraver.cc index 41a904f242..2a865da024 100644 --- a/lily/fall-engraver.cc +++ b/lily/fall-engraver.cc @@ -99,8 +99,8 @@ Fall_engraver::process_music () if (fall_event_ && !fall_) { fall_ = make_spanner ("BendAfter", fall_event_->self_scm ()); - fall_->set_property ("delta-step", - scm_from_double (robust_scm2double (fall_event_->get_property ("delta-pitch"), 0) * 0.5)); + fall_->set_property ("delta-position", + scm_from_double (robust_scm2double (fall_event_->get_property ("delta-step"), 0))); } } diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 2496763397..e407ef8b2c 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -345,7 +345,7 @@ centered, X==1 is at the right, X == -1 is at the left." (define-public (fall::print spanner) (let* - ((delta (ly:grob-property spanner 'delta-position)) + ((delta-y (* 0.5 (ly:grob-property spanner 'delta-position))) (left-span (ly:spanner-bound spanner LEFT)) (right-span (ly:spanner-bound spanner RIGHT)) (thickness (* (ly:grob-property spanner 'thickness) @@ -367,8 +367,8 @@ centered, X==1 is at the right, X == -1 is at the left." rcurveto ,(/ dx 3) 0 - ,dx ,(* 0.66 delta) - ,dx ,delta + ,dx ,(* 0.66 delta-y) + ,dx ,delta-y )))) ) -- 2.39.5