;; Bass figures.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define-public (format-new-bass-figure figure event context)
+(define-public (format-bass-figure figure event context)
(let* ((fig (ly:music-property event 'figure))
(fig-markup (if (number? figure)
(if (eq? #t (ly:music-property event 'diminished))
(alt-markup
(if (number? alt)
(markup
- #:general-align Y DOWN #:smaller #:smaller
+ #:general-align Y DOWN #:fontsize
+ (if (not (= alt DOUBLE-SHARP))
+ -2 2)
(alteration->text-accidental-markup alt))
#f))