patch::: 1.3.96.jcn9

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

diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly
index 6f16728730735c25ce8006e0e96b3ba6f2e01094..673620ddf8ed37424b7c5b4dacd95a7cb32e405d 100644 (file)
--- a/ly/chord-modifiers.ly
+++ b/ly/chord-modifiers.ly
@@ -1,19 +1,16 @@
-%{
- chord modifiers
-%}
 
-#(eval-string (ly-gulp-file "chord-names.scm"))
+% 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 ))
+)
 
-\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 }
-}