Re: adding chordmode chord modifiers

[Aaron Hill]

On 2020-09-07 9:30 am, Randy Josleyn wrote:
> Hi list,
>
> Using my extremely limited general programming knowledge, I found in 
> the
> scheme file chord-entry.scm that the chord modifiers m, maj, sus, and 
> so on
> are defined. Is it possible to add to this list? I want to write "add9"
> chords like `c:add9`, which would be equivalent to writing `<c e g d'>` 
> or
> `c:3.5.9` in chordmode (plus the chord exceptions snippet in the NM to 
> add
> the "add"). However, the latter methods are too verbose for me.
>
> My use case is for printing chord symbols above the staff in a lead 
> sheet.
>
> I checked the snippets repository for "chord modifier", "chord*", and
> "add9",  but I didn't see anything relevant.
>
> Is there a way to create the "c:add9" syntax to get "Cadd9" to print as 
> a
> chord symbol? Any help would be appreciated!

Yes, although I am uncertain this is the right way to be going about 
things:

%%%%
\version "2.20.0"

#(define ((add-modifier minor?) pitches)
  (sort (list (ly:make-pitch 0 0 0)
              (ly:make-pitch 0 2 (if minor? FLAT 0))
              (ly:make-pitch 0 4 0)
              (last pitches))
        ly:pitch<?))

#(set! chordmodifiers (append chordmodifiers
  (list (cons 'add (add-modifier #f))
        (cons 'madd (add-modifier #t)))))

addExceptionsMusic = {
  <c d e g>1-\markup { \super "add2" }
  <c e f g>1-\markup { \super "add4" }
  <c e g d'>1-\markup { \super "add9" }
  <c e g fis'>1-\markup { \super { "add"
    #(alteration->text-accidental-markup SHARP) "11" } }
  <c d ees g>1-\markup { m \super "add2" }
  <c ees f g>1-\markup { m \super "add4" }
  <c ees g des'>1-\markup { m \super { "add"
    #(alteration->text-accidental-markup FLAT) "9" } }
  <c ees g d'>1-\markup { m \super "add9" }
}
addExceptions =
#(append
  (sequential-music-to-chord-exceptions addExceptionsMusic #t)
  ignatzekExceptions)

music = \chordmode {
  \set chordNameExceptions = #addExceptions
  c:add2 d:add4 e:add9 f:add11+
  c:madd2 d:madd4 e:madd9 f:madd9-
}
<< \new ChordNames \music \new Staff \music >>
%%%%


-- Aaron Hill

custom-chord-modifier.cropped.png
Description: PNG image