ly/chord-modifiers.ly

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