;; simple stereo weights (from mono)
(bind-func static mix2_c
(lambda ()
(let ((out 0.0))
(lambda (chan:i64 x:SAMPLE left right)
(cond ((= chan 0) (set! out x) (* out left))
((= chan 1) (* out right))
(else 0.0))))))