input/tricks/german-chords.ly

   1 %  german-chords.ly:
   2 % german/norwegian/danish?
   3
   4
   5 #(define (pitch->chord-name-text-banter pitch)
   6    (if (equal? (cdr pitch) '(6 0))
   7        '("H")
   8        (if (equal? (cdr pitch) '(6 -1)) '("B")
   9            (pitch->text pitch))))
  10
  11 #(define (pitch->note-name-text-banter pitch)
  12    (if (equal? (cdr pitch) '(6 -1)) '("b")
  13        (cons
  14         (string-append
  15          (if (equal? (cadr pitch) 6) "h"
  16              (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 97))))
  17          (case (caddr pitch)
  18            ((-1) "eses")
  19            ((-1) "es")
  20            ((0) "")
  21            ((1) "is")
  22            ((2) "isis")))
  23         '())))
  24
  25
  26
  27 \score {
  28   <
  29     \context ChordNames \chords { b1/+b bes/+bes bis/+bis }
  30     \notes\transpose c'' \chords { b1/+b bes/+bes bis/+bis }
  31   >
  32   \paper {
  33     linewidth = -1;
  34   }
  35 }
  36