;; simple oct weights
(bind-func static mix8
(lambda (chan x:SAMPLE c1 c2 c3 c4 c5 c6 c7 c8)
(cond ((= chan 0) (* x c1))
((= chan 1) (* x c2))
((= chan 2) (* x c3))
((= chan 3) (* x c4))
((= chan 4) (* x c5))
((= chan 5) (* x c6))
((= chan 6) (* x c7))
((= chan 7) (* x c8))
(else 0.0))))