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