]> git.donarmstrong.com Git - lilypond.git/blob - ly/chord-modifiers-init.ly
duh.
[lilypond.git] / ly / chord-modifiers-init.ly
1 \version "1.5.49"
2
3 % urg!
4 %
5 \chordmodifiers #`(
6         (m . ,(make-pitch 0 2 -1 ))
7         (min . ,(make-pitch 0 2 -1 ))
8         (aug . ,(make-pitch 0 4 1 ))
9         ;; (dim . ,(make-pitch -100 4 -1 ))     
10         (dim . ,(make-pitch -100 2 -1 ))
11         ;; urg, not actually a chord-modifier, but it works
12         ;;  c7 -> <c bes>, c 7+ -> c b
13         (maj . ,(make-pitch 0 6 1 ))
14         ;; sus4 should delete 2 too...
15         (sus . ,(make-pitch 0 3 0 ))
16 )
17