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

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 1fb36ffaadce209a9f37dae6c1b540ee76622d61..141d107cd688f4aa2e2f7a31514ac0e0684afaad 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -115,7 +115,7 @@ barNumberCheck =
               (lambda (c)
                 (let*
                     ((cbn (ly:context-property c 'currentBarNumber)))
-                  (if (and  (number? cbn) (not (= cbn n)))
+                  (if (not (= cbn n))
                       (ly:input-message location "Barcheck failed got ~a expect ~a"
                                         cbn n))))))
 
@@ -125,7 +125,7 @@ breathe =
 #(define-music-function (parser location) ()
             (make-music 'EventChord 
               'origin location
-              'elements (list (make-music 'BreathingEvent))))
+              'elements (list (make-music 'BreathingSignEvent))))
 
 bendAfter =
 #(define-music-function (parser location delta) (integer?)
@@ -201,39 +201,6 @@ acceleration/deceleration. "
 grace =
 #(def-grace-function startGraceMusic stopGraceMusic)
 
-
-"instrument-definitions" = #'()
-
-addInstrumentDefinition =
-#(define-music-function
-   (parser location name lst) (string? list?)
-
-   (set! instrument-definitions (acons name lst instrument-definitions))
-
-   (make-music 'SequentialMusic 'void #t))
-
-
-instrumentSwitch =
-#(define-music-function
-   (parser location name) (string?)
-   (let*
-       ((handle  (assoc name instrument-definitions))
-       (instrument-def (if handle (cdr handle) '()))
-       )
-
-     (if (not handle)
-        (ly:input-message "No such instrument: ~a" name))
-     (context-spec-music
-      (make-music 'SimultaneousMusic
-                 'elements
-                 (map (lambda (kv)
-                        (make-property-set
-                         (car kv)
-                         (cdr kv)))
-                      instrument-def))
-      'Staff)))
-
-
 keepWithTag =
 #(define-music-function
   (parser location tag music) (symbol? ly:music?)
@@ -323,6 +290,7 @@ removeWithTag =
 %% doing
 %% define-music-function in a .scm causes crash.
 
+
 octave =
 #(define-music-function (parser location pitch-note) (ly:music?)
    "octave check"
@@ -362,6 +330,11 @@ pitchedTrill =
           (display sec-note-events)))
 
      main-note))
+
+
+
+
+
    
 parenthesize =
 #(define-music-function (parser loc arg) (ly:music?)
@@ -507,8 +480,8 @@ spacingTweaks =
    (make-music 'SequentialMusic 'void #t))
 
 
-transposedCueDuring =
-#(define-music-function
+transposedCueDuring = #
+(define-music-function
   (parser location what dir pitch-note main-music)
   (string? ly:dir? ly:music? ly:music?)
 
@@ -529,15 +502,7 @@ as a first or second voice."
 
 
 
-transposition =
-#(define-music-function (parser location pitch-note) (ly:music?)
-   "Set instrument transposition"
 
-   (context-spec-music
-    (make-property-set 'instrumentTransposition
-                      (ly:pitch-diff (ly:make-pitch 0 0 0) (pitch-of-note pitch-note)))
-        'Staff
-))
 
 tweak = #(define-music-function (parser location sym val arg)
           (symbol? scheme? ly:music?)
@@ -566,17 +531,3 @@ tag = #(define-music-function (parser location tag arg)
 unfoldRepeats =
 #(define-music-function (parser location music) (ly:music?)
                  (unfold-repeats music))
-
-untied =
-#(define-music-function (parser location note) (ly:music?)
-   "Specify that @var{note} should not have ties. " 
-   (set! (ly:music-property note 'untied) #t)
-   note)
-
-withMusicProperty =
-#(define-music-function (parser location sym val music) (symbol? scheme? ly:music?)
-   "Set @var{sym} to @var{val} in @var{music}."
-
-   (set! (ly:music-property music sym) val)
-   music)
-