* scm/chord-name.scm: don't export anything from chord module.

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

diff --git a/input/test/banter-chords.ly b/input/test/banter-chords.ly
index 77ef6e5f063d34f0a5597c161683590f76c638aa..51539b3087b00291956e036343ec9c6adab0c5ff 100644 (file)
--- a/input/test/banter-chords.ly
+++ b/input/test/banter-chords.ly
@@ -1,9 +1,13 @@
-\version "1.3.5";
+\version "1.7.6"
+
 
 \header{
-enteredby =     "jcn";
-copyright =     "public domain";
-TestedFeatures =        "Banter named chords";
+texidoc =  "banter  chords
+
+
+FIXME
+
+"
 }
 
 % test German (Banter) naming
@@ -15,28 +19,41 @@ TestedFeatures =     "Banter named chords";
 % eachother.  These guile lists are fixed in the guile environment
 % when this file has been parsed...
 
-% {
-#(set! pitch-names-alist
-      (append 
-      '(
-       ; use these for German naming
-       ((6 . 0) . ("H" ""))
-       ((6 . -1) . ("B" ("feta-1" . "\12")))
-       )
-      pitch-names-alist))
+%{
 
-#(set! chord-names-alist
+
+%% FIXME: 
+
+#;(define chord::names-alist-banter '())
+#(set! chord::names-alist-banter
       (append 
       '(
-        (((0 . 0) (2 . -1) (4 . -1)) . ("m" . ("script" . "5-")))
-       ; Co iso Cm5-7-
-       ; urg, niet te pruimen
-        ; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
-        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
+        (((0 . 0) (2 . -1) (4 . -1)) . (("m" ("5-" . (type . "super")))))
+        Co iso Cm5-7-
+        (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("o" (type "super")))
        )))
-% }
 
-chord = \notes\transpose c''\chords{
+% German note names:
+% Urg, this will break again, in time
+% Is this correct, anyway?
+
+#(define (pitch->text pitch)
+  (if (and (= (modulo (cadr pitch) 7) 6)
+             (= (caddr pitch) -1))
+      (cons (make-string 1 (integer->char 66)) '())
+      (cons
+       (if (= (modulo (cadr pitch) 7) 6)
+          (make-string 1 (integer->char 72))
+          (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 65))))
+       (if (= (caddr pitch) 0)
+          '()
+          (list (list (string-append "accidentals-" 
+                                     (number->string (caddr pitch)))
+                      '(font . "feta")))))))
+
+%}
+
+chord =  \notes\transpose c' c''\chords{
        % dim modifier means: lower all implicit additions
        c:dim9
        c:dim
@@ -70,3 +87,4 @@ chord = \notes\transpose c''\chords{
        >
 }
 
+%% new-chords-done %%