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

diff --git a/ChangeLog b/ChangeLog
index 7b5c994854ecb8330570076e99b66dc56e78e0a9..5698c2ba257446eb820c1cdfaa170fba94423c10 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-07-26  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * lily/fall-engraver.cc (process_music): delta-pitch -> delta-step.
+
        * lily/instrument-name-engraver.cc (start_spanner): new
        function. Create spanner when property changes.
        (stop_spanner): new function.

diff --git a/lily/fall-engraver.cc b/lily/fall-engraver.cc
index 1b7cf93e81a3d9495458c77f4dc037e5411b4b1b..41a904f2422961688516ca927ddfecf1ab957cd7 100644 (file)
--- a/lily/fall-engraver.cc
+++ b/lily/fall-engraver.cc
@@ -99,7 +99,7 @@ Fall_engraver::process_music ()
   if (fall_event_ && !fall_)
     {
       fall_ = make_spanner ("BendAfter", fall_event_->self_scm ());
-      fall_->set_property ("delta-position",
+      fall_->set_property ("delta-step",
                           scm_from_double (robust_scm2double (fall_event_->get_property ("delta-pitch"), 0) * 0.5));
     }
 }

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 7798bc31458bc473bd4a5fae2ff7f27c386304c4..7e51f515750493d91456316e05593ff117fd3d6b 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -51,8 +51,8 @@
   %% weird effects when doing instrument names for
   %% piano staves
 
-  instrument = #'()
-  instr = #'()
+  instrumentName = #'()
+  shortInstrumentName = #'()
   
   \defaultchild "Voice"
   \accepts "Voice"
@@ -93,7 +93,7 @@
   \consists "System_start_delimiter_engraver"
   systemStartDelimiter = #'SystemStartBracket
   vocalName = #'()
-  vocNam = #'()
+  shortVocalName = #'()
 
   \accepts "Staff"
   \accepts "DrumStaff"
@@ -294,8 +294,8 @@ contained staves are not connected vertically."
   \consists "Vertical_align_engraver"
   \consists "Instrument_name_engraver"
   
-  instrument = #'()
-  instr = #'()
+  instrumentName = #'()
+  shortInstrumentName = #'()
 }
 
 \context {

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 4396a64c45873c565fe107197118baa8fca6450a..141d107cd688f4aa2e2f7a31514ac0e0684afaad 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -15,7 +15,6 @@
 acciaccatura =
 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
 
-
 addquote =
 #(define-music-function (parser location name music) (string? ly:music?)
    "Add a piece of music to be quoted "
@@ -132,7 +131,7 @@ bendAfter =
 #(define-music-function (parser location delta) (integer?)
              
   (make-music 'BendAfterEvent
-   'delta-pitch delta))
+   'delta-step delta))
 
 clef =
 #(define-music-function (parser location type)

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index 5ee322a5ca903a531ee62287155649804f6c7b15..dc4bc2c0f7f76c7fa77f393a3e330c506a4692b7 100644 (file)
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -40,7 +40,7 @@ here. TODO: use SpanEvents?")
      (context-id ,string? "name of context")
      (context-type ,symbol?  "type of context")
      (create-new ,boolean? "Create a fresh context.")
-     (delta-pitch ,number? "How much should a fall change pitch?") 
+     (delta-step ,number? "How much should a fall change pitch?") 
      (descend-only ,boolean? "If set, this @code{\\context} will only descend in the context tree.")
      (denominator ,integer? "denominator in a time signature")
      (digit ,integer? "digit for fingering")