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" . "
\12")))
15 ; C-p/C-r current feta chars for sharp/flat
16 ; don't use them: ly2dvi breaks (inputenc package)
17 ;((0 . 1) . ("C" ("feta-1" . "
\10")))
18 ;((0 . -1) . ("C" ("feta-1" . "
\12")))
22 (define (user-pitch-name pitch)
23 (let ((entry (assoc pitch pitch-names-alist)))
27 (define chord-names-alist '())
28 (set! chord-names-alist
32 (((0 . 0)) . ("" . ""))
34 (((0 . 0) (2 . 0)) . ("" . ""))
36 (((0 . 0) (2 . -1)) . ("m" . ""))
38 (((0 . 0) (2 . -1) (4 . -1)) . ("dim" . ""))
41 ; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
42 (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
44 (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1)) . ("dim" . ("script" . "9")))
45 (((0 . 0) (2 . -1) (4 . -1) (6 . -2) (1 . -1) (3 . -1)) . ("dim" . ("script" . "11")))
49 (define (user-chord-name chord)
52 (let ((entry (assoc chord chord-names-alist)))