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

Vocabulary

audio.engine.private

Inputs

audio-clip

an object

Outputs

None

Definition

IN: audio.engine.private

GENERIC: (update-audio-clip) ( audio-clip -- )

Methods

USING: audio.engine audio.engine.private kernel ;

M: static-audio-clip (update-audio-clip) drop ;


USING: accessors alien.c-types alien.data audio.engine
audio.engine.private math openal ;

M:: streaming-audio-clip (update-audio-clip)
    ( audio-clip -- )
    audio-clip al-source>> :> al-source 0 uint <ref>
    :> buffer al-source AL_BUFFERS_PROCESSED get-source-param [
        al-source 1 buffer alSourceUnqueueBuffers
        audio-clip buffer uint deref queue-clip-buffer
    ] times ;