On 2019-05-14 6:23 pm, Gregory Hollands wrote:
This function is working nicely, except the major seventh triangle is
still
growing with the font size.
Should be possible to exempt other markup commands:
%%%%
embiggenChordNames = #(define-scheme-function (size) (number?)
#{ \with {
chordNameFunction = #(lambda (in-pitches bass inversion context)
(define exemptions (list
musicglyph-markup
triangle-markup))
(define (helper mu)
(if (list? mu)
(if (memq (car mu) exemptions)
(markup (#:fontsize (- size) mu))
(map helper mu))
mu))
(let ((orig (ignatzek-chord-names in-pitches bass inversion
context)))
(markup (#:fontsize size (helper orig)))))
} #} )
%%%%
-- Aaron Hill
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
