flush-source ( al-source -- )

Vocabulary

audio.engine.private

Inputs

al-source

an object

Outputs

None

Definition

USING: alien.c-types alien.data math openal ;

IN: audio.engine.private

:: flush-source ( al-source -- )
    al-source alSourceStop 0 uint <ref>
    :> dummy-buffer al-source AL_BUFFERS_PROCESSED
    get-source-param
    [ al-source 1 dummy-buffer alSourceUnqueueBuffers ] times
    al-source AL_BUFFER 0 alSourcei ;