(bind-func static AudioBuffer_peek
(lambda (ab:AudioBuffer* chan)
(let ((ph (AudioBuffer_playhead ab)))
(if (< ph (AudioBuffer_frames ab))
(pref (AudioBuffer_data ab)
(+ (* ph (AudioBuffer_channels ab)) chan))
0.0))))