3 % german/norwegian/danish?
5 % To get Bb instead of B, use
6 % \include "german-chords.ly"
11 #(define (pitch->chord-name-text-banter pitch)
12 (if (equal? (cdr pitch) '(6 -1))
14 (cons "B" (accidental->text -1))
18 (list-ref '("C" "D" "E" "F" "G" "A" "H") (cadr pitch))
19 (accidental->text (caddr pitch))
25 #(define (pitch->note-name-text-banter pitch)
26 (if (equal? (cdr pitch) '(6 -1))
30 (list-ref '("c" "d" "e" "f" "g" "a" "h") (cadr pitch))
31 (if (or (equal? (cadr pitch) 2) (equal? (cadr pitch) 5))
32 (list-ref '( "ses" "s" "" "is" "isis") (+ 2 (caddr pitch)))
33 (list-ref '("eses" "es" "" "is" "isis") (+ 2 (caddr pitch)))