scaleDurations =
-#(define-music-function
- (parser location fraction music) (number-pair? ly:music?)
- (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
+#(define-music-function (parser location fraction music) (number-pair? ly:music?)
+ (_i "Multiply the duration of events in @var{music} by @var{fraction}.")
+ (ly:music-compress music
+ (ly:make-moment (car fraction) (cdr fraction))))
shiftDurations =
#(define-music-function (parser location dur dots arg) (integer? integer? ly:music?)
- (_i "")
+ (_i "Scale @var{arg} up by a factor of @var{2^dur*(2-(1/2)^dots)}.")
(music-map
(lambda (x)
rightHandFinger =
#(define-music-function (parser location finger) (number-or-string?)
- (_i "Define a StrokeFingerEvent")
+ (_i "Apply @var{finger} as a fingering indication.")
(apply make-music
(append
storePredefinedDiagram =
#(define-music-function (parser location chord tuning diagram-definition)
(ly:music? pair? string-or-pair?)
- "Add predefined fret diagram defined by @code{diagram-definition}
-for the chord pitches @code{chord} and
-the stringTuning @code{tuning}."
+ (_i "Add predefined fret diagram defined by @var{diagram-definition}
+ for the chord pitches @var{chord} and the stringTuning @var{tuning}.")
(let* ((pitches (event-chord-pitches
(car (extract-named-music chord 'EventChord))))
(hash-key (cons tuning pitches))
hash-key
verbose-definition))
(make-music 'SequentialMusic 'void #t))
-