Re: ChordName Font Size

[Aaron Hill]

On 2019-05-12 5:29 pm, Gregory Hollands wrote:
> I want to use an alternative font for ChordNames, but the font I have
> chosen is not exactly the same size as the default font. The result is 
> that
> musical symbols (sharps, flat, etc) appear too large.
>
> How can I change the size of the musical symbols in ChordNames so that 
> they
> match the size of the font?

Here is a bit of a hack:

%%%%
\version "2.19.82"

embiggenChordNames = #(define-scheme-function (size) (number?)
  #{ \with {
    chordNameFunction = #(lambda (in-pitches bass inversion context)
      (define (helper mu)
        (if (list? mu)
          (if (eq? (car mu) musicglyph-markup)
            (markup (#:fontsize (- size) mu))
            (map helper mu))
          mu))
      (let ((orig (ignatzek-chord-names in-pitches bass inversion 
context)))
        (markup (#:fontsize size (helper orig)))))
  } #} )

theChords = \chordmode { c2:7 g2:dim aes2:m fis2 }
<< \new ChordNames \theChords
   \new ChordNames \with \embiggenChordNames #5 \theChords
   \new ChordNames \with \embiggenChordNames #-3 \theChords >>
%%%%

This applies a global \fontsize to the markup to scale everything up by 
a specified amount; however, it also looks within the markup for 
occurrences of \musicglyph and applies an inverse \fontsize so they 
remain the original size.

Wouldn't be surprised to learn there is some built-in procedure like 
map-some-music but for markup that would obsolete my helper function 
above.  But I threw this together pretty quickly.


-- Aaron Hill

chordname-size.cropped.png
Description: PNG image