update-audio-clip ( audio-clip -- )

Vocabulary

audio.engine.private

Inputs

audio-clip

an object

Outputs

None

Definition

USING: accessors destructors kernel openal ;

IN: audio.engine.private

: update-audio-clip ( audio-clip -- )
    [ update-source ] [
        dup al-source>> AL_SOURCE_STATE get-source-param
        AL_STOPPED = [ dispose ] [ (update-audio-clip) ] if
    ] bi ;