-(define (brew-one-figure grob fig-music)
- "Brew a single column for a music figure"
- (let* (
- (mf (ly:get-font grob (cons '((font-family . music))
- Font_interface::get_property_alist_chain
- )))
- (nf (ly:get-font grob
- (cons '((font-family . number))
- Font_interface::get_property_alist_chain)))
- (mol (ly:make-molecule '() '(0 . 0) '(0 . 1.0)))
- (fig (ly:get-mus-property fig-music 'figure))
- (acc (ly:get-mus-property fig-music 'alteration))
- )
-
- (if (number? fig)
- (begin
- (set! mol (fontify-text nf (number->string fig)))
- (ly:align-to! mol Y CENTER)
- ))
-
- (if (number? acc)
- (set! mol
- (ly:combine-molecule-at-edge
- mol 0 1 (ly:find-glyph-by-name mf (string-append "accidentals-" (number->string acc)))
- 0.2))
- )
- (if (ly:molecule? mol)
- (ly:align-to! mol X CENTER)
- )
- mol))