5 #(eval-string (ly-gulp-file "chord-names.scm"))
8 m = \musicalpitch { 0 2 -1 }
9 min = \musicalpitch { 0 2 -1 }
10 aug = \musicalpitch { 0 4 1 }
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 }