ly/chord-modifiers.ly

   1 %{
   2  chord modifiers
   3 %}
   4
   5 % UGR
   6 #(eval-string (ly-gulp-file "chord-names.scm"))
   7
   8
   9 % urg!
  10 %
  11 \chordmodifiers #'(
  12         (m . ( 0 2 -1 ))
  13         (min . ( 0 2 -1 ))
  14         (aug . ( 0 4 1 ))
  15 ; (dim . ( -100 4 -1 ))
  16         (dim . ( -100 2 -1 ))
  17 ; urg, not actually a chord-modifier, but it works
  18 ; c7 -> <c bes>, c 7+ -> c b
  19         (maj . ( 0 6 1 ))
  20 ; sus4 should delete 2 too...
  21         (sus . ( 0 3 0 ))
  22 )
  23