3 % german/norwegian/danish?
6 #(define (pitch->chord-name-text-banter pitch)
7 (if (equal? (cdr pitch) '(6 0))
9 (if (equal? (cdr pitch) '(6 -1)) '("B")
10 (pitch->text pitch))))
12 #(define (pitch->note-name-text-banter pitch)
13 (if (equal? (cdr pitch) '(6 -1)) '("b")
16 (if (equal? (cadr pitch) 6) "h"
17 (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 97))))
30 \context ChordNames \chords { b1/+b bes/+bes bis/+bis }
31 \notes\transpose c'' \chords { b1/+b bes/+bes bis/+bis }