Re: ChordName Font Size

[Aaron Hill]

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