(bind-func AudioBuffer_read
(lambda (ab:AudioBuffer* frame chan)
(if (< frame (AudioBuffer_frames ab))
(begin
(if (= chan 0) (AudioBuffer_set_playhead ab frame))
(pref (AudioBuffer_data ab)
(+ (* frame (AudioBuffer_channels ab)) chan)))
0.0)))