(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))))))
#(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?)
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?)
%% doing
%% define-music-function in a .scm causes crash.
+
octave =
#(define-music-function (parser location pitch-note) (ly:music?)
"octave check"
(display sec-note-events)))
main-note))
+
+
+
+
+
parenthesize =
#(define-music-function (parser loc arg) (ly:music?)
(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?)
-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?)
unfoldRepeats =
#(define-music-function (parser location music) (ly:music?)
(unfold-repeats music))
-
-
-
-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)
-