patch::: 1.3.112.tca1

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

diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly
index ef3942dd66576cf82a7927e22077c095c1b5be33..5c61876a888d1b432c814e9c11f38290b775468e 100644 (file)
--- a/ly/chord-modifiers.ly
+++ b/ly/chord-modifiers.ly
@@ -1,17 +1,16 @@
-%{
- chord modifiers
-%}
 
-\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 . ,(make-pitch 0 2 -1 ))
+       (min . ,(make-pitch 0 2 -1 ))
+       (aug . ,(make-pitch 0 4 1 ))
+; (dim . ,(make-pitch -100 4 -1 ))     
+       (dim . ,(make-pitch -100 2 -1 ))
+; urg, not actually a chord-modifier, but it works
+; c7 -> <c bes>, c 7+ -> c b
+       (maj . ,(make-pitch 0 6 1 ))
+; sus4 should delete 2 too...
+       (sus . ,(make-pitch 0 3 0 ))
+)
+