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

Add play-waveform and play-sine to openal.examples

db4
Jon Harper 2013-09-29 18:58:16 +02:00
parent ff96ad9475
commit 9f58b3ca62
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,6 +9,18 @@ IN: openal.example
first dup AL_BUFFER alutCreateBufferHelloWorld set-source-param first dup AL_BUFFER alutCreateBufferHelloWorld set-source-param
source-play source-play
1000 milliseconds sleep ; 1000 milliseconds sleep ;
: play-waveform ( waveshape freq phase duration -- )
init-openal
[
[ 1 gen-sources first dup AL_BUFFER ] 4dip
alutCreateBufferWaveform
set-source-param
source-play
] [ seconds sleep ] bi ;
: play-sine ( freq duration -- )
[ ALUT_WAVEFORM_SINE ] 2dip [ 0 ] dip play-waveform ;
: (play-file) ( source -- ) : (play-file) ( source -- )
100 milliseconds sleep 100 milliseconds sleep