-
-ten =
-#(make-music 'FingeringEvent
- 'digit 10)
-
-fifty =
-#(make-music 'FingeringEvent
- 'digit 50)
-
-finger =
-#(define-music-function (parser location digit) (integer?)
- (make-music 'FingeringEvent
- 'digit digit))
-
-#(define (calc-finger-without-warning grob)
- (let* ((event (event-cause grob))
- (digit (ly:event-property event 'digit)))
- (number->string digit 10)))
-