-bar =
-#(define-music-function (parser location type)
- (string?)
- (context-spec-music
- (make-property-set 'whichBar type)
- 'Timing))
-
-
-barNumberCheck =
-#(define-music-function (parser location n) (integer?)
- (make-music 'ApplyContext
- 'origin location
- 'procedure
- (lambda (c)
- (let*
- ((cbn (ly:context-property c 'currentBarNumber)))
- (if (and (number? cbn) (not (= cbn n)))
- (ly:input-message location "Barcheck failed got ~a expect ~a"
- cbn n))))))
-
-
-%% why a function?
-breathe =
-#(define-music-function (parser location) ()
- (make-music 'EventChord
- 'origin location
- 'elements (list (make-music 'BreathingEvent))))
-
-bendAfter =
-#(define-music-function (parser location delta) (integer?)
-
- (make-music 'BendAfterEvent
- 'delta-step delta))
-
-clef =
-#(define-music-function (parser location type)
- (string?)
-
- "Set the current clef."
-
- (make-clef-set type))
-
-
-compressMusic =
-#(define-music-function
- (parser location fraction music) (number-pair? ly:music?)
- (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
-
-
-cueDuring =
-#(define-music-function
- (parser location what dir main-music)
- (string? ly:dir? ly:music?)
- (make-music 'QuoteMusic
- 'element main-music
- 'quoted-context-type 'Voice
- 'quoted-context-id "cue"
- 'quoted-music-name what
- 'quoted-voice-direction dir
- 'origin location))
-
-
-displayLilyMusic =
-#(define-music-function (parser location music) (ly:music?)
- (display-lily-music music)
- music)
-
-displayMusic =
-#(define-music-function (parser location music) (ly:music?)
- (display-scheme-music music)
- music)
-
-featherDurations=
-#(define-music-function (parser location factor argument) (ly:moment? ly:music?)