patch::: 1.3.96.jcn9

[lilypond.git] / input / test / jazz-chords.ly

diff --git a/input/test/jazz-chords.ly b/input/test/jazz-chords.ly
index 731a360f1ec3c8b66a47ba02f5b7e06f3a19c67f..44d35bc00849ce7fc270dcd1d78432a608af2e99 100644 (file)
--- a/input/test/jazz-chords.ly
+++ b/input/test/jazz-chords.ly
@@ -1,3 +1,4 @@
+\version "1.3.96"
 %% This should only be necessary if your kpathsea setup is broken
 %%
 %% Make sure the correct msamxx.tfm is where lily can find it
@@ -13,19 +14,18 @@
         ;; any changes here, see scm/chord-names.scm
 
 
-        ;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("o7" (type . "super"))))
+        ;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (super "o7"))
         ;jazz: the delta, see jazz-chords.ly
-        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) .  (("N" (type . "super") (style . "msam") (size . -3))))
+        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) .  (super ((family . "math") "N")))
 
-        ;(((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (("x7" (type . "super"))))
+        ;(((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (super "x7"))
         ; slashed o
-        (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (("o" (type . "super")) ("/" (size . -2) (offset . (-0.58 . 0.5))) ("7" (type . "super"))))
-
+        (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (rows (super "o") ((kern . -0.5) ((size . "-3") "/")) "7"))
        )
       chord::names-alist-american))
 
 chord = \notes\transpose c''\chords{
-       \property ChordNames.ChordName \push #'style = #"american"
+       \property ChordNames.ChordNames \push #'style = #"american"
        c:m5-.7-
        c:m5-.7
 }
@@ -38,8 +38,8 @@ chord = \notes\transpose c''\chords{
     \paper
     {
          \translator { 
-               \ChordNameContext
-               ChordName \push #'word-space = #1 
+               \ChordNamesContext
+               ChordNames \push #'word-space = #1 
          }
     }
 }