queue-clip-buffer ( audio-clip al-buffer -- )

Vocabulary

audio.engine.private

Inputs

audio-clip	an object
al-buffer	an object

Outputs

None

Definition

USING: accessors alien.c-types alien.data audio audio.engine
combinators.short-circuit kernel math openal ;

IN: audio.engine.private

:: queue-clip-buffer ( audio-clip al-buffer -- )
    audio-clip done?>> [
        audio-clip al-source>> :> al-source audio-clip
        generator>> :> generator generator generate-audio
        :> ( data size ) size { [ not ] [ zero? ] } 1||
        [ audio-clip t >>done? drop ] [
            al-buffer audio-clip openal-format data size
            audio-clip sample-rate>> alBufferData
            al-source 1 al-buffer uint <ref>
            alSourceQueueBuffers
        ] if
    ] unless ;