ly/chord-modifiers.ly

   1
   2 % urg!
   3 %
   4 \chordmodifiers #`(
   5         (m . ,(make-pitch 0 2 -1 ))
   6         (min . ,(make-pitch 0 2 -1 ))
   7         (aug . ,(make-pitch 0 4 1 ))
   8 ; (dim . ,(make-pitch -100 4 -1 ))
   9         (dim . ,(make-pitch -100 2 -1 ))
  10 ; urg, not actually a chord-modifier, but it works
  11 ; c7 -> <c bes>, c 7+ -> c b
  12         (maj . ,(make-pitch 0 6 1 ))
  13 ; sus4 should delete 2 too...
  14         (sus . ,(make-pitch 0 3 0 ))
  15 )
  16