input/tricks/german-chords.ly

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