release: 1.3.39

[lilypond.git] / ly / chord-modifiers.ly

diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly
index 6f16728730735c25ce8006e0e96b3ba6f2e01094..bab60b66f467c892ada155269acfc36341507113 100644 (file)
--- a/ly/chord-modifiers.ly
+++ b/ly/chord-modifiers.ly
@@ -2,18 +2,22 @@
  chord modifiers
 %}
 
+% UGR 
 #(eval-string (ly-gulp-file "chord-names.scm"))
 
-\chordmodifiers {
-       m       = \musicalpitch { 0 2 -1 }
-       min     = \musicalpitch { 0 2 -1 }
-       aug     = \musicalpitch { 0 4 1 }
-       % urg!
-       % dim   = \musicalpitch { -100 4 -1 }
-       dim     = \musicalpitch { -100 2 -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 ))
+)
+