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

tweak audio.engine generator interface

db4
Joe Groff 2010-01-20 11:48:48 -08:00
parent 87c09af8f3
commit 6b8c5bd101
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/audio/engine/engine.factor
View File

@ -56,7 +56,7 @@ M: audio-listener audio-gain gain>> ; inline
M: audio-listener audio-velocity velocity>> ; inline M: audio-listener audio-velocity velocity>> ; inline
M: audio-listener audio-orientation orientation>> ; inline M: audio-listener audio-orientation orientation>> ; inline
GENERIC# generate-audio 1 ( generator buffer-size -- c-ptr ) GENERIC# generate-audio 1 ( generator buffer-size -- c-ptr size )
GENERIC: generator-audio-format ( generator -- channels sample-bits sample-rate ) GENERIC: generator-audio-format ( generator -- channels sample-bits sample-rate )
TUPLE: audio-engine < disposable TUPLE: audio-engine < disposable
@ -152,10 +152,12 @@ ERROR: audio-context-not-available device-name ;
audio-clip al-source>> :> al-source audio-clip al-source>> :> al-source
audio-clip generator>> :> generator audio-clip generator>> :> generator
audio-clip buffer-size>> :> buffer-size audio-clip buffer-size>> :> buffer-size
generator buffer-size generate-audio :> data generator buffer-size generate-audio :> ( data size )
al-buffer audio-clip openal-format data buffer-size audio-clip sample-rate>> alBufferData data [
al-source 1 al-buffer c:<uint> alSourceQueueBuffers ; al-buffer audio-clip openal-format data size audio-clip sample-rate>> alBufferData
al-source 1 al-buffer c:<uint> alSourceQueueBuffers
] when ;
: update-listener ( audio-engine -- ) : update-listener ( audio-engine -- )
listener>> { listener>> {