play-wav ( filename -- )

Vocabulary

openal.example

Inputs

filename

an object

Outputs

None

Definition

USING: kernel openal openal.alut sequences ;

IN: openal.example

: play-wav ( filename -- )
    init-openal create-buffer-from-wav 1 gen-sources first dup
    [ AL_BUFFER rot set-source-param ] dip dup source-play
    check-error (play-file) ;