init-sound ( index cpu filename -- )

Vocabulary

roms.space-invaders

Inputs

index	an object
cpu	an object
filename	an object

Outputs

None

Definition

USING: accessors io.pathnames kernel openal openal.alut
sequences ;

IN: roms.space-invaders

: init-sound ( index cpu filename -- )
    absolute-path swapd [ sounds>> nth AL_BUFFER ] dip
    create-buffer-from-wav set-source-param ;