(process_music): delta-pitch -> delta-step.

(process_music): oops.

diff --git a/ChangeLog b/ChangeLog
index 5698c2ba257446eb820c1cdfaa170fba94423c10..b4d20731a2f73ccf4ddd7b81c1ec77a6f4dac6c4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-07-26  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
        * 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 41a904f2422961688516ca927ddfecf1ab957cd7..2a865da024217d43e7fe51d6f470f689d2090945 100644 (file)
--- 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 2496763397fd36deaf92990a186c2e07ecb456bf..e407ef8b2ce424f5f0ac5f97c9bff71b81003df2 100644 (file)
--- 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
                     ))))
        )