update-listener ( audio-engine -- )

Vocabulary

audio.engine.private

Inputs

audio-engine

an object

Outputs

None

Definition

USING: accessors audio.engine combinators kernel openal
sequences ;

IN: audio.engine.private

: update-listener ( audio-engine -- )
    listener>> {
        [ AL_POSITION swap audio-position first3 alListener3f ]
        [ AL_GAIN swap audio-gain alListenerf ]
        [ AL_VELOCITY swap audio-velocity first3 alListener3f ]
        [
            AL_ORIENTATION swap audio-orientation
            orientation>float-array alListenerfv
        ]
    } cleave ;