;; simple quad weights (bind-func static mix4 (lambda (chan x:SAMPLE c1 c2 c3 c4) (cond ((= chan 0) (* x c1)) ((= chan 1) (* x c2)) ((= chan 2) (* x c3)) ((= chan 3) (* x c4)) (else 0.0))))