Poly-Demix

Dear All,

An useful function do make various pitch-demix operations at once.

(defun poly-demix (n-list mat-omn)

"Extrai as vozes especificadas em N-LIST de uma sequência OMN

e as combina em um único fluxo polifônico."

(let* (;; 1. Garante que n-list seja uma lista e extrai cada voz

(extracted-voices (mapcar #'(lambda (n)

(pitch-demix n mat-omn))

(list! n-list))))

;; 2. Aplica merge-voices sobre a lista de vozes extraídas

(apply #'merge-voices extracted-voices)))

(setf mat-omn '((e. g2bb3d4f4a4 mf s -e e c4c5c5 e. g2bb3c4d4f4 s g3g4g4 -s s g2bb3d4f4a4) (q bb2db4f4ab4c5 mf -e e bb3bb4bb4 e. eb4eb5eb5 s ab3ab4ab4 -s s bb2db4ab4c5eb5)))

(poly-demix '(1 2 5) mat-omn)

((e. g2f4a4 s -e c5 e. g2d4f4 s g4 - g2f4a4) (q bb2ab4c5 -e bb4 e. eb5 s ab4 - bb2c5eb5))

Best, Julio