]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/chord-modifiers.ly
patch::: 1.3.96.jcn9
[lilypond.git] / ly / chord-modifiers.ly
index 48cc2f09f413939007c534c26829abc95d946238..673620ddf8ed37424b7c5b4dacd95a7cb32e405d 100644 (file)
@@ -1,15 +1,16 @@
-%{
- chord modifiers
-%}
 
-\chordmodifiers {
-       m       = \musicalpitch { 0 2 -1 }
-       min     = \musicalpitch { 0 2 -1 }
-       aug     = \musicalpitch { 0 4 1 }
-       dim     = \musicalpitch { 0 4 -1 }
-       % urg, not actually a chord-modifier, but it works
-       % c7 -> <c bes>, c 7+ -> c b
-       maj     = \musicalpitch { 0 6 1 }
-       % sus4 should delete 2 too...
-       sus     = \musicalpitch { 0 3 0 }
-}
+% urg!
+%
+\chordmodifiers #'(
+       (m . ( 0 2 -1 ))
+       (min . ( 0 2 -1 ))
+       (aug . ( 0 4 1 ))
+; (dim . ( -100 4 -1 ))        
+       (dim . ( -100 2 -1 ))
+; urg, not actually a chord-modifier, but it works
+; c7 -> <c bes>, c 7+ -> c b
+       (maj . ( 0 6 1 ))
+; sus4 should delete 2 too...
+       (sus . ( 0 3 0 ))
+)
+