+
+% German note names:
+% Urg, this will break again, in time
+% Is this correct, anyway?
+
+#(define (pitch->text pitch)
+ (if (and (= (modulo (cadr pitch) 7) 6)
+ (= (caddr pitch) -1))
+ (cons (make-string 1 (integer->char 66)) '())
+ (cons
+ (if (= (modulo (cadr pitch) 7) 6)
+ (make-string 1 (integer->char 72))
+ (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 65))))
+ (if (= (caddr pitch) 0)
+ '()
+ (list (list (string-append "accidentals-"
+ (number->string (caddr pitch)))
+ '(font . "feta")))))))
+