;; Returns a scale degree of a given value (pitch) based on a pc
(define pc:degree
(lambda (value pc)
(let loop ((i 1)
(lst pc))
(if (null? lst)
(begin (log-info "pitch not in pc") #f)
(if (= (car lst) (modulo value 12))
i
(loop (+ i 1) (cdr lst)))))))