update-source ( audio-clip -- )

Vocabulary

audio.engine.private

Inputs

audio-clip

an object

Outputs

None

Definition

USING: accessors alien.c-types audio.engine combinators kernel
openal sequences ;

IN: audio.engine.private

: update-source ( audio-clip -- )
    [ al-source>> ] [ source>> ] bi {
        [ AL_POSITION swap audio-position first3 alSource3f ]
        [ AL_GAIN swap audio-gain alSourcef ]
        [ AL_VELOCITY swap audio-velocity first3 alSource3f ]
        [
            AL_SOURCE_RELATIVE swap audio-relative? >c-bool
            alSourcei
        ]
        [ AL_REFERENCE_DISTANCE swap audio-distance alSourcef ]
        [ AL_ROLLOFF_FACTOR swap audio-rolloff alSourcef ]
    } 2cleave ;