1 ;; pitch: (notename . accidental)
2 ;; list: (list-of-pitches . (modifier-string . addition-subtraction-string))
4 ;; if a complete chord is found, use name
5 ;; if a chord's base triad is found (c e g), use name
7 (define pitch-names-alist '())
8 (set! pitch-names-alist
11 ; use these for German naming
13 ;((6 . -1) . ("B" ("feta-1" . "
\x12")))
15 ; urg, temp hack for accidental size: can't set from Chord::
16 ((0 . 1) . ("C" ("feta-1" . "
\x10")))
17 ((1 . 1) . ("D" ("feta-1" . "
\x10")))
18 ((2 . 1) . ("E" ("feta-1" . "
\x10")))
19 ((3 . 1) . ("F" ("feta-1" . "
\x10")))
20 ((4 . 1) . ("G" ("feta-1" . "
\x10")))
21 ((5 . 1) . ("A" ("feta-1" . "
\x10")))
22 ((6 . 1) . ("B" ("feta-1" . "
\x10")))
24 ((0 . -1) . ("C" ("feta-1" . "
\x12")))
25 ((1 . -1) . ("D" ("feta-1" . "
\x12")))
26 ((2 . -1) . ("E" ("feta-1" . "
\x12")))
27 ((3 . -1) . ("F" ("feta-1" . "
\x12")))
28 ((4 . -1) . ("G" ("feta-1" . "
\x12")))
29 ((5 . -1) . ("A" ("feta-1" . "
\x12")))
30 ((6 . -1) . ("B" ("feta-1" . "
\x12")))
34 (define (user-pitch-name pitch)
35 (let ((entry (assoc pitch pitch-names-alist)))
39 (define chord-names-alist '())
40 (set! chord-names-alist
44 (((0 . 0)) . ("" . ""))
46 (((0 . 0) (2 . 0)) . ("" . ""))
48 (((0 . 0) (2 . -1)) . ("m" . ""))
50 (((0 . 0) (2 . -1) (4 . -1)) . ("dim" . ""))
53 ; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
54 (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
56 (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" . ("script" . "9")))
57 (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" . ("script" . "11")))
61 (define (user-chord-name chord)
64 (let ((entry (assoc chord chord-names-alist)))