3 % german-chords-init.ly:
4 % german/norwegian/danish?
6 % To get Bb instead of B, use
7 % \include "german-chords-init.ly"
10 #(define german-Bb #f)
12 #(define (pitch->chord-name-text-banter pitch steps)
13 (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
14 (list 7 (+ (if german-Bb 0 1) (caddr pitch)))
19 (list-ref '("C" "D" "E" "F" "G" "A" "H" "B") (car dopitch))
20 (accidental->text-super (cadr dopitch))
27 #(define (pitch->note-name-text-banter pitch)
28 (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
29 (list 7 (+ 1 (caddr pitch)))
34 (list-ref '("c" "d" "e" "f" "g" "a" "h" "b") (car dopitch))
35 (if (or (equal? (car dopitch) 2) (equal? (car dopitch) 5))
36 (list-ref '( "ses" "s" "" "is" "isis") (+ 2 (cadr dopitch)))
37 (list-ref '("eses" "es" "" "is" "isis") (+ 2 (cadr dopitch)))