(bind-func static AudioBuffer_peek_looped (lambda (ab:AudioBuffer* chan) (let ((ph (AudioBuffer_playhead ab))) (pref (AudioBuffer_data ab) (+ (* (% ph (AudioBuffer_frames ab)) (AudioBuffer_channels ab)) chan)))))