;; 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)
- (markup #:number (number->string figure 10))
+ (if (eq? #t (ly:music-property event 'diminished))
+ (markup #:slashed-digit figure)
+ (markup #:number (number->string figure 10)))
#f
))
(alt (ly:music-property event 'alteration))
(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))
+ (plus-markup (if (eq? #t (ly:music-property event 'augmented))
+ (markup #:number "+")
+ #f))
+
(alt-dir (ly:context-property context 'figuredBassAlterationDirection))
+ (plus-dir (ly:context-property context 'figuredBassPlusDirection))
)
(if (and (not fig-markup) alt-markup)
#:pad-x 0.2 alt-markup
)))
- (if (markup? fig-markup)
- fig-markup
- empty-markup)))
+
+ (if plus-markup
+ (set! fig-markup
+ (if fig-markup
+ (markup #:put-adjacent
+ fig-markup
+ X (if (number? plus-dir)
+ plus-dir
+ LEFT)
+ #:pad-x 0.2 plus-markup)
+ plus-markup)))
+
+ (if (markup? fig-markup)
+ (markup #:fontsize -2 fig-markup)
+ empty-markup)
+
+ ))