;; A predicate for calculating if pitch is in pc ;; ;; arg 1: pitch to check against pc ;; arg 2: pc to check pitch against ;; ;; retuns true or false ;; (define pc:? (lambda (pitch pc) (list? (member (modulo pitch 12) pc))))