steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

make openal.example load, it's still broken..

db4
Doug Coleman 2009-04-18 13:48:15 -05:00
parent c1d1fe9b20
commit 49365799d1
1 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/openal/example/example.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2007 Chris Double. ! Copyright (C) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
! USING: calendar kernel openal sequences threads ;
IN: openal.example IN: openal.example
USING: openal kernel alien threads sequences calendar ;
: play-hello ( -- ) : play-hello ( -- )
init-openal init-openal
@ -19,7 +18,7 @@ USING: openal kernel alien threads sequences calendar ;
init-openal init-openal
create-buffer-from-file create-buffer-from-file
1 gen-sources 1 gen-sources
first dup >r AL_BUFFER rot set-source-param r> first dup [ AL_BUFFER rot set-source-param ] dip
dup source-play dup source-play
check-error check-error
(play-file) ; (play-file) ;
@ -28,7 +27,7 @@ USING: openal kernel alien threads sequences calendar ;
init-openal init-openal
create-buffer-from-wav create-buffer-from-wav
1 gen-sources 1 gen-sources
first dup >r AL_BUFFER rot set-source-param r> first dup [ AL_BUFFER rot set-source-param ] dip
dup source-play dup source-play
check-error check-error
(play-file) ; (play-file) ;