1 ;;;; figured bass support ...
5 "A bass figure, including bracket"
10 (define-public (format-bass-figure figures context grob)
11 ;; TODO: support slashed numerals here.
12 (define (fig-to-markup fig-music)
14 ((align-accs (eq? #t (ly:context-property context 'alignBassFigureAccidentals)))
15 (fig (ly:music-property fig-music 'figure))
16 (acc (ly:music-property fig-music 'alteration))
21 (if align-accs (make-simple-markup " ")
22 (if (not (eq? acc '()))
23 (make-simple-markup "")
28 (make-line-markup (list fig-markup
29 (alteration->text-accidental-markup acc)))
33 (define (filter-brackets i figs acc)
37 (filter-brackets (1+ i) (cdr figs)
40 (if (eq? (ly:music-property (car figs) 'bracket-start) #t)
43 (if (eq? (ly:music-property (car figs) 'bracket-stop) #t)
49 (set! (ly:grob-property grob 'text)
50 (make-bracketed-y-column-markup
51 (sort (filter-brackets 0 figures '()) <)
52 (map fig-to-markup figures)