1 USING: accessors io.files kernel openal sequences ;
6 : assign-sound ( source wav-path -- )
7 resource-path create-buffer-from-wav AL_BUFFER swap set-source-param ;
9 : <sounds> ( -- sounds )
10 init-openal 1 gen-sources first sounds boa
11 dup bang>> "extra/jamshred/sound/bang.wav" assign-sound ;
13 : bang ( sounds -- ) bang>> source-play check-error ;