X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fchord-modifiers.ly;h=bab60b66f467c892ada155269acfc36341507113;hb=ce9845392e4e22ae9c5f6ec1da914eb301f1892c;hp=ef3942dd66576cf82a7927e22077c095c1b5be33;hpb=6fd2c101db89f70b080ec95fc0b458a760bd336a;p=lilypond.git

diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly
index ef3942dd66..bab60b66f4 100644
--- a/ly/chord-modifiers.ly
+++ b/ly/chord-modifiers.ly
@@ -2,16 +2,22 @@
  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 }
-}
+% UGR 
+#(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 ))
+)
+